facet_grid label_both 将标签文本动态构面变量包装在闪亮图中

Question

所以我正在努力让情节按我的意愿运作。我有一个 facet_grid，其中分面的变量是在闪亮的应用程序中动态确定的...

facet_grid(facetFormula, labeller = label_both)

在哪里...

facetFormula <- as.formula(paste(input$filter2Var, "~", input$filter1Var))

这很好用，除了我宁愿换行符作为变量“名称：值”分隔符而不是冒号。我已经用其他参数（multi_line，sep）四处寻找，使用label_both() 或label_wrap_gen() 或labeller() 而不是label_both 没有括号......而且我无处可去，可能绊倒了已经很复杂的动态变量问题要处理。我尝试使用!!sym() 或as.formula() 处理这些各种函数的参数，但我真的不知道我在做什么，并且可能会在尝试向我的构面标签添加一些简单的文本换行时搞砸一些事情。非常感谢任何帮助！

更新...

cases <- c("case1_has_long_name", "case2_long_too", "case3_long_as_well", "case4_also_long", "case5_long")
the_first_variable <- cases[round(runif(100,1,3))]
variable_number_two <- cases[round(runif(100,1,5))]
var1 <- "the_first_variable"
var2 <- "variable_number_two"
facetFormula <- as.formula(paste(var1, "~", var2))
myX <- runif(100,0,10)
myY <- runif(100,-5,5)
myData <- data.frame(myX, myY, the_first_variable, variable_number_two)
ggplot(myData, aes(x = myX, y = myY)) +
  geom_point(alpha = .5) +
  facet_grid(facetFormula,
             labeller = label_both)

这会为我的问题生成一个情节，其中方面标签太大。我只是想学习如何使标签包装。考虑作为一个简单的开始，而不是“：”作为变量名和变量值之间的分隔符，我可以使用“\n”作为分隔符。将我的构面变量指定为变量本身的尴尬来自于它们在闪亮的应用程序中被动态定义。

Answer 1

包装构面标签可以这样实现：

贴标器将带有变量名称和标签的 df 作为其第一个参数。在您的情况下，一个带有一列的 df 。该列包含标签，列名是 var 名称。

为了包装标签，我在label_both 周围使用了一个包装器函数，我首先包装标签，然后将操纵的df 传递给label_both。为了使包装工作，我用空格替换了所有下划线。

library(ggplot2)

my_label <- function(x) {
  # Wrap var names
  names(x)[[1]] <- stringr::str_wrap(gsub("_", " ", names(x)[[1]]), 10)
  # Wrap value labels
  x[[1]] <- stringr::str_wrap(gsub("_", " ", x[[1]]), 10)
  # Call label both with sep "\n"
  label_both(x, sep = "\n")
}

ggplot(myData, aes(x = myX, y = myY)) +
  geom_point(alpha = .5) +
  facet_grid(facetFormula, labeller = my_label)