Verschiedene Achsenbeschriftungen mit ggplot2 mit facet_wrap anzeigen

Ich habe eine Zeitreihe mit verschiedenen Variablen und verschiedenen Einheiten, die ich auf demselben Plot anzeigen möchte.

ggplot unterstützt nicht mehrere Achsen wie hier erklärt), also habe ich den Rat befolgt und versucht, die Kurven mit Facetten zu zeichnen:

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)

Hier ist das Ergebnis:

Die Sache ist, dass es nur ein y-Label gibt, das "value" sagt, und ich möchte zwei: eines mit "Currents (A)" und das andere mit "Voltage (V)".

Ist das möglich

Antworten auf die Frage(4)

Ihre Antwort auf die Frage