如何在R语言plot绘制的折线图中显示百分比数据标签

你使用基础绘图系统的plot()函数绘制折线图时，可通过text()函数在对应点位添加数值标签，完整实现代码如下：

# 1. 构造原始数据
date = c(1.45,0.89,0.74,3.28)
# 2. 绘制基础折线图，ylim参数适当扩大Y轴范围避免标签被截断
plot(date, 
     type = "l", # 仅绘制折线，需要同时显示点位可改为"b"
     ylim = c(0, max(date)+0.5),
     xlab = "索引",
     ylab = "数值")
# 3. 为每个点位添加百分比标签
text(x = 1:length(date), # 点位X轴坐标
     y = date, # 点位Y轴坐标
     labels = paste0(date, "%"), # 拼接百分号生成标签文本
     pos = 3, # 设置标签显示在点位正上方
     cex = 0.9) # 调整标签字体大小

如果需要进一步调整效果，可参考以下优化方案：

• 避免标签和折线重叠：可将text()函数中y参数改为date + 0.1，给标签增加向上的偏移量
• 修改折线样式：可在plot()函数中增加col = "blue"、lwd = 2参数，调整折线的颜色和粗细
• 自定义坐标轴刻度：通过axis()函数自定义X、Y轴的刻度展示内容

如果你习惯使用ggplot2绘图系统，也可以用以下代码实现同等效果：

library(ggplot2)
# 构造数据框
df <- data.frame(
  x = 1:4,
  y = c(1.45,0.89,0.74,3.28)
)
# 绘图
ggplot(df, aes(x = x, y = y)) +
  geom_line(linewidth = 1) + # 绘制折线
  geom_text(aes(label = paste0(y, "%")), vjust = -0.8, size = 3.5) + # 添加标签
  ylim(0, 4) + # 设置Y轴范围
  labs(x = "索引", y = "数值") +
  theme_minimal()

内容的提问来源于stack exchange，提问作者redondo