Lattice: Заговор две линии с различного масштаба и осей в одной и той же панели

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)