47

我有大量的数据系列，我想用小倍数来绘制。ggplot2 和facet_wrap我想要的组合，通常会产生一个 6 x 6 面的漂亮小块。这是一个更简单的版本：

facet_wrap

问题是我对刻面条中的标签没有足够的控制权。数据框中的列名很短，我想保持这种方式，但我希望构面中的标签更具描述性。我可以使用facet_grid，以便我可以利用该labeller功能，但似乎没有直接的方法来指定列数，并且一长排方面不适用于此特定任务。我错过了一些明显的东西吗？

facet_grid

问：如何在使用 facet_wrap 而不更改列名的情况下更改构面标签？或者，如何在使用 facet_grid 时指定列数和行数？

下面是一个简化示例的代码。在现实生活中，我正在处理多个组，每个组包含数十个数据系列，每个系列都经常更改，因此任何解决方案都必须自动化，而不是依赖手动分配值。

require(ggplot2)
require(reshape)

# Random data with short column names
set.seed(123)
myrows <- 30
mydf <- data.frame(date = seq(as.Date('2012-01-01'), by = "day", length.out = myrows),
                   aa = runif(myrows, min=1, max=2),
                   bb = runif(myrows, min=1, max=2),
                   cc = runif(myrows, min=1, max=2),
                   dd = runif(myrows, min=1, max=2),
                   ee = runif(myrows, min=1, max=2),
                   ff = runif(myrows, min=1, max=2))

# Plot using facet wrap - we want to specify the columns
# and the rows and this works just fine, we have a little block
# of 2 columns and 3 rows

mydf <- melt(mydf, id = c('date'))

p1 <- ggplot(mydf, aes(y = value, x = date, group = variable)) +
    geom_line() +
    facet_wrap( ~ variable, ncol = 2)
print (p1)

# Problem: we want more descriptive labels without changing column names.
# We can change the labels, but doing so requires us to
# switch from facet_wrap to facet_grid
# However, in facet_grid we can't specify the columns and rows...

mf_labeller <- function(var, value){ # lifted bodily from the R Cookbook
    value <- as.character(value)
    if (var=="variable") {
        value[value=="aa"]   <- "A long label"
        value[value=="bb"]   <- "B Partners"
        value[value=="cc"]   <- "CC Inc."
        value[value=="dd"]   <- "DD Company"
        value[value=="ee"]   <- "Eeeeeek!"
        value[value=="ff"]   <- "Final"
    }
    return(value)
}

p2 <- ggplot(mydf, aes(y = value, x = date, group = variable)) +
    geom_line() +
    facet_grid( ~ variable, labeller = mf_labeller)
print (p2)
4

4 回答 4

25

我不太明白。您已经编写了一个将短标签转换为描述性长标签的函数。简单地添加一个新列并facet_wrap在该列上使用有什么问题？

mydf <- melt(mydf, id = c('date'))
mydf$variableLab <- mf_labeller('variable',mydf$variable)

p1 <- ggplot(mydf, aes(y = value, x = date, group = variable)) +
    geom_line() +
    facet_wrap( ~ variableLab, ncol = 2)
print (p1)
于 2012-04-14T07:23:33.433 回答
8

要更改标签名称，只需更改您在 中使用的因子的因子水平facet_wrap。这些将用于facet_wrap条带。您可以使用与在 中使用labeller函数类似的设置facet_grid。只需执行以下操作：

new_labels = sapply(levels(df$factor_variable), custom_labeller_function)
df$factor_variable = factor(df$factor_variable, levels = new_labels)

现在您可以factor_variable在facet_wrap.

于 2012-04-14T07:23:52.747 回答
0

只需将 labeller = label_both 添加到 facet_wrap() 参数。

... + facet_wrap( ~ variable, labeller = label_both)
于 2020-09-28T11:57:16.567 回答
0

只需添加参数labeller = label_wrap_gen(width = 25, multi_line = TRUE)即可facet_wrap()。

例如。：... + facet_wrap( ~ variable, ,labeller = label_wrap_gen(width = 25, multi_line = TRUE))

更多信息：?ggplot2::label_wrap_gen

于 2018-09-12T12:32:31.360 回答