R d*总结订单的重要性

以长格式考虑以下数据

library(plyr)
library(reshape2)

x <- seq(0,2*pi,length=20)
ll <- ll2 <- list(a = data.frame(x=x, y=sin(x)),
                  b = data.frame(x=x, y=cos(x)))

m <- melt(ll, id="x")
m2 <- m[sample(nrow(m)),]

head(m)
#         x variable     value L1
# 0.0000000        y 0.0000000  a
# 0.3306940        y 0.3246995  a
# 0.6613879        y 0.6142127  a
# 0.9920819        y 0.8371665  a
# 1.3227759        y 0.9694003  a
# 1.6534698        y 0.9965845  a

---

dcast不是做你想做的吗

transform( 
  dcast( m2, x + variable ~ L1 ), 
  difference = b - a 
)

---

是的，这可能是最好的办法。不幸的是，我几乎从来没有得到正确的公式。。

transform( 
  dcast( m2, x + variable ~ L1 ), 
  difference = b - a 
)