使用带有 facet_wrap 的 ggplot2 显示不同的轴标签

发布于06月02日

我有一个包含不同变量和不同单位的时间序列，我想显示在同一个图上.

ggplot不支持多轴(as explained here)，因此我遵循建议，try 使用面绘制曲线:

x <- seq(0, 10, by = 0.1)
y1 <- sin(x)
y2 <- sin(x + pi/4)
y3 <- cos(x)

my.df <- data.frame(time = x, currentA = y1, currentB = y2, voltage = y3)
my.df <- melt(my.df, id.vars = "time")
my.df$Unit <- as.factor(rep(c("A", "A", "V"), each = length(x)))

ggplot(my.df, aes(x = time, y = value)) + geom_line(aes(color = variable)) + facet_wrap(~Unit, scales = "free_y", nrow = 2)

结果如下:

问题是只有一个y标签，上面写着"值"，我想要两个:一个是"电流(A)"，另一个是"电压(V)".

这可能吗？

推荐答案

在ggplot2_2.2.1中，可以使用facet_wrap中的strip.position参数将面板条移动为y轴标签.但是，使用这种方法时，条带标签和y轴标签并不相同，这可能并不理想.

将条形标签放置在y轴("左")上后，可以通过将命名向量指定为labeller来更改标签，以用作查找表.

条形标签可以通过strip.placement in theme移动到y轴之外.

移除条形背景和y轴标签，以获得带有两个窗格和不同y轴标签的最终图形.

ggplot(my.df, aes(x = time, y = value) ) + 
     geom_line( aes(color = variable) ) + 
     facet_wrap(~Unit, scales = "free_y", nrow = 2, 
                strip.position = "left", 
                labeller = as_labeller(c(A = "Currents (A)", V = "Voltage (V)") ) )  +
     ylab(NULL) +
     theme(strip.background = element_blank(),
           strip.placement = "outside")