У меня есть большое количество рядов данных, которые я хочу построить, используя маленькие кратные. Комбинация ggplot2 и facet_wrap
делает то, что я хочу, обычно получая красивый небольшой блок 6 x 6 граней. Вот более простая версия:
Проблема в том, что у меня нет адекватного контроля над метками в фасетных полосах. Имена столбцов во фрейме данных короткие, и я хочу, чтобы они оставались такими, но я хочу, чтобы метки в фасетах были более наглядными. Я могу использовать facet_grid
, чтобы воспользоваться преимуществами функции labeller
, но тогда, похоже, нет простого способа указать количество столбцов, а длинная строка фасетов просто не работает для этой конкретной задачи. Я упускаю что-то очевидное?
В. Как изменить метки фасетов при использовании обтекания фасетов_без изменения имен столбцов? В качестве альтернативы, как я могу указать количество столбцов и строк при использовании сетки facet_?
Далее следует код для упрощенного примера. В реальной жизни я имею дело с несколькими группами, каждая из которых содержит десятки рядов данных, каждый из которых часто меняется, поэтому любое решение должно быть автоматизировано, а не полагаться на ручное присвоение значений.
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)