Question

我试图使用带有2个不同y轴的ggplot2制作图表（适当且不具误导性，我保证）。

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

我的代码非常啰嗦，所以我缩写了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)

将图例类别添加到带有两个y轴的ggplot2折线图

0 个答案: