Question

Using R, generate the code to convert the following data frame to wide format.

1 AF 2 A M 3 BF 4 B M grp Sex neanl sd meanK sdlh 0.34 0.08 0.57 0.33 0.40 0.07 0.65 0.27 0.22 0.11 0.47 0.33 0.33 0.11 0.55 0.31 The result should look like the following display. grp F.meanL F.meanR F.sdL F.sdR M.meanL M.meanR M.sdL M.sdR 0.33 0.27 0.22 0.33 0.34 0.11 0.08 0.400.11 0.07 0.47 0.55 0.57 0.65 0.33 0.31 Hint: use gather) in conjunction with spread(

Answer 1

> data1=read.csv(file.choose(),header=T)
> data1
grp sex meanL sdL meanR sdR

1 A F 0.22 0.11 0.34 0.08

2 A M 0.47 0.33 0.57 0.33

3 B F 0.33 0.11 0.40 0.07

4 B M 0.55 0.31 0.65 0.27

#convert data long to wide data
> data2=reshape(data1,idvar="grp",timevar="sex",direction="wide")
> data2
grp meanL.F sdL.F meanR.F sdR.F meanL.M sdL.M meanR.M sdR.M

1 A 0.22 0.11 0.34 0.08 0.47 0.33 0.57 0.33

3 B 0.33 0.11 0.40 0.07 0.55 0.31 0.65 0.27

#find column name
> colnames(data2)
[1] "grp" "meanL.F" "sdL.F" "meanR.F" "sdR.F" "meanL.M" "sdL.M" "meanR.M"
[9] "sdR.M"  

#reorder the column for given condition
> col_order=c(grp,"meanL.F","meanR.F","sdL.F","sdR.F","meanL.M","meanR.M","sdL.M","sdR.M")
> data3=data2[,col_order]
> data3
  
grp meanL.F meanR.F sdL.F sdR.F meanL.M meanR.M sdL.M sdR.M

1 A 0.22 0.34 0.11 0.08 0.47 0.57 0.33 0.33

2 B 0.33 0.40 0.11 0.07 0.55 0.65 0.31 0.27

>
#rename column name for given condition

> names(data3)[names(data3)=="meanL.F"]="F.meanL"
> names(data3)[names(data3)=="meanR.F"]="F.meanR"
> names(data3)[names(data3)=="sdL.F"]="F.sdL"
> names(data3)[names(data3)=="sdR.F"]="F.sdR"
> names(data3)[names(data3)=="meanL.M"]="M.meanL"
> names(data3)[names(data3)=="meanR.M"]="M.meanR"
> names(data3)[names(data3)=="sdL.M"]="M.sdL"
> names(data3)[names(data3)=="sdR.M"]="M.sdR"
> data3

#final result

grp F.meanL F.meanR F.sdL F.sdR M.meanL M.meanR M.sdL M.sdR

1 A 0.22 0.34 0.11 0.08 0.47 0.57 0.33 0.33

2 B 0.33 0.40 0.11 0.07 0.55 0.65 0.31 0.27

>