这个想法取自this https://stackoverflow.com/a/25643585/324364 answer.
p <- ggplot(data = mydf) +
geom_line(aes(x = YEARMONTH, y = NEWCONS, group = 1), color="darkseagreen3") +
geom_line(aes(x = YEARMONTH, y = DEMOLITIONS, group = 1), color = "black") +
theme_minimal() +
labs(title="New constructions Vs Demolitions (2010 - 2014)\n") +
theme( axis.line = element_blank(),
axis.title.x = element_blank(),
axis.text.x = element_blank()) +
facet_wrap(~ NB)
请注意以下的变化theme
调用,以便我们稍后可以有选择地删除一些 grobs。
library(gtable)
p_tab <- ggplotGrob(p)
print(p_tab)
因此,我们要删除左轴项目中除四个项目之外的所有项目。有一个gtable_filter
使用正则表达式的函数,但编写我自己的函数来执行简单的负子集设置会更简单(因为我无法制作正确的正则表达式):
gtable_filter_remove <- function (x, name, trim = TRUE){
matches <- !(x$layout$name %in% name)
x$layout <- x$layout[matches, , drop = FALSE]
x$grobs <- x$grobs[matches]
if (trim)
x <- gtable_trim(x)
x
}
p_filtered <- gtable_filter_remove(p_tab,name = paste0("axis_l-",5:16),trim=FALSE)
library(grid)
grid.newpage()
grid.draw(p_filtered)