我想标记我的geom_smooth在 r 中，但标签更接近实际点，而不是线。
Data:
df <- structure(list(t = c(45, 45, 45, 45, 45, 46, 46, 46, 46, 46,
47, 47, 47, 47, 47, 48, 48, 48, 48, 48, 49, 49, 49, 49, 49, 50,
50, 50, 50, 50, 51, 51, 51, 51, 51, 52, 52, 52, 52, 52, 53, 53,
53, 53, 53, 54, 54, 54, 54, 54, 55, 55, 55, 55, 55, 56, 56, 56,
56, 56, 57, 57, 57, 57, 57, 58, 58, 58, 58, 58, 59, 59, 59, 59,
59, 60, 60, 60, 60, 60, 61, 61, 61, 61, 61, 62, 62, 62, 62, 62,
63, 63, 63, 63, 63, 64, 64, 64, 64, 64, 65, 65, 65, 65, 65),
x = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), name = c("P1", "P2",
"P2+", "P3", "P4", "P1", "P2", "P2+", "P3", "P4", "P1", "P2",
"P2+", "P3", "P4", "P1", "P2", "P2+", "P3", "P4", "P1", "P2",
"P2+", "P3", "P4", "P1", "P2", "P2+", "P3", "P4", "P1", "P2",
"P2+", "P3", "P4", "P1", "P2", "P2+", "P3", "P4", "P1", "P2",
"P2+", "P3", "P4", "P1", "P2", "P2+", "P3", "P4", "P1", "P2",
"P2+", "P3", "P4", "P1", "P2", "P2+", "P3", "P4", "P1", "P2",
"P2+", "P3", "P4", "P1", "P2", "P2+", "P3", "P4", "P1", "P2",
"P2+", "P3", "P4", "P1", "P2", "P2+", "P3", "P4", "P1", "P2",
"P2+", "P3", "P4", "P1", "P2", "P2+", "P3", "P4", "P1", "P2",
"P2+", "P3", "P4", "P1", "P2", "P2+", "P3", "P4", "P1", "P2",
"P2+", "P3", "P4"), value = c(48L, 132L, 111L, 115L, 2L,
58L, 126L, 82L, 74L, 0L, 45L, 119L, 78L, 87L, 0L, 56L, 106L,
105L, 88L, 1L, 52L, 78L, 91L, 107L, 1L, 35L, 96L, 86L, 98L,
1L, 61L, 118L, 90L, 108L, 2L, 45L, 114L, 93L, 98L, 2L, 55L,
108L, 78L, 76L, 7L, 44L, 97L, 94L, 96L, 0L, 40L, 111L, 93L,
88L, 1L, 43L, 78L, 66L, 113L, 2L, 20L, 57L, 84L, 41L, 0L,
17L, 51L, 81L, 34L, 0L, 40L, 55L, 64L, 32L, 0L, 25L, 67L,
71L, 37L, 0L, 16L, 67L, 60L, 57L, 0L, 23L, 46L, 62L, 47L,
1L, 34L, 75L, 68L, 39L, 0L, 34L, 60L, 85L, 24L, 0L, 20L,
58L, 63L, 37L, 1L)), row.names = c(NA, -105L), class = c("tbl_df",
"tbl", "data.frame"))
My code:
df %>%
group_by(name) %>%
# New column to label the first and last values
mutate(label =
case_when(
t == min(t) | t == max(t) ~ name,
TRUE ~ NA_character_)) %>%
ggplot(aes(x = t, y = value, color = name, group = interaction(x, name), shape = name)) +
geom_smooth(se = F) +
geom_vline(xintercept = 57, linetype = "dashed", lwd = 0.3) +
scale_color_discrete(guide = 'none') +
geom_label_repel(aes(label = label))
My graph:
另外，是否可以去掉指向平滑黄土曲线的线？
实现您想要的结果的一种选择是使用stat="smooth" in ggrepel::geom_label_repel。这样做会将标签放在拟合点上，而不是数据点上。但是，要完成这项工作，您必须在内部动态添加标签geom_label_repel使用例如after_stat(ifelse(x %in% range(x), color, NA_character_)):
library(ggplot2)
library(ggrepel)
ggplot(df, aes(x = t, y = value, color = name, group = interaction(x, name), shape = name)) +
geom_smooth(se = F) +
geom_vline(xintercept = 57, linetype = "dashed", lwd = 0.3) +
scale_color_discrete(guide = "none") +
ggrepel::geom_label_repel(aes(label = after_stat(ifelse(x %in% range(x), color, NA_character_))), stat = "smooth")
EDIT可能有不同的路线将标签放置在数据范围的左（右）（下）上端。我的方法可能并不优雅。但是，在我最近不得不准备大量在端点处带有标签的图表之后，我决定通过两个文本层来实现这一点，在我看来，这是实现这一目标的最简单方法，因为它允许我们轻推将标签向左移动或对。为了完成这项工作，我增加了 x 比例的扩展，为标签腾出空间。另外，我删除了编辑和设置中的片段.direction = "y"这样标签仅在 y 方向上被排斥。
library(ggplot2)
library(ggrepel)
ggplot(df, aes(x = t, y = value, color = name, group = interaction(x, name), shape = name)) +
geom_smooth(se = F) +
geom_vline(xintercept = 57, linetype = "dashed", lwd = 0.3) +
scale_color_discrete(guide = "none") +
scale_x_continuous(expand = c(.1, .1)) +
ggrepel::geom_label_repel(aes(label = after_stat(ifelse(x %in% range(x)[1], color, NA_character_))),
stat = "smooth",
nudge_x = -1,
min.segment.length = Inf,
direction = "y") +
ggrepel::geom_label_repel(aes(label = after_stat(ifelse(x %in% range(x)[2], color, NA_character_))),
stat = "smooth",
nudge_x = 1,
min.segment.length = Inf,
direction = "y")
