如何在ggplot2的facet_wrap中显示自定义分面标签？

问题核心是分面标签映射未正确关联目标变量，以下两种方法可快速解决：

方法一：修正labeller参数匹配分面变量 #

你的代码中labeller=labeller(group = evolveto.labs)里的group是通用占位符，需替换为实际分面变量名evolveto，让标签映射精准对应：

dataRT$evolveto=factor(dataRT$evolveto)   # evolve to visible 1  or evolve to camo 0
evolveto.labs <- c("0" = "Camouflage", "1" ="Visible")

bar3<-ggplot(dataRT, aes(gen,contrastT, fill=fiteval)) + 
  stat_summary(fun = mean, geom ="bar", position="dodge") +
  stat_summary(fun.data =mean_cl_normal, geom ="errorbar", 
               position = position_dodge(width=0.90), width =0.2) +
  labs(x="generation", y="Colour Disparity", fill="Evaluation Model") + 
  facet_wrap(~ evolveto, labeller= labeller(evolveto = evolveto.labs)) +  # 将group替换为evolveto
  labs(title = "Evolve To")
bar3

方法二：转因子时直接定义标签（更简洁） #

在将evolveto转为因子时，通过levels和labels参数直接指定显示文本，ggplot2分面会自动调用这些标签，无需额外设置labeller：

# 转因子时同步设置原始值对应显示标签
dataRT$evolveto=factor(dataRT$evolveto, 
                       levels = c("0", "1"), 
                       labels = c("Camouflage", "Visible"))

bar3<-ggplot(dataRT, aes(gen,contrastT, fill=fiteval)) + 
  stat_summary(fun = mean, geom ="bar", position="dodge") +
  stat_summary(fun.data =mean_cl_normal, geom ="errorbar", 
               position = position_dodge(width=0.90), width =0.2) +
  labs(x="generation", y="Colour Disparity", fill="Evaluation Model") + 
  facet_wrap(~ evolveto) +  # 无需额外labeller参数
  labs(title = "Evolve To")
bar3

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