Seite 1 von 1

3D Flugplot mit Karte in x-y-Ebene

Verfasst: Mi Mär 31, 2021 9:06 am
von Locardas
Liebes R-Forum,

ich bin ein Anfänger in der Verwendung von R und hoffe, dass ihr mir helfen könnt. Ich möchte einen Flug 3 D plotten und eine Karte (Topographie) in der x bzw. y Ebene einbinden. Dazu habe ich eine Excel-Tabelle mit dem Namen "Flugroute" in R importiert. In dieser Tabelle sind die Spalten ID (für die Flugnummer), der Breitengrad, Längengrad, Flughöhe und die GPS-Zeit.

Die Daten aus der Tabelle wurden bereits ausgelesen (packages-data.tabl) und daraus ein 3-D-Plot erstellt (packages-plot3D). Allerdings werden im Plot alle Flüge angezeigt. Ich möchte das nur Flüge mit einer bestimmten ID angezeigt werden. Zum besseren Verständnis:

Code: Alles auswählen

Flugroute<-data.frame(read_excel("C:/Users/Kwiezinski/Desktop/Backups/16.01.2020 Promotion/Paper/2.Paper/Flugproben/Flugrouten.xlsx"))

ID           <- Flugroute[, 1]
x_Latitude   <- Flugroute[, 2]
y_Longitude  <- Flugroute[, 3]
z_Höhe       <- Flugroute[, 4]

scatter3D(x_Latitude, y_Longitude, z_Höhe, phi = 0, bty = "g", type = "l", ticktype = "detailed", lwd = 4)
Flugroute.png
Danke vorab und liebe Grüße,
Locardas

Re: 3D Flugplot mit Karte in x-y-Ebene

Verfasst: Mi Mär 31, 2021 9:23 am
von ruedi_br
Eine Grafik je ID? Oder nur eine Grafik für eine fest vorgegebene ID?
VG
Ruedi

Re: 3D Flugplot mit Karte in x-y-Ebene

Verfasst: Mi Mär 31, 2021 9:35 am
von Locardas
Hallo Ruedi,

ersteres. Eine Grafik je ID.

VG
Locardas

Re: 3D Flugplot mit Karte in x-y-Ebene

Verfasst: Mi Mär 31, 2021 10:07 am
von Athomas
Ich möchte das nur Flüge mit einer bestimmten ID angezeigt werden.
Ist die Frage, wie man aus der datatable die passenden Sätze extrahiert?

Code: Alles auswählen

library(data.table)

Zeilen  <- 100
Spalten <- 5

DT <- data.table(ID=sample(LETTERS[1:5], Zeilen, replace=TRUE), matrix(runif(Zeilen*Spalten), ncol=Spalten))
Extrakt <- DT[ID=="E"]
Mit "split" kannst Du eine Liste aus data.tables mit den Sätzen jeweils einer ID erzeugen:

Code: Alles auswählen

kappes <- split(DT, DT$ID)
kappes["A"] 

Re: 3D Flugplot mit Karte in x-y-Ebene

Verfasst: Mi Mär 31, 2021 2:34 pm
von Locardas
Alles klar, danke Ruedi ! Durch deine Anregungen habe ich es nun hinbekommen !

Re: 3D Flugplot mit Karte in x-y-Ebene

Verfasst: Do Apr 01, 2021 11:48 am
von ruedi_br
zuviel der Ehre, der Tipp kam von Athomas :D
Ich hatte noch darüber gebrütet, wie Du die Spalte x losgeworden bist und wieviele N/A-Ids im Datensatz vorkommen.
VG Ruedi