ggplot折线图中的可变标签位置

Question

我使用 dplyr

创建了以下数据框摘要

structure(list(maxrep = c(7L, 7L, 8L, 8L, 9L, 9L, 10L, 10L, 11L, 
11L, 12L, 12L, 13L, 13L, 14L, 14L, 15L, 15L, 16L, 16L, 17L, 17L, 
18L, 18L, 19L, 19L, 20L, 20L, 21L, 21L, 22L, 22L, 23L, 23L, 24L, 
24L, 26L, 26L), div = structure(c(1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L), .Label = c("Premier Division", 
"Second Division"), class = "factor"), freq = c(1L, 10L, 4L, 
39L, 26L, 89L, 73L, 146L, 107L, 162L, 117L, 133L, 121L, 125L, 
116L, 91L, 110L, 65L, 95L, 43L, 75L, 38L, 43L, 24L, 38L, 16L, 
36L, 5L, 15L, 2L, 9L, 7L, 9L, 1L, 3L, 3L, 2L, 1L)), .Names = c("maxrep", 
"div", "freq"), class = c("grouped_df", "tbl_df", "tbl", "data.frame"
), row.names = c(NA, -38L))

我的目的是使用 ggplot2 绘制 2 条不同颜色的线图，每个值都有文本标签。

我做的是

ggplot(df, aes(x=maxrep, y=freq, colour=div)) +
geom_line() +
geom_text(aes(label=freq), vjust=-.5)

结果是

现在我的问题是：图表中的所有标签都在相应行的点上方。我想让不同颜色的标签处于不同的相对位置，例如线上方的青色标签和线下方的红色标签（即变量 vjust）。有办法吗？

还有，有没有办法读取右边颜色图例中的字母a？

Answer 1

如何分别绘制不同 vjust 值的线？可以在图例设置show_guide = FALSE.

中去掉a

ggplot(df, aes(x=maxrep, y=freq, colour=div, label = freq)) +
    geom_line() +
    geom_text(data = df[df$div == "Second Division",], vjust=2, show_guide = FALSE) + geom_text(data = df[df$div == "Premier Division",], vjust=-2, show_guide = FALSE)

哪个returns:

Answer 2

在 data.frame 中创建一个新变量持有 vjust 调整参数：

df$pos <- c(2, -2)[(df$div == "Premier Division")+1]

您可以使用新的 pos 向量在 aes 中调用 vjust：

ggplot(df, aes(x=maxrep, y=freq, colour=div)) +
    geom_line() +
    geom_text(aes(label=freq, vjust=pos))

ggplot折线图中的可变标签位置

Variable label position in ggplot line chart

r

ggplot2