如何将 ggplot2 绘图的标签包装器放在函数内？

Question

我正在尝试编写一个函数来生成 ggplot 图。 Heroka 帮助我让我的功能正常工作。但是现在我有一个问题，关于如何在这个函数中构建一个自动标签包装器inside。我在此看到了类似且非常有用的question，但相同的代码在函数内部不起作用。

我正在重现我当前用于生成以下 ggplot 的函数：

myfunction = function (data, Variable1) {
  ggplot(data=data, aes_string(sprintf("factor(%s)",Variable1), "Variable2"))+
  geom_boxplot(fill="grey", colour="black")+
  labs(title = sprintf("%s and Variable2", Variable1)) +
  labs (x = Variable1, y = "Variable2")
}

当我尝试执行以下操作时（请注意，我正在尝试将标签包装在 ggplot 的调用中：

myfunction = function (data, Variable1) {
  ggplot(data=data, aes_string(sprintf("factor(%s)",Variable1), "Variable2"))+
  geom_boxplot(fill="grey", colour="black")+
  labs(title = sprintf("%s and Variable2", Variable1)) +
  labs (x = Variable1, y = "Variable2")+
# adding the line to wrap the labels
  scale_x_discrete(labels = function(x) str_wrap(x, width = 10))
}

它不起作用（绘图仍然生成，但好像我没有插入那条线） 我很困惑：

1. 我想我需要将附加行中的 x 更改为我的实际变量？在这种情况下是Variable1，但是当我这样做时它仍然不起作用

2. 既然我们还在 ggplot 调用中，这又是一个环境问题吗？ （例如我们需要在函数中使用aes_string 而不是aes，因为我们在本地环境中）。但是，由于在此函数中增加了一个额外的函数，我不确定我们所处的环境以及如何实现标签换行。

Answer 1

我会说它看起来一样，因为没有什么要包装的，0 和 1 太短而无法包装。我把因子加长了，所以 str_wrap 函数可以使用，在这里你可以看到它运行良好：

set.seed(123)
library(stringr)
library(ggplot2)

valstr <- c("This is value 0","This is value 1")

dat <- data.frame(Variable2=rnorm(100),
                  Variable1=valstr,
                  Variable3=sample(valstr,100,T))

myfunction_1 = function (data, Variable1) {
  ggplot(data=data, aes_string(sprintf("factor(%s)",Variable1), "Variable2"))+
    geom_boxplot(fill="grey", colour="black")+
    labs(title = sprintf("%s and Variable2", Variable1)) +
    labs (x = Variable1, y = "Variable2")
}

myfunction_2 = function (data, Variable1) {
  ggplot(data=data, aes_string(sprintf("factor(%s)",Variable1), "Variable2"))+
    geom_boxplot(fill="grey", colour="black")+
    labs(title = sprintf("%s and Variable2", Variable1)) +
    labs (x = Variable1, y = "Variable2")+
    # adding the line to wrap the labels
    scale_x_discrete(labels = function(x) str_wrap(x, width = 10))
}

p1 <- myfunction_1(dat,"Variable1")
p2 <- myfunction_2(dat,"Variable3")
grid.arrange(p1, p2, ncol=2)

屈服：