如何从dplyr tibble生成ggplot2 scale_colour_manual所需命名向量

要生成ggplot2::scale_colour_manual需要的命名向量，有两种简洁的实现方式：

方法1：手动赋值向量名称 #

先提取分组和颜色的向量，再给颜色向量指定分组名称：

groups_vec <- groups %>% pull()
colours_vec <- colours %>% pull()

# 核心：给颜色向量设置分组名作为名称
myvalues <- colours_vec
names(myvalues) <- groups_vec

方法2：用dplyr的deframe函数（更高效） #

先将分组和颜色合并为一个两列的tibble，再用deframe()直接转换为命名向量（该函数会把第一列作为名称，第二列作为值）：

library(dplyr)

# 合并分组与颜色为一个tibble
group_colour_tbl <- tibble(
  group = groups %>% pull(),
  colour = colours %>% pull()
)

# 转换为命名向量
myvalues <- group_colour_tbl %>% deframe()

原代码不生效的原因 #

你原来的c(groups_vec = colours_vec)写法是把整个colours_vec当作单个元素，命名为groups_vec，最终得到的是长度为1的向量，而非预期的每个分组对应颜色的命名向量。

内容的提问来源于stack exchange，提问作者DanielMc