如何控制格格雷佩尔弓形的颜色

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)

产生