如何在ggplot的facet_wrap()中用labeller匿名函数添加标签前缀

你之前的代码不符合预期，是因为传递给labeller的匿名函数参数x是一个数据框，而非单个标签值，直接用paste会把整个数据框转为字符串，导致显示异常。以下是几种可行的调整方法：

方法1：提取数据框中的对应列进行拼接 #

直接从数据框x中取出分面变量z的列值，再和前缀拼接：

library(ggplot2)

df <- data.frame(
  x = rnorm(120, c(0, 2, 4)),
  y = rnorm(120, c(1, 2, 1)),
  z = letters[1:3]
)

ggplot(df, aes(x, y)) + 
  geom_point() + 
  facet_wrap(~z, labeller = \(x) paste("Foo = ", x$z))

方法2：使用ggplot内置的label_bquote函数 #

这是更简洁的方式，通过label_bquote直接构造带表达式的标签：

ggplot(df, aes(x, y)) + 
  geom_point() + 
  facet_wrap(~z, labeller = label_bquote(Foo = .(z)))

方法3：用as_labeller包装字符处理函数 #

如果需要更通用的字符处理逻辑，可以用as_labeller把普通函数转换为labeller兼容的形式：

ggplot(df, aes(x, y)) + 
  geom_point() + 
  facet_wrap(~z, labeller = as_labeller(function(x) paste("Foo = ", x)))

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