Я работаю над созданием холорплета (обучающего проекта, который я начал ЗДЕСЬ). Однажды я спросил о нанесении текста на карту(ЗДЕСЬ)на SO. Теперь я пытаюсь нанести имена на ту же карту, но с гранями, но продолжаю получать ошибку :
Error in eval(expr, envir, enclos) : object 'group' not found
, которую я понимаю, что R ненавидит меня, а я идиот:)traceback
это ~5 миль, так что это тоже не помощь. Если убрать geom_text
, все работает нормально.
PS Я знаю о новом geom_map
и игрался с ним, но это отдельная проблема, которая меня беспокоит.
Заранее благодарю за помощь.
#Load three data sets from my dropbox
load(url("http://dl.dropbox.com/u/61803503/Names/cholo.RData"))
#view head of the three data frames
lapply(list("map.data2"=map.data2, "ny"=ny, "centroids"=centroids), head)
####################################################################
# map.data2 contains the filling information (test scores) #
# ny contains the lat and long information for plotting boundaries #
# centroids contains the information for plotting labels #
####################################################################
#Load Necessary Libraries
library(ggplot2); library(maps); library(RColorBrewer); library(scales)
ggplot(map.data2, aes(long, lat, group=group)) + #plot pass rates math
geom_polygon(aes(fill=level), colour=alpha('white', 1/2), size=0.2) +
geom_polygon(data=ny, colour='black', fill=NA) +
scale_fill_brewer(palette='RdYlBu', guide = guide_legend(title =
"Percent Passing"))+
facet_grid(.~Subject)+
#annotate(data = "text", label = centroids$subregion, x = centroids$long,
# y = centroids$lat, size = 2, colour = "black") +
geom_text(data=centroids, aes(x=long, y=lat,
label=subregions, angle=angle), size=3) +
opts(title = "
New York State Counties Passing Rate \non Elementary ELA Assessments") +
opts(axis.text.x = theme_blank(), axis.text.y = theme_blank(),
axis.ticks = theme_blank())+
opts(legend.background = theme_rect()) +
scale_x_continuous('') + scale_y_continuous('') +
labs(title = "legend title") + theme_bw()+
opts(axis.line=theme_blank(),axis.text.x=theme_blank(),
axis.text.y=theme_blank(),axis.ticks=theme_blank(),
axis.title.x=theme_blank(), legend.position="bottom",
axis.title.y=theme_blank(),
panel.background=theme_blank(),panel.grid.major=theme_blank(),
panel.grid.minor=theme_blank(),plot.background=theme_blank())