R 如何将镶嵌面标签移动到图形顶部？

我可以像这样创建一个刻面图，其中3个图垂直堆叠：

是否可以将标签移动到每个图形的顶部，就像我使用

facet\u网格（.~Species）

进行水平堆叠一样

之所以要这样做，是因为我的图是长时间序列图，所以我想要每个图的全宽，但每个图的标签（基本上用作解释面的标题）太长，无法放入图右侧的小标签区域。

尝试以下方法：

ggplot(iris, aes(Petal.Length)) + stat_bin() + facet_wrap(~Species,nrow = 3)

---

是的。使用

facet\u wrap

而不是

facet\u grid

，并确保同时指定参数

ncol=1

：

ggplot(iris, aes(Petal.Length)) + stat_bin() + facet_wrap(~Species, ncol=1)

---

@Andrie至少我们做的有点不同：我设置了

nrow=3

，而你设置了

ncol=1

！哇，我不知道。非常漂亮+1非常好。我想我更喜欢

ncol=1

，因为这样我就不必测量有多少行了。看起来另一个解决方案是使用

geom_text（）

添加标签，这样就不会占用绘图空间。但是我必须弄清楚如何删除刻面标签框。@KenWilliams

选择（strip.background=theme\u blank（））

y轴每次最多有25个。任何一个都应该具有将轴设置为每个面适当范围的原始行为？添加

facet\u wrap（~Species，ncol=1，scales=“free\u y”）

ggplot(iris, aes(Petal.Length)) + stat_bin() + facet_wrap(~Species, ncol=1)