如何使用dplyr/ggplot将变量交互项传入自定义绘图函数？

我懂你现在的麻烦——每次要做交叉分组的分面，都得先手动新建组合变量，实在有点繁琐。其实问题出在你处理groupVar的方式上：eval(parse(text = groupVar))没办法让ggplot正确识别公式层面的交互逻辑（它会去计算变量的乘积，而不是按交叉分组来分面）。换个思路，直接把字符串转换成ggplot能识别的公式对象就行！

修改你的函数（最简解决方案） #

只需要把facet_wrap那行代码改成用as.formula()构造公式，而不是嵌套eval(parse)：

plotFunction <- function(groupVar) {
  plot <- ggplot(data = dat) +
    geom_bar(aes(x = factor(likert))) +
    # 把传入的groupVar字符串拼成完整的分面公式
    facet_wrap(as.formula(paste("~", groupVar))) +
    ggtitle(paste('Preferences grouped by ', groupVar)) +
    theme_bw()
  return(plot)
}

测试各种场景 #

1. 单个变量（原功能完全保留） #

plotFunction(groupVar = "con1")

和你原来的代码效果一模一样，生成按con1分面的柱状图。

2. 交互项（直接传入，不用新建变量） #

plotFunction(groupVar = "con1*con2")

这时候as.formula("~con1*con2")会生成和你手动写facet_wrap(~con1*con2)完全相同的公式，ggplot会自动按con1和con2的交叉组合来分面，完美达到你想要的效果！

3. 更复杂的分组逻辑 #

甚至可以传入任意合法的分面公式，比如：

# 按两个变量分别分面（不是交叉）
plotFunction(groupVar = "con1+con2")
# 用interaction函数自定义分组
plotFunction(groupVar = "interaction(con3, con4)")

进阶：支持无引号的变量名（更贴合ggplot风格） #

如果你不想每次都加引号，想直接像写ggplot代码一样传入变量或交互项，可以用rlang的tidyeval语法来优化函数，使用起来更直观：

library(rlang)

plotFunction_tidy <- function(groupVar) {
  # 捕获传入的表达式并转成公式
  facet_expr <- enquo(groupVar)
  plot <- ggplot(data = dat) +
    geom_bar(aes(x = factor(likert))) +
    facet_wrap(facet_expr) +
    ggtitle(paste('Preferences grouped by ', quo_name(facet_expr))) +
    theme_bw()
  return(plot)
}

# 使用示例：不用引号，直接写变量或交互项
plotFunction_tidy(con1)
plotFunction_tidy(con1*con2)
plotFunction_tidy(interaction(con2, con4))

这样函数的使用逻辑和你手动写ggplot代码完全一致，用起来更顺手！

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