R 如何在保留变量名称的同时在 ggplot 中包装小平面标签

发布于03月21日

我正在用多个面绘制一张GGPLATE图.我想包装方面标签，我知道我可以通过LABEL_WRAP_Gen函数来实现这一点，但是这会模糊变量名并且只显示值.如何在保留方面变量的同时包装标签？

library(ggplot2)

# Create example data
df <- data.frame(x = rnorm(100), y = rnorm(100), 
     a = sample(c("Group 1", "Group 2"), 50, replace = TRUE),
     b = sample(c("Group 1", "Group 2"), 50, replace = TRUE))

LABEL_WRAP_Gen包装标签:

# Create plot with facet wrap and custom labeller
ggplot(df, aes(x, y)) +
  geom_point() +
  facet_grid(a~b, labeller = label_wrap_gen(10))

LABEL_BOTH保留变量名称:

# Create plot with facet wrap and custom labeller
ggplot(df, aes(x, y)) +
  geom_point() +
  facet_grid(a~b, labeller = label_both)

有没有一种解决方案可以同时做到这两点？

Option 1: change the faceting variables

这可能是最简单的:

transform(df, a = paste("a:", a), b = paste("b:", b)) |>
  ggplot(aes(x, y)) +
  geom_point() +
  facet_grid(a~b, labeller = label_wrap_gen(6))

我用了transform，可以用$<-或dplyr::mutate，或者其他几种方法中的一种.这可以被泛化，以便在需要时可以通过编程来完成.当做这样的事情时，我really更喜欢如上所述地做inline，并且不在df中改变静态数据；做后一种做法有可能使我两次应用它们和/或使它们出现在不需要组合的绘图后渲染(更多的图、表)中.在这种情况下，内联操作会更"安全"一些.

Option 2: custom function

label_wrap_gen_both <- function(width = 25, multi_line = TRUE, sep = ": ") {
  fun <- function(labels) {
    value <- label_value(labels, multi_line = multi_line)
    variable <- ggplot2:::label_variable(labels, multi_line = multi_line)
    if (multi_line) {
        out <- vector("list", length(value))
        for (i in seq_along(out)) {
            out[[i]] <- paste(variable[[i]], value[[i]], sep = sep)
        }
    }
    else {
        value <- inject(paste(!!!value, sep = ", "))
        variable <- inject(paste(!!!variable, sep = ", "))
        out <- Map(paste, variable, value, sep = sep)
        out <- list(unname(unlist(out)))
    }
    lapply(out, function(st)
      vapply(strwrap(st, width = width, simplify = FALSE), paste, character(1), collapse = "\n"))
  }
  structure(fun, class = "labeller")
}

ggplot(df, aes(x, y)) +
  geom_point() +
  facet_grid(a~b, labeller = label_wrap_gen_both(6))

(剧情同上)