当值相同时，geom_text 标签交换位置

问题描述

我正在尝试使用 geom_text 作为我的折线图的图例，但我还需要将 COUNT 作为标签（工作要求）。

当我运行下面的代码时，我可以获得标签、值和类别名称，并以不同的方式格式化它们，这样图例就更明显了。

但如果最终的 COUNT 相同，则每次运行代码时标签的顺序都会发生变化。因此，有时正确的 COUNT 与图例的正确标签对齐，但再次运行它，标签会混淆。

df <- data.frame(YEAR = c(2017,2018,2019,2017,2019),SPLIT = c("Cat A","Cat A","Cat B","Cat C","Cat C"),COUNT = c(11,12,15,6,8,14,12)
                 )
ggplot(df,aes(YEAR,COUNT,label = COUNT,colour = SPLIT,group = SPLIT)) +
geom_line(size = 1) +
scale_x_continuous(labels = as.character(df$YEAR),breaks =df$YEAR,limits = c(min(df$YEAR),max(df$YEAR+0.3)))+
geom_text_repel(data = subset(df,YEAR == max(YEAR)),aes(label = SPLIT),show.legend = FALSE,size = 4,fontface = "bold",hjust = "left",nudge_x = 0.2,direction = "y",segment.color = NA) +
  geom_text_repel(data = subset(df,aes(label = COUNT),size = 3,segment.color = NA) +
  theme(legend.position="none")

我知道我可以使用 paste(Col1,Col2) 创建一个额外的字段，并且只使用一个 geom_text，但是标签的格式是相同的，我希望它们不同。

我尝试过直接标签，但标签靠得太近。我减小了字体大小，但还是靠得太近了。

我想这里有几个问题：

我可以调整我的代码来修复标签的顺序吗？或
我可以为同一字段的两个部分设置不同的格式吗？或。
如何使用直接标签增加标签的间距？

感谢您的帮助。

解决方法

如何移除 geom_text_repels 之一并传入利用 SPLIT2 包连接 glue 和 SPLIT 的 COUNT 变量。

这样做会更改 Cat C 和 Cat B 的标签顺序。

我还建议您考虑将 nudge_x 从 0.2 更改为 0.05。

library(tidyverse)
library(lubridate)
library(ggrepel)
library(glue)

df <- data.frame(YEAR = c(2017,2018,2019,2017,2019),SPLIT = c("Cat A","Cat A","Cat B","Cat C","Cat C"),COUNT = c(11,12,15,6,8,14,12)
                 )


df <- df %>% 
  mutate(
    SPLIT2 = glue("{SPLIT} - {COUNT}")
  )

ggplot(df,aes(YEAR,COUNT,label = COUNT,colour = SPLIT,group = SPLIT)) +
geom_line(size = 1) +
scale_x_continuous(labels = as.character(df$YEAR),breaks =df$YEAR,limits = c(min(df$YEAR),max(df$YEAR+0.3)))+
  geom_text_repel(data = subset(df,YEAR == max(YEAR)),aes(label = SPLIT2),show.legend = FALSE,size = 4,fontface = "bold",hjust = "left",nudge_x = 0.2,direction = "y",segment.color = NA) +
  theme(legend.position="none")

geom-text ggplot2 r r