如何在ggplot中自动提取treatment列作为x轴标签？

你现在用treat列的1-6数值做x轴，想自动提取treatment列的对应名称当标签，之前试了scale_x_continuous和scale_x_discrete没成功，这里给你两个靠谱的解决办法：

方法1：把treat转成因子，关联对应标签 #

先提取treat和treatment的唯一对应关系，再用scale_x_discrete自动匹配：

# 生成treat到treatment的映射表
treat_to_label <- unique(ju_05_data[, c("treat", "treatment")])
treat_to_label <- setNames(treat_to_label$treatment, treat_to_label$treat)

ggplot(ju_05_data, aes(x = factor(treat), y = cfu_ml)) +
  geom_point() +
  stat_summary(fun = "mean", geom = "point", col = "red") +
  scale_y_log10(breaks = trans_breaks("log10", function(x) 10^x),
                labels = trans_format("log10", math_format(10^.x))) +
  scale_x_discrete(labels = treat_to_label) +  # 自动应用处理名称标签
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)) +  # 调整标签位置避免截断
  labs(title = "JU-05", y = "CFU/ml", x = "处理方式")

方法2：直接用treatment当x轴（更省心） #

既然每个处理都有重复样本，直接把x轴设为treatment，ggplot会自动按处理分组，完全不用手动映射：

ggplot(ju_05_data, aes(x = treatment, y = cfu_ml)) +
  geom_point() +
  stat_summary(fun = "mean", geom = "point", col = "red") +
  scale_y_log10(breaks = trans_breaks("log10", function(x) 10^x),
                labels = trans_format("log10", math_format(10^.x))) +
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1)) +
  labs(title = "JU-05", y = "CFU/ml", x = "处理方式")

为啥之前的方法没起效？ #

• 用scale_x_continuous不行是因为你需要把x轴从连续数值转换成离散分类，得先把treat转成因子；
• 直接用scale_x_discrete失败是因为没建立treat和treatment的正确映射关系，或者没先转换treat的类型。

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