重新排列ANOVA的数据

Fra*_*fka 4 r

我还没有完全了解R以及如何重新排列数据.我有一个旧的SPSS数据文件需要重新排列,所以我可以在R中进行ANOVA

我当前的数据文件具有以下格式:

ONE <- matrix(c(1, 2, 777.75, 609.30, 700.50, 623.45, 701.50, 629.95, 820.06, 651.95,"nofear","nofear"), nr=2,dimnames=list(c("1", "2"), c("SUBJECT","AAYY", "BBYY", "AAZZ", "BBZZ", "XX")))
Run Code Online (Sandbox Code Playgroud)

我需要重新安排它:

TWO <- matrix(c(1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 777.75, 701.5, 700.5, 820.06, 609.3, 629.95, 623.95, 651.95), nr=8, dimnames=list(c("1", "1", "1", "1", "2", "2", "2", "2"), c("SUBJECT","AA", "ZZ", "XX", "RT")))
Run Code Online (Sandbox Code Playgroud)

我确信有一种简单的方法,而不是手工编码.谢谢你的考虑.

Jor*_*eys 9

这应该做到这一点.你可以调整一下,但这是个主意:

library(reshape)
THREE <- melt(as.data.frame(ONE),id=c("SUBJECT","XX"))
THREE$AA <- grepl("AA",THREE$variable)
THREE$ZZ <- grepl("ZZ",THREE$variable)
THREE$variable <- NULL

# cleanup
THREE$XX <- as.factor(THREE$XX)
THREE$AA <- as.numeric(THREE$AA)
THREE$ZZ <- as.numeric(THREE$ZZ)
Run Code Online (Sandbox Code Playgroud)