Я пытаюсь использовать 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