Построение с хороплетом против usmap в R - PullRequest
Новая
       50

Построение с хороплетом против usmap в R

0 голосов
/ 13 февраля 2019

Я пытаюсь сделать серию карт, которые показывают различные SUD (расстройства, связанные со злоупотреблением психоактивными веществами) по всей стране.Чтобы не использовать степень SUD для каждого условия, я хочу назначить определенный цвет различным диапазонам значений.Так, например, проценты по всем SUD могут быть от 0 до 5, и есть 5 одинаково разнесенных сегментов, каждый из которых охватывает один процент (т. Е. 1 = от 0 до 1, 2 = от 1,1 до 2, 3 = от 3,1 до 4, так далее.).У меня много трудностей, чтобы заставить ведра и цвета работать так, как ожидалось в choroplethr.Иногда диапазон рушится с другим.Вот пример: 

    #Assign an integer value to each percentage range.
    Cond <-
      raw_df %>%
      mutate(value = ifelse(Tobacco<=1 & Tobacco>=0, 1, 
                    (ifelse(Tobacco<=2 & Tobacco>1, 2, 
                    (ifelse(Tobacco<=3 & Tobacco>2, 3, 
                    (ifelse(Tobacco<=4 & Tobacco>3, 4,
                    (ifelse(Tobacco<=5 & Tobacco>4, 5,
                    (ifelse(Tobacco>5, 6, NA))))))))))


   #Verify the number of buckets in the data (may not be all 6)
    Cond %>%
      group_by(value) %>%
      summarise (n = n())


   #map the data 
  oranges<- c("#FEEDDE","#FDD0A2", "#FDAE6B", "#FD8D3C", "#E6550D", "#A63603")
    choro_cond = StateChoropleth$new(Cond) 
    choro_cond$set_num_colors(7)
    choro_cond$show_labels = FALSE
    choro_cond$ggplot_scale <- scale_fill_manual(values=oranges, name = paste("Percent of beneficiaries"), drop=FALSE,  na.value="grey", labels=c("0 to 1", "11. to 2", "2.1 to 3","3.1 to 4", "4.1 to 5", "5+", "Data not reported"))
    without_abbr<-choro_cond$render()

    without_abbr

Имеется 7 уникальных сегментов, потому что седьмое - это N / A, которое я отобразил как «Данные не представлены» серым цветом.В этом случае все сегменты доступны, но некоторые сегменты рушатся, и я получаю только 5 категорий.Это первая проблема.

Для SUD, у которых меньше этих сегментов, у меня также происходит спад.Опять же, я не уверен, почему.Некоторые коллеги рекомендовали мне рассмотреть usmap () вместо choroplethr ().Поскольку я уже усовершенствовал код, было бы неплохо использовать то, что у меня есть, и разрешить конфликты пакетов.Ниже приведены пакеты, на которые я ссылаюсь.

library(devtools)
library(dplyr)
library(RColorBrewer)
library(ggplot2)
install_github("choroplethr", "arilamstein")
library(choroplethr)
library(choroplethrMaps)

Надеюсь, кто-то может помочь!Спасибо!

...