Yönlü zaman serisi, aşağıdaki simüle zaman serisi kullanılarak

Question

:

n=70 
m1 = matrix(rnorm(n), ncol=7) 
m2 = matrix(rnorm(n, 0,4), ncol=7) 
d = data.frame(rbind(m1,m2), cl=rep(c(1,2), each=5)) 

(ilk 7 sütun zaman noktasını temsil eder, son sütun sınıfı)

bir yönlü oluşturmak için mümkün mi ggplot2 kullanarak her arsada ortalama eğriyi içeren zaman serileri?

Answer 1

En güzel kod olmayabilir ama

n=70 
m1 = matrix(rnorm(n), ncol=7) 
m2 = matrix(rnorm(n, 0,4), ncol=7) 
d = data.frame(rbind(m1,m2), cl=rep(c(1,2), each=5)) 

d <- cbind(paste("d", 1:NROW(d), sep = ""), d) 
names(d)[1] <- "id.var" 

library(reshape) 
longDF <- melt(d, id=c("cl", "id.var")) 
library(ggplot2) 

p <- ggplot(data = longDF, aes(x = variable, y = value, group = id.var)) 
p + geom_line() + stat_smooth(aes(group = 1), method = "lm", 
se = FALSE, colour="red") + facet_grid(cl ~ .) 

çekinmeyin, sizin aradığınızı alır inanıyoruz:

sonuçları bu gibi görünmelidir kodumu geliştirmek için.