仅在facet_grid边缘面上插入线条

Question

我想在facet_grid的边缘方面放置一条回归线，但我想出了一个奇怪的怪癖，其中非边缘方面也有冗余线。

library(ggplot2)
library(plyr)
data(diamonds) 

使用plyr构建具有斜率和截距的数据框

regdf <- ddply(diamonds, .(cut), function(i)
               lm(price ~ carat, data = i)$coefficients[1:2])

解决一些命名问题

regdf$color <- "(all)"
names(regdf)[2] <- "intercept"

p1 <- ggplot() + geom_point(aes(carat, price), data = diamonds, alpha = .4) +
             facet_grid(color ~ cut, margins = T) +
             geom_abline(aes(intercept = intercept, slope = carat), color = "red", data = regdf)

为什么我会在D颜色行上获得那些多余的线条，为什么这些面上有许多线？