ggplot2：从图中删除未使用的因子水平组合的方面（facet_grid） [英] ggplot2: Deleting facets of unused factor level combinations from a plot (facet_grid)

问题描述

我想选择性地删除一个刻面的ggplot2图中不必要的方面。我看了一下这个问题，但不知道该怎么做（也许现在的建议已经过时了）：

显然 drop = TRUE 不起作用这里是因为没有未使用的因素级别，但只有未使用的组合。

解决方案

在ggplot2 2.2.0中，grobs在情节中已经改变。

  library（ggplot2）
库（网格）
d<  -  data.frame（'factor_1' =因子（c（'a'，'a'，'b'）），
'factor_2'=因子（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）
 
＃获取ggplot grob 
g = ggplotGrob（p）
 
＃获取布局数据框。 
＃请注意名称。 
＃你想删除panel-2-2
g $ layout 
 
＃gtable :: gtable_show_layout（g）＃也许有用
 
＃删除grobs 
＃grob需要删除，
＃并且需要删除布局数据框中的相关行
 pos < -  grepl（pattern =panel- 2-2，g $ layout $ name）
g $ grobs<  -  g $ grobs [！pos] 
g $ layout<  -  g $ layout [！pos，] 
 
 
＃或者，将grober替换为nullGrob 
g = ggplotGrob（p）
 pos<  -  grep（pattern =panel-2-2，g $ layout $ name） 
g $ grobs [[pos]]<  -  nullGrob（）
 
＃如果需要，移动轴
＃g $ layout [g $ layout $ name == （8,8）
 
＃绘制绘图
 grid.newpage（）
b-2，c（t，b）] = c grid.draw（g）
  

您的链接中的答案将需要修改如下所示：

  n < -  1000 
 df < -  data.frame（x = runif（ n），y = rnorm（n），label = sample（字母[1：7]，
 size = n，replace = TRUE），stringsAsFactors = TRUE）
 df $ label.new <因子（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）
 $ bg = ggplotGrob（p）
 
g $ layout＃注意名称及其位置（t，b，l，r）
＃gtable :: gtable_show_layout（g）＃也许有用
 
 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，] 
 
＃或者将grober替换为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（））
 
＃移动坐标轴
g $布局[g $ layout $ name ==axis-l-1-1，c（l，r）] = c（10,10）
 
 grid.newpage（） 
 grid.draw（g）
  

I would like to selectively delete unnecessary facets from a facetted ggplot2 figure. I had a look at this question but could not figure out how to do it (maybe the advise there is outdated now):

adding empty graphs to facet_wrap in ggplot2

Here is a minimal example. I would like to remove the empty facet at the right bottom (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)

Obviously drop = TRUE has no effect here because there are no unused factor levels but only unused combinations thereof.

解决方案

In ggplot2 2.2.0, the names of the grobs in a plot have changed.

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)

The answer in your link would need to be modified something like this:

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)

这篇关于ggplot2：从图中删除未使用的因子水平组合的方面（facet_grid）的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！