R使用plotmeans绘图时如何将x轴数值编码替换为分类文本标签

你之前尝试修改标签的代码完全无效，本质是两套绘图体系不兼容：

• 你使用的plotmeans函数来自gplots扩展包，属于基础R（base R）绘图体系，输出的是直接绘制在画布上的图形元素，不是可叠加图层的对象
• scale_x_discrete()搭配+号的写法是ggplot2体系专属的图层语法，无法作用于base R的绘图输出，所以追加的代码不会产生任何效果

方案1：在绘图函数内手动自定义x轴刻度 #

基础R绘图通过内置参数控制刻度显示，只要在plotmeans调用时关闭默认的数值刻度，再手动绘制带文本标签的x轴即可，修改后的函数代码如下：

library(gplots)

fun_plot5 <- function(ycol, ylab, xcol, data) {
  # 拼接绘图公式
  xx3 <- paste(ycol, xcol, sep = "~")
  xx3 <- as.formula(xx3)
  
  # 绘图时关闭默认x轴刻度
  plotmeans(xx3, data = get_proposer,
            xlab = "Gender", ylab = ylab,
            main = "Mean Plot with 95% CI",
            xaxt = "n" # 关键参数：屏蔽默认的1、2数值刻度
            )
  
  # 手动绘制自定义x轴：
  # 你的数据中gender=1对应Male，gender=2对应Female，坐标位置固定在x轴1、2处
  axis(side = 1, at = c(1, 2), labels = c("Male", "Female"))
}

后续直接运行你原本的绘图循环代码即可，记得顺便修正原代码中的拼写错误：

y_cols6 <- names(get_proposer[24:29])
# 修正原标签中的拼写错误：Pradtice -> Practice
y_lab6 <- c(
  "Actual Offer (by A)", 
  "Actual Amount Transferred to Partner (Bot)", 
  "Actual Payoff (for A)", 
  "Practice Offer (by A)", 
  "Practice Amount Transferred to Partner (Bot)", 
  "Practice Payoff (for A)"
)

old_par4 <- par(mfrow = c(3,3))
mapply(fun_plot5, y_cols6, y_lab6, 
       MoreArgs = list(
         xcol = "gender",
         data = get_proposer
       ))
# 绘图完成后恢复原画布参数
par(old_par4)

方案2：提前预处理性别变量为带标签的因子 #

如果不想修改绘图函数的内部逻辑，可以在绘图前把数值编码的gender变量转换为带自定义水平的因子，plotmeans会自动读取因子的水平作为x轴刻度标签，全程不需要额外写绘图代码：

# 数据预处理：将gender的数值编码映射为可读标签
get_proposer$gender <- factor(
  get_proposer$gender,
  levels = c(1, 2), # 对应原编码值
  labels = c("Male", "Female") # 对应要显示的文本
)

完成这步预处理后，你原本写的所有绘图代码不需要做任何修改，运行后x轴会自动显示"Male"和"Female"的文本标签，不再出现默认的1、2数值。这个方法的优势是所有用到gender变量的绘图都会自动匹配对应标签，不需要在每个绘图函数里重复写刻度配置。

• 严格区分base R和ggplot2的绘图语法，二者完全不兼容，不能把ggplot2的图层叠加方法用在base R生成的图形上
• 如果用方案1的xaxt = "n"参数，必须后续手动调用axis()绘制x轴，否则整个x轴会没有任何刻度和标签
• 原代码的y轴标签存在拼写错误，将Pradtice改为Practice即可避免显示错字

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