小编Tip*_*top的帖子

关于如何将两个相同的 y 轴标题“合并”为一个，然后将此 y 轴标题放置在图之间的中间，有什么想法吗？我已经成功地通过使用合并图例 plot_layout(guides = "collect")，但我似乎找不到任何类似的轴。在这种情况下，我会将名为 disp_disp_disp 的两个轴标题合并为一个。

mtcars

library(ggplot2)
library(patchwork)

p1 <- ggplot(mtcars) + 
  geom_point(aes(mpg, disp)) + 
  labs(x = "mpg", y = "disp_disp_disp_disp_disp")

p2 <- ggplot(mtcars) + 
  geom_boxplot(aes(gear, disp, group = gear)) + 
  labs(x = "gear", y = "disp_disp_disp_disp_disp")

p3 <- ggplot(mtcars) + 
  geom_point(aes(hp, wt, colour = mpg)) + 
  ggtitle('Plot 3')

p1 / (p2 | p3)

我测过acetone和乙醛from twosoil_types : A andBthree times across 94天的排放量` ``。

我已经计算并可视化了随时间的累积发射，但是我在放置 CI 95% 波段 (+/-2 SD) 或什至简单的误差条时遇到了问题。

这是我设法做到的：

df_cum <- df%>%
  group_by(soil_type, compound, days)%>%
  summarise(mean=mean(emission))%>%
  mutate(cum_emission=cumsum(mean)) 


  plot <- ggplot(df_cum, aes(x = days, y = cum_emission, colour=soil_type)) + 
    geom_line(size = 1)+
    geom_point()+
    scale_colour_manual(values=c("#00AFBB", "brown")) + 
    scale_size_manual(values=c(8.4, 1.7))+
    labs(x = "Time (days)", 
         y = "Cumulated production (umol/g dw soil)", 
         title = "Cumulated production") + 
    labs(shape="", color="") +
    facet_wrap(~compound)+
    theme_bw()

给这个：

我希望能够在我的图中放置误差线，或者使用 CI 绘制与此类似的图：

数据如下所示：

df <- …