在r中绘制两个纵向变量与时间的关系

Question

假设我的数据包含两个纵向变量(x1, x2)，t是时间（年），type是类：

set.seed(20)
x1 = rnorm(20,5,1) 
x2 = (x1 + rnorm(20))
t = rep(c(0,1,2,3), 5)
id = rep(1:5,each = 4)
type = as.factor(c(rep(0,8), rep(1,12)))
df = data.frame(id, t, x1, x2, type)

是否可以在一个地块中绘制x1和x2 agnist t？实际上，我试图通过修改相关矩阵来查看x1和x1之间的关系（但这里使用rnorm来简化）。

Answer 1

不确定您希望如何处理ID变量，但也许可以试试这个？

require(reshape)
df <- reshape::melt(df, id.vars = c('id', 't', 'type'))
ggplot(df, aes(x = t, y = value, color = variable)) +
    geom_line() +
    facet_wrap(~id)