2013-10-15 136 views
1

,我有以下數據:重排排順序

as.integer(datIn$Measurement.location) 
myfunctionSD <- function(mydata) { return(sd(mydata,na.rm=TRUE))} 
Alltubes <- tapply(datIn$Material.loss.interval,list(as.factor(datIn$Measurement.location),as.factor(datIn$Tube.number)),myfunctionSD) 

由此我得到下面的輸出表:

  1   2   3   4   5   6 
1 0.8710740 0.7269928 0.8151022 0.6397234 0.8670634 0.7042107 
10  NA 0.8075675  NA  NA  NA  NA 
11 0.6977951  NA 1.0984465 1.1148588 1.2156506 0.9620030 
12  NA 0.5986758  NA  NA  NA  NA 
13 0.8386249  NA 0.8398164 0.8833184 1.2469221 1.0070322 
14  NA 0.5109903  NA  NA  NA  NA 
15  NA  NA  NA 0.9391486 1.3571094 0.8375686 
16  NA 0.5761583  NA  NA  NA  NA 
17  NA  NA  NA  NA 1.0100850 0.7171070 
19  NA  NA  NA  NA 0.5913518  NA 
3 0.5580579 0.6106961 0.8971073 0.7046614 0.8456784 0.8001571 
4   NA 0.7228325  NA  NA  NA  NA 
5 0.9318795  NA 0.8961706 0.7753733 0.5915633 1.0471933 
6   NA 0.5968613  NA  NA  NA  NA 
7 0.7674944  NA 0.7196781 0.8543926 0.7778685 0.8697442 
8   NA 0.6283008  NA  NA  NA  NA 
9 1.3687895  NA 0.8815196 1.1723445 1.1589998 0.8194962 

如何重新排列行號在正確的數字順序,所以從1到19,所以我可以正確繪製它?

希望有人能幫助我。

回答

1

事情是這樣的......

> Alltubes[sort(as.numeric(rownames(Alltubes))), ] 
1

DF2是你的數據幀

df2[order(as.numeric(rownames(df2))),] 
      X1  X2  X3  X4  X5  X6 
1 0.8710740 0.7269928 0.8151022 0.6397234 0.8670634 0.7042107 
3 0.5580579 0.6106961 0.8971073 0.7046614 0.8456784 0.8001571 
4   NA 0.7228325  NA  NA  NA  NA 
5 0.9318795  NA 0.8961706 0.7753733 0.5915633 1.0471933 
6   NA 0.5968613  NA  NA  NA  NA 
7 0.7674944  NA 0.7196781 0.8543926 0.7778685 0.8697442 
8   NA 0.6283008  NA  NA  NA  NA 
9 1.3687895  NA 0.8815196 1.1723445 1.1589998 0.8194962 
10  NA 0.8075675  NA  NA  NA  NA 
11 0.6977951  NA 1.0984465 1.1148588 1.2156506 0.9620030 
12  NA 0.5986758  NA  NA  NA  NA 
13 0.8386249  NA 0.8398164 0.8833184 1.2469221 1.0070322 
14  NA 0.5109903  NA  NA  NA  NA 
15  NA  NA  NA 0.9391486 1.3571094 0.8375686 
16  NA 0.5761583  NA  NA  NA  NA 
17  NA  NA  NA  NA 1.0100850 0.7171070 
19  NA  NA  NA  NA 0.5913518  NA 
+0

感謝度量!完美地工作 –

+1

如果這解決了您的問題,@ r.j.mendel,請點擊總票數下面的選中標記,考慮*接受*。您也可以通過點擊左側的向上三角形來*點擊*這些答案。 – gung