RSTUDIO로 gps 데이터 3d 시각화하기(rgl)

얼마전 누리호3호가 발사되었다. 

앞으로 인공위성에서 보내오는 신호를 이용하여 많은 비즈니스 모델이 생길 것을 기대한다. 

 

[출처 : https://www.dongascience.com/news.php?idx=59977]

 

인공위성등이 보내오는 gps 데이터를 3d로 시각화 해 보는 것을 연습해보자

 

1. 결과 보기

 

2. 코드 분석

#데이터 불러오기
mytelematics <- read.csv("https://raw.githubusercontent.com/issactoast/theissacleedotcom/master/static/data/sampletrip.csv", header = TRUE, fill = TRUE)

gps_data <- subset(mytelematics, select = c(Timestamp, Long, Lat, Alt.m.))
colnames(gps_data) <- c("Timestamp", "x", "y", "z")
head(gps_data)

#3d로 시각화 하기

library(rgl)

open3d()
mfrow3d(1, 1, sharedMouse = TRUE)
plot3d(gps_data[,2:4], col = "red", size = 5, type = "l")