如何在R中使ggplot图形的y轴标签重叠

下面两幅图的y轴相同（即，

mpg

），并且具有相同的比例。我希望左侧的图形与右侧图形的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)

下面的代码生成两个图形并将它们对齐，但是您仍然可以在右侧看到该图形的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)

库（ggplot2）
图书馆（ggpubr）
p1您可以
pivot\u long
您的数据帧，然后使用
facet\u 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"))

输出：

只需将
axis.text.y=element\u blank（），axis.title.y=element\u 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)

库（ggplot2）
图书馆（ggpubr）
p1是的，这是一个答案，但我避免使用
facet_wrap
，因为输出看起来不好（即那些标题，在右图上看不到记号，在右图的x轴上更改了比例）。是的！这就是我在
p2
主题中通过以下更新寻找的内容<代码>主题（panel.grid=element\u blank（），text=element\u text（size=16），axis.text.x=element\u text（size=16，color=“black”），axis.text.y=element\u blank（），axis.title.y=element\u blank（））