如何替换坐标轴行名数据？R绘图中如何显示均值变量到标签？

一、在plot中显示均值变量值 #

你之前的问题出在没把文本和变量值正确拼接，直接分开写参数会被R当成两个独立元素，没法合并成预期的标签。用paste()或paste0()就能解决：

步骤1：正确计算均值（建议处理缺失值） #

# 计算数值列的均值，na.rm=TRUE避免缺失值导致结果为NA
mean_variable <- mean(your_table$`numeric_column`, na.rm = TRUE)

步骤2：把均值加入图表标签 #

可以选择放在副标题、主标题，或者图表任意位置：

• 副标题(sub)显示：

  plot(your_table$`numeric_column`, sub = paste("数据平均值：", mean_variable))
  

• 主标题(main)显示：

  plot(your_table$`numeric_column`, main = paste("数据分布 | 平均值：", round(mean_variable, 2)))
  

  用round()可以控制均值的小数位数，让标签更整洁。
• 图表任意位置显示：用text()函数自定义位置，比如右上角：

  plot(your_table$`numeric_column`)
  # x和y参数控制位置，pos=2表示左对齐
  text(x = max(your_table$`numeric_column`), y = max(your_table$`numeric_column`),
       labels = paste("平均值：", mean_variable), pos = 2)
  

二、替换坐标轴上的行名标签 #

如果坐标轴默认显示的是表格行名，想要替换成自定义内容，有两种简单方法：

方法1：绘图时自定义坐标轴 #

先隐藏默认坐标轴，再手动绘制带自定义标签的坐标轴：

# 自定义标签内容
custom_labels <- c("对照组", "实验组1", "实验组2")

# xaxt="n" 隐藏默认x轴
plot(your_table$`numeric_column`, xaxt = "n")

# 重新绘制x轴：at指定刻度位置，labels设置自定义标签
axis(1, at = 1:length(custom_labels), labels = custom_labels)

方法2：先修改表格行名再绘图 #

直接把表格行名改成你想要的内容，绘图时会自动用新行名作为坐标轴标签：

# 修改表格行名
rownames(your_table) <- c("对照组", "实验组1", "实验组2")

# 正常绘图，x轴会显示新的行名
plot(your_table$`numeric_column`)

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