Я пытался пометить точки, используя имя на карте условно для города.
Данные
name |s Latitude |s Longitude |s Frequency
Pelham Bay Park | 40.865556 | -73.808333 | 32
Greenbelt | 40.58846 | -74.139073 | 10
Van Cortlandt Park | 40.8978 | -73.8839 | 3
Flushing Meadows–Corona Park | 40.745833 | -73.844722 | 5
Central Park | 40.783333 | -73.966667 |22
Код
library(ggmap)
town <- get_map(location = "New York", zoom = 10)
mapPoints <- ggmap(town) +
geom_point(aes(x = work_count$Longitude, y = work_count$Latitude, size = work_count$Frequency), data = work_count, alpha = .5) +
geom_text(aes(label=ifelse(work_count$Frequency>quart(work_count$Frequency)[2],as.character(work_count$name),'')),hjust=0,vjust=0)
quart <- function(x) {
x <- sort(x)
n <- length(x)
m <- (n+1)/2
if (floor(m) != m) {
l <- m-1/2; u <- m+1/2
} else {
l <- m-1; u <- m+1
}
c(Q1=median(x[1:l]), Q3=median(x[u:n]))
}
mapPoints
Я получаю следующую ошибку: Ошибка: Эстетика должна быть либо длиной 1, либо такой же, как данные (5): метка, x, y Любая помощь приветствуется
geom_text
, то естьwork_count$labels <- ifelse(work_count$Frequency>quart(work_count$Frequency)[2],as.character(work_count$name),''))
, а затем передать это вgeom_text
. - person Weihuang Wong   schedule 12.08.2016town
, и выполнитеdput(head(work_count, 20))
и вставьте вывод в свой вопрос, чтобы показать нам первые несколько строк ваших данных. - person Weihuang Wong   schedule 12.08.2016aes
. Это может не решить вашу проблему, но сделает ваш код намного чище. dput гораздо полезнее, чем распечатка вашей таблицы - person Richard Telford   schedule 12.08.2016quantile
- person Richard Telford   schedule 13.08.2016geom_text()
нужен фрейм данных с именем:data = work_count
, как вы сделали дляgeom_point()
- person Sandy Muspratt   schedule 13.08.2016geom_text
не знает, куда ставить ярлыки. - person Sandy Muspratt   schedule 13.08.2016