如何在“.multi_line = FALSE”中删除构面标签中的逗号

Question

ggplot(mpg, aes(displ, hwy)) +
      geom_point() +
      facet_wrap(c("cyl", "drv"), labeller = labeller(.multi_line = FALSE))

我想用标签中的空格替换逗号。

Answer 1

你可以这样做 -

 ggplot(mpg, aes(displ, hwy)) +
      geom_point() +
      facet_wrap(c("cyl", "drv"), labeller = function (labels) {
      labels <- lapply(labels, as.character)
      a <-  do.call(paste, c(labels, list(sep = ",")))
      list(gsub("\\,"," ",a))
    })

注意 - 我们可以使用此方法传递任何自定义函数。

输出 -

Answer 2

mpg$label <- paste(mpg$cyl, mpg$drv)

ggplot(mpg, aes(displ, hwy)) +
      geom_point() +
      facet_wrap(~label)