r - R：ggplot2：使用 facet_wrap 创建边距

Question

p假设我通过单个变量划分散点图，例如

p = p + facet_wrap(~ DayOfWeek, ncol = 3)

有没有办法在图表的末尾包含一个边距，即一个不将数据分区的散点图DayOfWeek？

为任何帮助干杯

Answer 1

我能想到的最简单的方法是将数据集的副本附加到自身，DayofWeek设置为“all”，如下所示：

组成数据和基础图：

w <- c("Sun","Mon","Tues","Weds","Thurs","Fri","Sat")
f <- data.frame(x=runif(200),y=runif(200),
                DayofWeek=factor(sample(w,size=200,replace=TRUE),levels=w))
library(ggplot2)
p  <- ggplot(f,aes(x,y))+geom_point()

追加边缘化数据集：

fx <- rbind(f,transform(f,DayofWeek="all"))

替换组合数据和方面：

p %+% fx + facet_wrap(~DayofWeek,ncol=3)