Я пытаюсь использовать ggplot2 и карты для определения имен графств в штате Нью-Йорк. Мой подход заключался в том, чтобы найти средства широты и долготы по графству (я предполагаю, что это центр графства, но это может быть ошибочное мышление), а затем использовать geom_text для построения имен на карте. Он не ведет себя так, как я ожидал, поскольку он закладывает несколько имен на графство.
Результат, который я ищу, состоит в том, что центр каждого текста (округа) находится в центре соответствующего округа.
В дополнение к решению проблемы я был бы признателен за помощь в понимании того, что не так с моим мышлением с ggplot.
Спасибо заранее.
library(ggplot2); library(maps)
county_df <- map_data('county') #mappings of counties by state
ny <- subset(county_df, region=="new york") #subset just for NYS
ny$county <- ny$subregion
cnames <- aggregate(cbind(long, lat) ~ subregion, data=ny, FUN=mean)
p <- ggplot(ny, aes(long, lat, group=group)) + geom_polygon(colour='black', fill=NA)
p #p of course plots as expected
#now add some county names (3 wrong attempts)
p + geom_text(aes(long, lat, data = cnames, label = subregion, size=.5)) #not correct
#I said maybe I'm confusing it with the same names for different data sets
names(cnames) <-c('sr', 'Lo', 'La')
p + geom_text(Lo, La, data = cnames, label = sr, aes(size=.5)) #attempt 2
p + geom_text(aes(Lo, La, data = cnames, label = sr, size=.5)) #attempt 3