如何控制 ggrepel 段的颜色

Question

打算用更好的 MRE 再试一次...对于上下文，这是我目前正在尝试改进的产品

我想要做的是让从端点到标签的线与数据线的颜色相同。

为了这个问题的目的，我们可以使用这个脚本

library(ggplot2)
library(babynames)
library(dplyr)
library(ggrepel)
library(ggsci)

data <- babynames %>%
  filter(name %in% c("Ashley", "Patricia", "Mary", "Minnie")) %>%
  filter(sex=="F")

data <- data %>% group_by(name) %>%
  mutate(change = n - lag(n)) %>% 
  mutate(meanC = mean(change, na.rm = TRUE)) %>%
  ungroup()

data$label <- paste(data$name,"\n",round(data$meanC,0),sep="" )  

minYear = min(data$year)
maxYear = max(data$year)

#endpoint layer
Endpoints <- data %>% 
  group_by(name) %>%
  filter(year == max(year)) %>%
  select(year, name, n, label) %>%
  ungroup()
         
namePlot <- data %>%
  ggplot(mapping = aes(x=year, y=n)) +
  geom_line(aes(color=name), show.legend = FALSE) +
  coord_cartesian(xlim = c(minYear, maxYear+10)) +
  scale_color_ucscgb() +
  geom_point(data = Endpoints, size=1.5, shape=21,
            aes(color=name, fill=name), show.legend=FALSE) +
  geom_label_repel(data=Endpoints, aes(label=label),
                  color = c("forestgreen","red")[1+grepl("\-\d",Endpoints$label)],
                  show.legend = FALSE,
                  vjust = 0, xlim=c(maxYear+3,maxYear+10), size=3, direction='y')
         
print(namePlot)

产生这个情节

标签的颜色由color = c("forestgreen","red")[1+grepl("\-\d",Endpoints$label)],控制，因此在这种情况下，标签中具有正值的数据为绿色，具有负值的数据为红色。我想要的是使从端点到标签框的连接线与数据线的颜色相同，由 geom_line(aes(color=name),show.legend = FALSE

控制

在ggrepel文档中有一个segment.color参数可以控制线段的颜色，但不美观。所以看起来它必须像 segment.color="red" 这样“硬编码”，这对我没有帮助。我还发现 this discussion 关于似乎提出解决方案的问题，但我一直无法让它发挥作用。问题的一部分是它涉及 scale_color_discrete(aesthetics = c("color", "segment.color")) 而我已经有 scale_color_ucscgb() 所以我收到关于更换秤的警告...

任何指导将不胜感激。

Answer 1

基于@aosmith 指导的工作版本

library(ggplot2)
library(babynames)
library(dplyr)
library(ggrepel)
library(ggsci)

data <- babynames %>%
  filter(name %in% c("Ashley", "Patricia", "Mary", "Minnie")) %>%
  filter(sex=="F")

data <- data %>% group_by(name) %>%
  mutate(change = n - lag(n)) %>% 
  mutate(meanC = mean(change, na.rm = TRUE)) %>%
  ungroup()

data$label <- paste(data$name,"\n",round(data$meanC,0),sep="" )  

minYear = min(data$year)
maxYear = max(data$year)

#endpoint layer
Endpoints <- data %>% 
  group_by(name) %>%
  filter(year == max(year)) %>%
  select(year, name, n, label) %>%
  ungroup()

namePlot <- data %>%
  ggplot(mapping = aes(x=year, y=n)) +
  geom_line(aes(color=name), show.legend = FALSE) +
  coord_cartesian(xlim = c(minYear, maxYear+15)) +
  geom_point(data = Endpoints, size=1.5, shape=21,
             aes(color=name, fill=name), show.legend=FALSE) +
  geom_label_repel(data=Endpoints, aes(label=label,
                                       segment.color=name),
                   color = c("forestgreen","red")[1+grepl("\-\d",Endpoints$label)],
                   show.legend = FALSE,
                   force = 50, 
                   vjust = 0, xlim=c(maxYear+5,maxYear+12), size=3, direction='y') +
  scale_color_discrete(aesthetics = c("color", "segment.color"))

print(namePlot)

生产

如何控制 ggrepel 段的颜色

how to control the color of ggrepel segments

r

ggplot2

ggrepel