Convert the data set
載入資料
dta <- read.table("C:/Users/PARENTCARECHILDREN/Desktop/2020-03-30-In-class exercises-6/probeL.txt", header = T)
head(dta)## ID Response_Time Position
## 1 S01 51 1
## 2 S01 36 2
## 3 S01 50 3
## 4 S01 35 4
## 5 S01 42 5
## 6 S02 27 1將單行資料依照“Response_Time”,“Position”形成多行資料
## X1 X2 X3 X4 X5
## 1 51 36 50 35 42
## 2 27 20 26 17 27
## 3 37 22 41 37 30
## 4 42 36 32 34 27
## 5 27 18 33 14 29
## 6 43 32 43 35 40
## 7 41 22 36 25 38
## 8 38 21 31 20 16
## 9 36 23 27 25 28
## 10 26 31 31 32 36
## 11 29 20 25 26 25重新命名row、column
colnames(dta.1) <- c("Pos_1", "Pos_2", "Pos_3", "Pos_4", "Pos_5")
rownames(dta.1) <- c("S01", "S02", "S03", "S04", "S05", "S06", "S07", "S08", "S09", "S10", "S11")
dta.1## Pos_1 Pos_2 Pos_3 Pos_4 Pos_5
## S01 51 36 50 35 42
## S02 27 20 26 17 27
## S03 37 22 41 37 30
## S04 42 36 32 34 27
## S05 27 18 33 14 29
## S06 43 32 43 35 40
## S07 41 22 36 25 38
## S08 38 21 31 20 16
## S09 36 23 27 25 28
## S10 26 31 31 32 36
## S11 29 20 25 26 25