Я хотел бы выборочно удалить ненужные фасеты из фасетной фигуры ggplot2. Я посмотрел на этот вопрос, но не смог понять, как это сделать (возможно, совет там уже устарел):

добавление пустых графиков в facet_wrap в ggplot2

Вот минимальный пример. Я хотел бы удалить пустую грань справа внизу (b, 2).

library('ggplot2')
d <- data.frame('factor_1' = factor(c('a', 'a', 'b')),
                'factor_2' =    factor(c('1', '2', '1')),
                x = 1:3, y = 1:3)

ggplot(data = d, mapping = aes(x = x, y = y)) +
  geom_point() +
  facet_grid(facets = factor_1 ~ factor_2, drop = TRUE)

enter image description here

Очевидно, что drop = TRUE здесь не действует, потому что нет неиспользованных уровней факторов, а есть только неиспользованные их комбинации.

6
NoBackingDown 25 Ноя 2016 в 17:33

2 ответа

Лучший ответ

В ggplot2 2.2.0 имена гробов на сюжете изменились.

library(ggplot2)
library(grid)
d <- data.frame('factor_1' = factor(c('a', 'a', 'b')),
                'factor_2' =    factor(c('1', '2', '1')),
                x = 1:3, y = 1:3)

p = ggplot(data = d, mapping = aes(x = x, y = y)) +
  geom_point() +
  facet_grid(facets = factor_1 ~ factor_2, drop = TRUE)

# Get ggplot grob
g = ggplotGrob(p)

# Get the layout dataframe. 
# Note the names.
# You want to remove "panel-2-2"
g$layout

# gtable::gtable_show_layout(g) # Might also be useful

# Remove the grobs
# The grob needs to be remove,
#  and the relevant row in the layout data frame needs to be removed
pos <- grepl(pattern = "panel-2-2", g$layout$name)
g$grobs <- g$grobs[!pos]
g$layout <- g$layout[!pos, ]


# Alternatively, replace the grobs with the nullGrob
g = ggplotGrob(p)
pos <- grep(pattern = "panel-2-2", g$layout$name)
g$grobs[[pos]] <- nullGrob()

# If you want, move the axis
# g$layout[g$layout$name == "axis-b-2", c("t", "b")] = c(8, 8)

# Draw the plot
grid.newpage()
grid.draw(g)

enter image description here

Ответ в вашей ссылке нужно изменить примерно так:

n <- 1000
df <- data.frame(x = runif(n), y=rnorm(n), label = sample(letters[1:7], 
                 size = n, replace = TRUE), stringsAsFactors=TRUE)
df$label.new <- factor(df$label, levels=sort(c(""," ",levels(df$label))))


p <- ggplot(df, aes(x=x, y=y)) + geom_point() + 
         facet_wrap(~ label.new, ncol=3,drop=FALSE)

g = ggplotGrob(p)

g$layout # Note the names and their positions (t, b, l, r)
# gtable::gtable_show_layout(g) # Might also be useful

pos <- g$layout$name %in% c("panel-1-1", "panel-1-2", "strip-t-1-1", "strip-t-2-1")
g$grobs <- g$grobs[!pos]
g$layout <- g$layout[!pos, ]

# Or replace the grobs with the nullGrob
g = ggplotGrob(p)
pos <- g$layout$name %in% c("panel-1-1", "panel-1-2", "strip-t-1-1", "strip-t-2-1")
g$grobs[pos] <- list(nullGrob())

# Move the axis
g$layout[g$layout$name == "axis-l-1-1", c("l", "r")] = c(10,10)

grid.newpage()
grid.draw(g)
3
Sandy Muspratt 30 Ноя 2016 в 01:35

Не лучшее решение, но дает удовлетворительный результат:

    d$fInter <- interaction(d$factor_2, d$factor_1, sep = ' V ')

    ggplot(data = d, mapping = aes(x = x, y = y)) +
      geom_point() +
      facet_wrap(~ fInter, drop = TRUE, 
                 ncol = nlevels(d$factor_1))

И сюжет:

Plot

2
Andrey Kolyadin 25 Ноя 2016 в 14:41