将（有序）因子映射到ggplot中的颜色

Question

考虑这个例子

data_frame(mylabel = c('month 18',
                       'month 19',
                       'month 20',
                       'month 21',
                       'month 22'),
           value = c(5,10,-2,2,0),
           time = c(1,2,3,4,5)) %>% 
  ggplot(aes( x= time, y = value, color = mylabel)) +
  geom_point(size = 7)

在这里您可以看到变量 mylabel 具有自然顺序：第 18 个月在第 19 个月之前，依此类推。

但是，ggplot 选择的颜色不会保留这种自然顺序。在我的真实数据集中，我有大约 50 个不同的月份，我想使用一个色标来使这种增加更加直观（比如从冷到热）。

我该怎么做？ 谢谢！

Answer 1

您可以使用 viridis 色标或其他颜色更好的色标来指示顺序。

对于相似的色标，包含多个选项（选项 =“A”到“D”）。通过direction = -1更改顺序

我添加了一个步骤来更好地订购，以防月份列出不正确。它有效，但我确信有一种更简单的方法。从名称中提取月份#（必须从char 转换为numeric），然后将其分解为使用正确顺序的因素。

library(tidyverse)
data_frame(mylabel = paste("month", 1:10),
             value = rnorm(length(mylabel)),
             time = seq_along(mylabel)) %>% 
    mutate(month_number = factor(as.numeric(gsub("month ([0-9]+)", "\\1", mylabel)))) %>% 
  ggplot(aes( x= time, y = value, color = month_number)) +
  geom_point(size = 7) +
  scale_color_viridis_d(option = "B", direction = -1)

^{由reprex package (v0.2.1) 于 2018 年 11 月 30 日创建}

Answer 2

forcats 中的as_factor 函数会在水平发生时对水平进行排序，而不是先放置所有以“1”开头的事物，然后放置所有以“2”开头的事物，等等。这避免了从 1 到几个月的问题12.

我编造不同的数据只是为了得到完整的月份标签。

library(dplyr)
library(ggplot2)

set.seed(1234)
df <- data_frame(mylabel = paste("month", 1:12),
                 value = rnorm(12),
                 time = 1:12)

df_fact <- df %>%
  mutate(mylabel = forcats::as_factor(mylabel))

levels(df_fact$mylabel)
#>  [1] "month 1"  "month 2"  "month 3"  "month 4"  "month 5"  "month 6" 
#>  [7] "month 7"  "month 8"  "month 9"  "month 10" "month 11" "month 12"

ggplot(df_fact, aes(x = time, y = value, color = mylabel)) +
  geom_point(size = 7)

您可以进一步调整色阶，使其更适合顺序数据。我经常使用 Color Brewer 的，但也喜欢一些 rcartocolor 秤。在这种情况下，具有 12 个级别将使许多连续调色板中可用的颜色数量最大化，尽管 ggplot2（例如 scale_color_viridis_d）附带的 Viridis 比例尺将插入以适应这么多级别。

^{由reprex package (v0.2.1) 于 2018 年 11 月 30 日创建}