Ich war so froh, den größten Teil einer Lösung für meine Frage in der Post zu finden,"Force X-Achsentext für alle Facetten eines facet_grid-Diagramms ein".

Ich möchte ein Diagramm erstellen, das dem OP Drew Steen ähnelt, mit der Ausnahme, dass ich mehr als zwei Facettenreihen habe und die Beschriftungen der x-Achsen für jede Zeile unterschiedlich gestalten möchte.

Ich habe eine super-hackige Lösung aus @baptistes großartiger Antwort gemacht (hauptsächlich, weil ich mit dem gtable-Paket nicht vertraut bin), und ich würde gerne wissen:

Wenn es eine elegantere Lösung gibt als das Chaos, das ich unten geschrieben habeWie füge ich Beschriftungen für die "Premium" (mittlere) Zeile ein?

Hier ist der Code, den ich von @Drew Steen und @ baptiste, @ adaptiert ha

library(ggplot2)

diamondSub <-subset(diamonds, (cut=="Ideal" | cut=="Premium" | cut == "Very Good") & (color=="E" | color=="I"))

p<- ggplot(diamondSub, aes(x=carat, y=price)) + 
  geom_blank()+ 
  geom_point() +
  scale_x_discrete(breaks=c(1, 2, 3, 4), labels=c("a", "b", "c", "d")) +
  facet_grid(cut~color, scales="free_x")
p

p2<- ggplot(diamondSub, aes(x=carat, y=price)) + 
  geom_blank()+ 
  geom_point() +
  scale_x_discrete(breaks=c(1, 2, 3, 4), labels=c("f", "g", "h", "i")) +
  facet_grid(cut~color, scales="free_x")
p2

library(gtable)

g <- ggplotGrob(p)
g2 <- ggplotGrob(p2)

# locate the panels
panels <- grep("panel", g$layout$name)
panels2 <- grep("panel", g2$layout$name)

top <- unique(g$layout$t[panels])
top2 <- unique(g2$layout$t[panels2])
# intersperse a copy of the bottom axes
all <- gtable:::rbind_gtable(gtable:::rbind_gtable(g[seq.int(min(top)), ], 
                                                   g[max(top)+1,], "first"), 
                             g2[seq(min(top2)+1, nrow(g2)),], "first")
grid.newpage()
grid.draw(all)