Я довольно плохо знаком с R и ggplot.Я пытаюсь построить facet_wrap серии карт хориоплетов США за период 1999 - 2017 гг.
Я попытался следовать коду из этого поста ( Как отобразить все штатыСША используют R с числом преступлений, совершенных в каждом штате? ), но у меня возникают проблемы с получением границ и заполнением штатов без данных за данный год.
У меня есть фрейм данных с именем by_year, такой как у данных.Проблема в течение любого одного года, большинство штатов не в df (не было никакого значения, сообщенного в тот год).
state Year Value
new jersey 1999 13.8
oklahoma 1999 16.5
Код, который у меня пока есть, таков:
us.states <- map_data("state")
ggplot(data = by_year, aes(map_id = state)) +
geom_map(aes(fill = Value), color= "black", map = us.states) +
expand_limits(x = us.states$long, y = us.states$lat) +
coord_map() +
scale_x_continuous(breaks = NULL) + scale_y_continuous(breaks = NULL) +
labs(x = "", y = "") + theme(legend.position = "bottom",
panel.background = element_blank())+
facet_wrap(~Year, ncol = 5)
Это дает следующий вывод:
Как видите, за любой данный год во многих штатах нет данных.Как мне получить схемы пропущенных состояний для каждого года и заполнить их светло-серым?Я также надеялся изменить цветовую шкалу на оттенки красного (с более темными оттенками для более высоких значений).
Большое спасибо за любую помощь.