格子：在同一面板中繪制具有不同比例和軸的兩條線

Question

我有這樣的事情：

a <- c(1,4,2,8)
b <- c(100,80,40, 0)
c <- 1:4
x <- rep("foo",4)
y <- rep("bar",4)

df1 <- data.frame(c, y = a, gr = x)
df2 <- data.frame(c, y = b, gr = y)
df <- rbind(df1,df2)

xyplot(y ~ c, data = df, type = "l", group = df$gr)

結果如下：

我正在尋找一種方法，允許我更改比例，以便藍線填充整個面板區域，並在圖的右側添加相應的軸。

如果添加軸太硬，則不需要。 無論如何，y軸上的單位是任意的（在我自己的數據中）。 也許一種規范化數據的方法可行嗎？

這個網站上有幾個答案，但它們都是R的基本圖形，沒有使用格子。

Answer 1

這是你想要的嗎？

library(latticeExtra)
library(dplyr)
dfgr <-df %>% filter(gr == "foo")
dfbar <-df %>% filter(gr == "bar")
obj1 <- xyplot(y ~ c, dfgr, type = "l")
obj2 <- xyplot(y ~ c, dfbar, type = "l")
doubleYScale(obj1, obj2, add.ylab2 = TRUE)