Sys.setenv(LANG = "en") library(ggplot2) library(jsonlite) require(GGally) library(dplyr) library(rgl) library(knitr) library(scales) library(stringi) library(RHRV) library(anytime) basedir <-"D:\\Dropbox\\UNI\\BAK\\Daten\\CoConUT\\" datadir <- paste(basedir, 'data/', sep = "") plotdir <- paste(basedir, 'plots/', sep = "") #loading data json_file <- paste(basedir, "g3.json", sep="") json_data_coco <- fromJSON(paste(json_file, sep = ""), flatten = TRUE) coconut.df <- json_data_coco[["data"]] #parsing timestamp into actual time coconut.df$unix_timestamp <- as.numeric(coconut.df$timestamp)/1000 time <- anytime(coconut.df$unix_timestamp) # optional coconut.df$second_counter = (coconut.df$unix_timestamp - min(coconut.df$unix_timestamp)) #extracting everything into variables lux <- as.numeric(coconut.df$light.lux) latitude <- as.numeric(coconut.df$gps.latitude) longitude <- as.numeric(coconut.df$gps.longitude) bluetooth <- as.numeric(coconut.df$bluetooth.numOfBTDevices) #print everything print(coconut.df) print(time) print(longitude) print(latitude) print(lux) print(bluetooth) # getting coordinate-tuples coordinates<-cbind(latitude,longitude) print(coordinates)