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 以便我可以正确绘制它？

希望可以有人帮帮我。

4

2 回答 2

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
于 2013-10-15T13:25:19.743 回答
1

像这样的东西...

> Alltubes[sort(as.numeric(rownames(Alltubes))), ]
于 2013-10-15T13:22:08.537 回答