Tegyük fel, hogy van egy adatom, amely 3 külön adatot tartalmaz. Itt vannak az adataim;
data<-structure(list(x = structure(list(value = c(2L, 4L, 5L, 6L, 9L,
4L, 3L, 2L, 10L, 6L)), .Names = "value", class = "data.frame", row.names = c(NA,
-10L)), y = structure(list(value = c(2, 2.1, 4, 3, 0, 1.2, 4.2,
3, 4, 9)), .Names = "value", class = "data.frame", row.names = c(NA,
-10L)), z = structure(list(value = c(1, 2, 7, 6, 0.3, 5.4, 4,
3, 6, 7)), .Names = "value", class = "data.frame", row.names = c(NA,
-10L))), .Names = c("x", "y", "z"))
És itt van a mintafüggvényem;
sam<-function(x) {
ex<-c(3,2,4,5,2)
z<-data.frame(x)
y<-as.matrix(sapply(z, as.numeric))
h<-lapply(c(2,5,10), function(xx) tapply(y, as.integer(gl(nrow(x), xx, nrow(x)) ), FUN = sum))
names(h)<-c("min2", "min5", "min10")
min2<-h[[1]]
pdf("plots.pdf")
plot(min2, ex, main="min. compare",
xlab="Historical Values ", ylab="Disaggregated Values", pch=19, col = "blue")
dev.off()
return(h)
}
A függvényben a képen látható módon összesítem az értékeket. Aztán min2 ábrázolása ex adatokkal.
Az alábbi kóddal megpróbáltam használni a funkciót minden adathoz, mint pl.
v1<-sapply(data, sam)
De nem látom a számítás nevét, mint min2 min5 min10 az eredménylistában. És az eredmények is komplexen érkeznek, nem a x, y és z alatt
erre a kettőre vágyom;
1) Az eredmények csoportosítása az egyes adatnevek alatt. Mint;
[x] [y] [z]
min2 min2 min2
min5 min5 min5
min10 min10 min10
2) Ábrázolja a kívántakat az összes x, y és z számára a fent említett módon. És exportáljon három telket egy pdf-be vagy külön.
