R 将两个图形合并为一个x轴和两个y轴

我想把它们结合起来。我尝试了以下代码，但结果不是很好。在联合收割机绘图中，第二个y轴和绘图1的误差条出现问题

地块1

pdf（文件=粘贴（“./plots/”，“Cog1rt.pdf”，sep=“”），宽度=16，高度=11）
请格式化代码以便于阅读。代码块的格式是每行有四个前导空格。A会很有帮助的…可能类似或感谢@poplitea编辑我的文章（第一次在这个论坛上）。也谢谢你@SandyMuspratt。我尝试了你的上一个建议，但我得到了以下错误：
d2%mutate（val=if_-else（var='value'，as.double（val），val/（max_-Fehler/max_-RZ））
mutate_-impl（.data，dots）中的错误：二进制运算符的非数字参数另外：警告消息：1：度量变量的属性不相同；它们将被删除2:In if_else（c（“value3”、“value3”、“value3”、“value3”、“value3”）：强制引入的NAs请格式化代码以确保可读性。代码块的格式是每行有四个前导空格。A会很有帮助…可能类似或感谢@poplitea编辑我的帖子（第一次在这个论坛上）。也谢谢@SandyMuspratt。我尝试了你的上一个建议，但我得到了以下错误：
d2%mutate（val=if_else（var='value'，as.double（val），val/（max_Fehler/max_RZ））
mutate_impl（.data，dots）中的错误：二进制运算符的非数字参数。此外：警告消息：1：属性在度量变量之间不相同；它们将被删除2：在if_else（c（“value3”、“value3”、“value3”、“value3”），：强制引入的NAs
pdf(file=paste("./plots/", "Cog1rt.pdf", sep=""), width=16, height=11)
p1 <- ggplot(data=datcom, aes(x=group, y=value, fill=group)) +
  geom_bar(position="dodge", size=.3,stat="identity") +  
  geom_errorbar( aes(ymax=value+1*value2, ymin=value, width=0.1,colour=group)) +
  labs(x="\n Gruppe", y="Reaktionszeit\n") + 
  facet_wrap(~rt) +
  theme_bw() %+replace%  theme(panel.background = element_rect(fill = NA))
print(p1) 
dev.off()

pdf(file="./plots/Cog1errl.pdf", width=4, height=3.5)
p2 <- ggplot(data=datcom, aes(x=group, y=value3,fill=group)) +

  geom_errorbar(aes(ymax=value3+1*value4, ymin=value3-1*value4,width=0.6)) +
  geom_point() +
  facet_wrap(~rt) +
  ylab("Fehler") +
  theme_bw() %+replace%  theme(panel.background = element_rect(fill = NA))
print(p2)

dev.off()

g1 <- ggplot_gtable(ggplot_build(p1))
g2 <- ggplot_gtable(ggplot_build(p2))

pp <- c(subset(g1$layout, grepl("panel",name) , se = t:r))

g <- gtable_add_grob(g1, g2$grobs[grep("panel",g2$layout$name)], pp$t, 
                     pp$l, pp$b, pp$l)
ia <- which(grepl("axis_l",g2$layout$name) |  grepl("axis-l",g2$layout$name)     )
ga <- g2$grobs[ia]

axis_idx <- as.numeric(which(sapply(ga,function(x) !is.null(x$children$axis))))

i <- length(axis_idx)
ax <- ga[[axis_idx[i]]]$children$axis
ax$widths <- rev(ax$widths)
ax$grobs <- rev(ax$grobs)
ax$grobs[[1]]$x <- ax$grobs[[1]]$x - unit(-0.8, "npc") + unit(-0.1, "cm")
g <- gtable_add_cols(g, g2$widths[12], 12)
g <- gtable_add_grob(g, ax, pp$t[axis_idx[i]], length(g$widths) - 3, pp$b[axis_idx[i]])
grid.newpage()
grid.draw(g)