如何使 R 中 ggplot 圖形的 y 軸標簽重疊

Question

下面兩個圖的 y 軸是相同的（即mpg ）並且具有相同的比例。 我希望左側的圖形與右側圖形的 y 軸重疊，這樣您就只能看到右側圖形的 y 軸的刻度線。

下面的代碼生成兩個圖形並對齊它們，但是您仍然可以看到右側圖形的 y 軸標簽。

library(ggplot2)
library(ggpubr)

p1 <- ggplot(mtcars) + 
  geom_point(aes(x=disp,y=mpg)) +
  theme_bw() +
  theme(panel.grid = element_blank(),
        text = element_text(size = 16),
        axis.text.x = element_text(size = 16, color = "black"),
        axis.text.y = element_text(size = 16, color = "black"))

p2 <- ggplot(mtcars) + 
  geom_point(aes(x=hp,y=mpg)) +
  theme_bw() +
  theme(panel.grid = element_blank(),
        text = element_text(size = 16),
        axis.text.x = element_text(size = 16, color = "black"),
        axis.text.y = element_text(size = 16, color = "black"))

ggarrange(p1,p2,nrow = 1)

理想的 output 如下所示：

Answer 1

只需將axis.text.y = element_blank(), axis.title.y = element_blank())添加到您的代碼中：

library(ggplot2)
library(ggpubr)

p1 <- ggplot(mtcars) + 
  geom_point(aes(x=disp,y=mpg)) +
  theme_bw() +
  theme(panel.grid = element_blank(),
        text = element_text(size = 16),
        axis.text.x = element_text(size = 16, color = "black"),
        axis.text.y = element_text(size = 16, color = "black"))

p2 <- ggplot(mtcars) + 
  geom_point(aes(x=hp,y=mpg)) +
  theme_bw() +
  theme(panel.grid = element_blank(),
        text = element_text(size = 16),
        axis.text.x = element_text(size = 16, color = "black"),
        axis.text.y = element_blank(),
        axis.title.y = element_blank())



ggarrange(p1,p2,nrow = 1)

Answer 2

您可以pivot_longer您的數據幀，然后使用facet_wrap ：

df = tidyr::pivot_longer(mtcars, cols=c("disp", "hp"))

ggplot(df) + 
  geom_point(aes(x=value,y=mpg)) +
  facet_wrap(vars(name)) +
  theme_bw() +
  theme(panel.grid = element_blank(),
        text = element_text(size = 16),
        axis.text.x = element_text(size = 16, color = "black"),
        axis.text.y = element_text(size = 16, color = "black"))

Output：