Question

  rate   len ADT trks      sigs1 slim shld lane acpt  itg lwid hwy
1  4.58  4.99  69    8 0.20040080   55   10    8  4.6 1.20   12 FAI
2  2.86 16.11  73    8 0.06207325   60   10    4  4.4 1.43   12 FAI
3  3.02  9.75  49   10 0.10256410   60   10    4  4.7 1.54   12 FAI
4  2.29 10.65  61   13 0.09389671   65   10    6  3.8 0.94   12 FAI
5  1.61 20.01  28   12 0.04997501   70   10    4  2.2 0.65   12 FAI
6  6.87  5.97  30    6 2.00750419   55   10    4 24.8 0.34   12  PA
7  3.85  8.57  46    8 0.81668611   55    8    4 11.0 0.47   12  PA
8  6.12  5.24  25    9 0.57083969   55   10    4 18.5 0.38   12  PA
9  3.29 15.79  43   12 1.45333122   50    4    4  7.5 0.95   12  PA

我在添加新列时遇到了一个问题，我的数据框叫做highway1，我想添加一个名为S / N的列，除了acpt之外，我该怎么办？

由于

Answer 1

> mydf$SN <- mydf$slim/mydf$acpt
> mydf
  rate   len ADT trks      sigs1 slim shld lane acpt  itg lwid hwy        SN
1 4.58  4.99  69    8 0.20040080   55   10    8  4.6 1.20   12 FAI 11.956522
2 2.86 16.11  73    8 0.06207325   60   10    4  4.4 1.43   12 FAI 13.636364
3 3.02  9.75  49   10 0.10256410   60   10    4  4.7 1.54   12 FAI 12.765957
4 2.29 10.65  61   13 0.09389671   65   10    6  3.8 0.94   12 FAI 17.105263
5 1.61 20.01  28   12 0.04997501   70   10    4  2.2 0.65   12 FAI 31.818182
6 6.87  5.97  30    6 2.00750419   55   10    4 24.8 0.34   12  PA  2.217742
7 3.85  8.57  46    8 0.81668611   55    8    4 11.0 0.47   12  PA  5.000000
8 6.12  5.24  25    9 0.57083969   55   10    4 18.5 0.38   12  PA  2.972973
9 3.29 15.79  43   12 1.45333122   50    4    4  7.5 0.95   12  PA  6.666667

我希望上述内容不需要解释。

Answer 2

虽然abund_envir_reduc_4$statistic [1] 0.0071 abund_envir_reduc_2_6_7$statistic [1] 0.214 abund_envir_reduc_2_2$statistic [1] 0.056 abund_envir_reduc_7_8_6_2_5$statistic [1] 0.522 abund_envir_reduc_1_2_3$statistic [1] 0.2031是首选路线，但您也可以考虑使用ID STATISTIC abund_envir_reduc_4 0.0071 abund_envir_reduc_2_6_7 0.214 abund_envir_reduc_2_2 0.056 abund_envir_reduc_7_8_6_2_5 0.522 abund_envir_reduc_1_2_3 0.2031。

首先，创建数字矢量并将其分配给SN：

现在，您可以使用cbind将数字矢量作为一列追加到现有数据帧中：

SN <- Data[,6]/Data[,9]

同样，最好使用美元运算符cbind，但是看到替代方案看起来并不伤人。

在R中的数据框中添加新列

2 个答案: