目前我的数据设置如下：
Question Type Student Bin1 Bin2 Bin3
1 Q SNR 789331 4.25 4.00 4.666667
2 Q2 SNR 789331 3.75 2.50 3.000000
3 Q8 SNR 789331 4.00 2.50 3.333333
4 Q10 SNR 789331 4.00 2.75 3.333333
5 Q12 SNR 789331 3.50 3.25 3.666667
6 Q SNR 805933 4.25 4.00 NA
但我想把它转换成这个：
Student Question Type timePeriod Rating
1 789331 Q SNR Bin 1 4.666667
2 789331 Q2 SNR Bin 1 3.000000
3 789331 Q8 SNR Bin 1 3.333333
4 789331 Q10 SNR Bin 1 3.333333
5 789331 Q12 SNR Bin 1 3.666667
6 805933 Q SNR Bin 2 NA
我写的代码是：
pulse1<-NULL
timePeriods<-c("Bin 1", "Bin 2", "Bin 3")
for (columnNumber in 1:3)
{
temp.data<-data.frame(Student=pulse$Student, Question=pulse$Question, Type=pulse$Type, timePeriod=timePeriods[columnNumber], Rating=pulse[, columnNumber+3])
pulse1<-rbind(pulse1, temp.data)
}
head(pulse1)
但是，此代码看起来不起作用。它不是梳理最后三列，而是取第一列（即＆＃34; Bin1）。
我是一个完整的R初学者，非常感谢任何帮助！
这个问题与之前的问题posted有关，但是我要退一步，因为我的另一个问题似乎只是略过了问题的表面。这个是澄清我最初打算做什么甚至根本没有发生。
我的数据如下：
> dput(pulse)
structure(list(Question = c("Q", "Q2", "Q8", "Q10", "Q12", "Q",
"Q2", "Q8", "Q10", "Q12", "Q", "Q2", "Q8", "Q10", "Q12", "Q",
"Q2", "Q8", "Q10", "Q12", "Q", "Q2", "Q8", "Q10", "Q12", "Q",
"Q2", "Q8", "Q10", "Q12", "Q", "Q2", "Q8", "Q10", "Q12", "Q",
"Q2", "Q8", "Q10", "Q12", "Q", "Q2", "Q8", "Q10", "Q12", "Q",
"Q2", "Q8", "Q10", "Q12", "Q", "Q2", "Q8", "Q10", "Q12", "Q",
"Q2", "Q8", "Q10", "Q12", "Q", "Q2", "Q8", "Q10", "Q12", "Q",
"Q2", "Q8", "Q10", "Q12", "Q", "Q2", "Q8", "Q10", "Q12", "Q",
"Q2", "Q8", "Q10", "Q12", "Q", "Q2", "Q8", "Q10", "Q12", "Q",
"Q2", "Q8", "Q10", "Q12", "Q", "Q2", "Q8", "Q10", "Q12", "Q",
"Q2", "Q8", "Q10", "Q12", "Q", "Q2", "Q8", "Q10", "Q12", "Q",
"Q2", "Q8", "Q10", "Q12", "Q", "Q2", "Q8", "Q10", "Q12", "Q",
"Q2", "Q8", "Q10", "Q12", "Q", "Q2", "Q8", "Q10", "Q12", "Q",
"Q2", "Q8", "Q10", "Q12", "Q", "Q2", "Q8", "Q10", "Q12", "Q",
"Q2", "Q8", "Q10", "Q12", "Q", "Q2", "Q8", "Q10", "Q12", "Q",
"Q2", "Q8", "Q10", "Q12", "Q", "Q2", "Q8", "Q10", "Q12", "Q",
"Q2", "Q8", "Q10", "Q12", "Q", "Q2", "Q8", "Q10", "Q12", "Q",
"Q2", "Q8", "Q10", "Q12", "Q", "Q2", "Q8", "Q10", "Q12", "Q",
"Q2", "Q8", "Q10", "Q12", "Q", "Q2", "Q8", "Q10", "Q12", "Q",
"Q2", "Q8", "Q10", "Q12", "Q", "Q2", "Q8", "Q10", "Q12", "Q",
"Q2", "Q8", "Q10", "Q12", "Q", "Q2", "Q8", "Q10", "Q12"), Type = c("SNR",
"SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR",
"SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR",
"SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR",
"SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR",
"SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR",
"SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR",
"SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR",
"SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR",
"SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR",
"SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR",
"SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR",
"SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR",
"SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR", "SNR",
"SNR", "SNR", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS",
"FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS",
"FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS",
"FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS",
"FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS",
"FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS",
"FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS",
"FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS",
"FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS", "FYS",
"FYS", "FYS", "FYS", "FYS", "FYS", "FYS"), Student = c("789331",
"789331", "789331", "789331", "789331", "805933", "805933", "805933",
"805933", "805933", "826523", "826523", "826523", "826523", "826523",
"832929", "832929", "832929", "832929", "832929", "838607", "838607",
"838607", "838607", "838607", "841903", "841903", "841903", "841903",
"841903", "843618", "843618", "843618", "843618", "843618", "852125",
"852125", "852125", "852125", "852125", "876406", "876406", "876406",
"876406", "876406", "879972", "879972", "879972", "879972", "879972",
"885650", "885650", "885650", "885650", "885650", "888712", "888712",
"888712", "888712", "888712", "903303", "903303", "903303", "903303",
"903303", "796882", "796882", "796882", "796882", "796882", "827911",
"827911", "827911", "827911", "827911", "830271", "830271", "830271",
"830271", "830271", "831487", "831487", "831487", "831487", "831487",
"834598", "834598", "834598", "834598", "834598", "836364", "836364",
"836364", "836364", "836364", "839802", "839802", "839802", "839802",
"839802", "855524", "855524", "855524", "855524", "855524", "873527",
"873527", "873527", "873527", "873527", "885409", "885409", "885409",
"885409", "885409", "894218", "894218", "894218", "894218", "894218",
"928026", "928026", "928026", "928026", "928026", "932196", "932196",
"932196", "932196", "932196", "955389", "955389", "955389", "955389",
"955389", "956952", "956952", "956952", "956952", "956952", "957206",
"957206", "957206", "957206", "957206", "957759", "957759", "957759",
"957759", "957759", "959200", "959200", "959200", "959200", "959200",
"962490", "962490", "962490", "962490", "962490", "968728", "968728",
"968728", "968728", "968728", "969005", "969005", "969005", "969005",
"969005", "971179", "971179", "971179", "971179", "971179", "976863",
"976863", "976863", "976863", "976863", "981621", "981621", "981621",
"981621", "981621", "952797", "952797", "952797", "952797", "952797",
"965873", "965873", "965873", "965873", "965873", "967416", "967416",
"967416", "967416", "967416", "975424", "975424", "975424", "975424",
"975424"), Bin1 = c(4.25, 3.75, 4, 4, 3.5, 4.25, 4, 4, 4.25,
4, 3.5, 4, 4, 5, 5, 4, 4, 4, 4, 3.25, 5, 5, 5, 5, 5, NA, NA,
NA, NA, NA, 4.5, 4.25, 4.75, 4.5, 4.25, NA, NA, NA, NA, NA, 3.75,
3.5, 4, 4.25, 4.25, NA, NA, NA, NA, NA, 3.75, 4, 4, 3.75, 5,
NA, NA, NA, NA, NA, 2.5, 4.5, 4.5, 4.5, 4, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 4.75, 3.75, 3.75,
5, 4, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 3.5, 3.75, 3.5,
4, 3.25, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 4.25, 4.75,
5, 4.75, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), Bin2 = c(4,
2.5, 2.5, 2.75, 3.25, 4, 3, 3, 3, 3, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, 5, 4.25, 4.25, 4.5, 4.5, NA, NA, NA, NA, NA,
5, 4, 4, 3.75, 5, 3.5, 3.5, 3.75, 4, 4, 4, 3.25, 3, 2.75, 3.25,
4, 4, 4.25, 4, 4, 4.5, 4.5, 4.25, 3.5, 4.25, 4.25, 4.25, 4.75,
3.75, 4.5, NA, NA, NA, NA, NA, 3.25, 2.25, 2, 2.25, 3.5, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, 3, 4, 3, 3.75, 3.75, 3.5, 3.25, 3.25, 3.25, 3.75,
4.25, 4.25, 4.75, 4.25, 4.25, NA, NA, NA, NA, NA, 4.25, 5, 4.75,
3.5, 4.25, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 4.5, 4.5, 4,
4, 3.75, 4, 3.5, 3.5, 3.5, 3.25, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, 2.5, 2.5, 2.75, 2.75, 2.5, NA, NA, NA, NA, NA, NA,
4.75, 4, 4.25, 4.25, NA, NA, NA, NA, NA, 5, 4, 4.5, 3.75, 4.25,
4.5, 3.75, 4, 4, 4, 3.5, 2.75, 2.75, 2.5, 2.75, 4.5, 4.5, 5,
4.25, 4.5, NA, NA, NA, NA, NA), Bin3 = c(4.66666666666667, 3,
3.33333333333333, 3.33333333333333, 3.66666666666667, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, 4.66666666666667, 3.66666666666667,
3.66666666666667, 3.66666666666667, 4.33333333333333, NA, NA,
NA, NA, NA, 3.66666666666667, 3.33333333333333, 3, 3, 4.33333333333333,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 5, 4.33333333333333,
4.33333333333333, 3.66666666666667, 4, 3.33333333333333, 4.33333333333333,
4.33333333333333, 4, 4, 3.66666666666667, 1.66666666666667, 2,
2.33333333333333, 4.33333333333333, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, 5, 5, 4.33333333333333, 3.66666666666667, 5, NA,
NA, NA, NA, NA, 3.33333333333333, 4, 3.33333333333333, 3.33333333333333,
4, 2.66666666666667, 2.66666666666667, 3, 2.66666666666667, 3.33333333333333,
4.66666666666667, 5, 4.33333333333333, 4.33333333333333, 4.66666666666667,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, 4.66666666666667, 4, 3.33333333333333, 4, 4.33333333333333,
4.33333333333333, 3.66666666666667, 4.33333333333333, 4, 3.33333333333333,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 1.33333333333333, 1.66666666666667,
2.66666666666667, 2.33333333333333, 2.33333333333333, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA)), class = c("tbl_df", "tbl", "data.frame"
), row.names = c(NA, -205L), .Names = c("Question", "Type", "Student",
"Bin1", "Bin2", "Bin3"))