"Метки сверху" с помощью facet_grid или "опция пробела" с помощью facet_wrap

Question

facet_grid позвольте мне измерить ширину каждой грани в соответствии с количеством элементов на оси у (space аргумент):

df <- data.frame(label = c("Variable one", rep("Variable two", 2), rep("Variable three", 3)), item = c("A", "B", "C", "D", "E", "F"), value = rnorm(6))
ggplot(df, aes(x = value, y = item)) + 
geom_point() + 
facet_grid(label ~ ., scales = "free_y", space = "free_y") + 
ylab("") + 
theme(strip.text.y = element_text(angle=0))

Но мне бы хотелось, чтобы надписи на фасетках были сверху, поэтому я переключаюсь на facet_wrapи потерял space аргумент (грани имеют одинаковую ширину):

ggplot(df, aes(x = value, y = item)) + 
geom_point() + 
facet_wrap(~ label, scales = "free_y", ncol = 1) + 
ylab("")

Можно ли получить лучшее из обоих миров?

Спасибо заранее за вашу помощь.

Answer 1

Это можно сделать вручную. Соотношение высот трех панелей на желаемом участке составляет примерно 1:3:2. Высоту трех панелей можно отрегулировать, изменив гроб:

library(ggplot2)
library(grid)
df <- data.frame(label = c("Variable one", rep("Variable two", 2), rep("Variable three", 3)), item = c("A", "B", "C", "D", "E", "F"), value = rnorm(6))

p1 = ggplot(df, aes(x = value, y = item)) + 
geom_point() + 
facet_wrap(~ label, scales = "free_y", ncol = 1) + 
ylab("")

g1 = ggplotGrob(p1) 

g1$heights[[7]] = unit(1, "null")
g1$heights[[12]] = unit(3, "null")
g1$heights[[17]] = unit(2, "null")

grid.newpage()
grid.draw(g1)

Или высоты могут быть такими же, как на исходном графике:

p2 = ggplot(df, aes(x = value, y = item)) + 
geom_point() + 
facet_grid(label ~ ., scales = "free_y", space = "free_y") + 
ylab("") + 
theme(strip.text.y = element_text(angle=0))

g2 = ggplotGrob(p2) 

g1$heights[[7]] = g2$heights[[6]]
g1$heights[[12]] = g2$heights[[8]]
g1$heights[[17]] = g2$heights[[10]]

grid.newpage()
grid.draw(g1)

Или высоты могут быть установлены без привязки к исходному графику. Они могут быть установлены в зависимости от количества items для каждого label в df, И заимствуем некоторый код из ответа @ baptiste здесь, чтобы выбрать элементы из макета, соответствующего панелям:

# From 'df', get the number of 'items' for each 'label'.
# That is, the number y-breaks in each panel.
library(plyr)
N = dlply(df, .(label), function(x) length(row.names(x)))

# Get the items in the g1 layout corresponding to the panels.
panels1 <- g1$layout$t[grepl("panel", g1$layout$name)]

# Replace the default panel heights with relative heights
g1$heights[panels1] <- unit(N, "null")

## Draw g1
grid.newpage()
grid.draw(g1)

Answer 2

Я не думаю, что эта функция существует или планируется реализовать в ggplot2( см. закрытую тему, посвященную этой функции)

Тем не менее ggforce пакет поддерживает то, что вы ищете

library(ggplot2)
library(ggforce)
df <- data.frame(label = c("Variable one", rep("Variable two", 2), rep("Variable three", 3)), item = c("A", "B", "C", "D", "E", "F"), value = rnorm(6))
  
ggplot(df, aes(x = value, y = item)) + 
  geom_point() + 
  ggforce::facet_col(facets = vars(label), 
                     scales = "free_y", 
                     space = "free") +
  ylab("") + 
  theme(strip.text.y = element_text(angle=0))

^{Создано 2020-06-28 пакетом REPEX (v0.3.0)}

Answer 3

Я не знаю как это сделать в ggplot, но вы можете добиться аналогичного макета с ggplot Оид стиль с использованием latticeExtra:

library(latticeExtra)
df$label <- factor(df$label, levels = unique(df$label))

dotplot(item ~ value | label, data = df,
        layout = c(1, 3),
        as.table = TRUE,
        scales = list(y = list(relation = "free")),
        par.settings = ggplot2like())
resizePanels()