Я хочу рассчитать кластер с помощью пакета «Openair».Я читаю данные траектории с помощью:
traj_2010 <- read.csv("C:/Users/stieger/Trajektorien/traj_10.csv", header=TRUE)
traj_2010$date <- as.POSIXct(strptime(traj_2010$date, format="%Y-%m-%d %H:%M", "GMT"))
traj_2010$date2 <- as.POSIXct(strptime(traj_2010$date2, format="%Y-%m-%d %H:%M", "GMT"))
Таким образом, у меня есть данные траектории в виде:
head(traj_2010)
receptor year month day hour hour.inc lat lon height pressure date2 date
1 1 10 1 1 0 0 51.330 12.420 500.0 912.2 2010-01-01 00:00:00 2010-01-01
2 1 9 12 31 23 -1 51.350 12.523 464.1 915.2 2009-12-31 23:00:00 2010-01-01
3 1 9 12 31 22 -2 51.353 12.668 422.2 919.4 2009-12-31 22:00:00 2010-01-01
4 1 9 12 31 21 -3 51.329 12.840 380.9 922.0 2009-12-31 21:00:00 2010-01-01
5 1 9 12 31 20 -4 51.279 13.029 351.5 923.6 2009-12-31 20:00:00 2010-01-01
6 1 9 12 31 19 -5 51.218 13.240 335.1 924.2 2009-12-31 19:00:00 2010-01-01
Теперь я использую команду trajCluster
:
cluster_2010<-trajCluster(traj_2010, method = "Angle", n.cluster = 5, col = c("red2", "blue", "green3", "purple", "black"),
map.fill= FALSE, key=FALSE, main="2010", xlab="latitude", ylab="longitude", xlim=range(-35:35), ylim=range(35:70),
par.settings=list(axis.line=list(lwd=1.5), strip.border=list(lwd=2),
fontsize=list(text=32)))
он запускается несколько минут, но с результатом:
|==============================================================================|100% ~0 s remaining Error in summarise_impl(.data, dots) :
Evaluation error: argument "x" is missing, with no default.
Я немного запутался, потому что в прошлом это работало без проблем.Может ли кто-нибудь мне помочь?
Я использую следующие пакеты:
library(openair)
library(plyr)
library(reshape2)
library(mapdata)
library(rworldmap)
library(dplyr)