我正在使用patchwork包來安排多個繪圖。其中一個圖的文本是垂直排列的，這就把X軸標簽往下推了（應該如此），但是當我與第二個圖結合時，兩個圖的X軸標簽都往下移。我想讓第二個圖的X軸標簽保持在原來的位置。用一個例子來解釋比較容易：
library(ggplot2)
library(patchwork)
# Toy資料
mtcars2 <- mtcars[1。 5, ]/span>
mtcars2$mod <- row.names（mtcars2）
# make 2 plot
p1 < - ggplot(mtcars2, aes（mod, mpg))
geom_col()
主題(axis.text。 x = element_text(angle = 90。 vjust = 0, hjust = 1））
p2 < - ggplot(mtcars2, aes(hp, disp))
geom_point()
# 安排圖塊相鄰
p1 p2
但是我想：
這可能嗎？我沒有系結patchwork，我試過gridExtra::grid.arrange()，但這反而調整了繪圖的大小。
uj5u.com熱心網友回復：
使用library(cowplot)，p2的x軸將下降，不像你的例子那樣，但我希望它能幫助你。如果你需要讓x軸的位置在同一位置，請讓我知道。
來自@phalteman的補充說明
通過在plot_grid中添加, align = "h", axis = "b"，它真的變成了你想要的樣子！！
library(cowplot)
mtcars2 <- mtcars[/span>1。 5, ]/span>
mtcars2$mod <- row.names（mtcars2）
# make 2 plot
p1 < - ggplot(mtcars2, aes（mod, mpg))
geom_col()
主題(axis.text。 x = element_text(angle = 90。 vjust = 0, hjust = 1））
p2 < - ggplot(mtcars2, aes(hp, disp))
geom_point()
# 安排圖塊彼此相鄰
plot_grid(p1,p2。 對齊= "h"。 軸= "b"） #Thanks to @phalteman
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/318925.html
標籤：