0

我正在尝试使用ggplot22 个不同的 y 轴制作图表（我保证，适当且不会误导）。

我有第一张图的图例，但我似乎无法为第二张图添加一个图例。我也不能标记这个轴。

我的代码很冗长，所以我缩写了 of 的编码，p1因为我认为我不需要更改它。

p1 <- p + theme(legend.position = "top")    
p2 <- ggplot(concB.only.for.R, aes(ConcB.ml, ConcB))     
        geom_line(colour = "#000099") + theme_bw() +
        theme(panel.background = element_rect(fill = NA)) +
        theme(legend.position = "top")
g1 <- ggplot_gtable(ggplot_build(p1))    
g2 <- ggplot_gtable(ggplot_build(p2))     
pp <- c(subset(g1$layout, name == "panel", se = t:r))     
g <- gtable_add_grob(g1, g2$grobs[[which(g2$layout$name == "panel")]], 
       pp$t, + pp$l, pp$b, pp$l)     
ia <- which(g2$layout$name == "axis-l")     
ga <- g2$grobs[[ia]]     
ax <- ga$children[[2]]     
ax$widths <- rev(ax$widths)     
ax$grobs <- rev(ax$grobs)     
ax$grobs[[1]]$x <- ax$grobs[[1]]$x - unit(1, "npc") + unit(0.15, "cm")     
g <- gtable_add_cols(g, g2$widths[g2$layout[ia, ]$l], length(g$widths) - 1)    
g <- gtable_add_grob(g, ax, pp$t, length(g$widths) - 1, pp$b)     
grid.draw(g)
4

0 回答 0