Question

让我们假设数据如下所示：

df3 = data.frame(matrix(rnorm(20), nrow=10))
df3$ACCT_ID <- as.numeric(rownames(df3))
df3$X3 <- ifelse(df3$X2 < 1,"LOW","HIGH")

df3
           X1          X2 ACCT_ID   X3
1   0.8533321  0.73676965       1  LOW
2  -0.2289266 -0.87010747       2  LOW
3  -0.7997897  0.49979417       3  LOW
4   0.5281416 -0.70161594       4  LOW
5  -0.6246283  0.81879826       5  LOW
6   0.9939673 -1.20910819       6  LOW
7  -0.8955201  0.42167923       7 HIGH
8   1.4404649  0.59220989       8  LOW
9  -0.8687570  0.09393659       9  LOW
10 -0.7030129 -0.95184303      10  LOW

我正在尝试根据X1和ACCT_ID重新订购。

TEMP_X_DF <- df3[with(df3, order(X1,ACCT_ID)), ]
TEMP_X_DF
           X1          X2 ACCT_ID   X3
7  -0.8955201  0.42167923       7 HIGH
9  -0.8687570  0.09393659       9  LOW
3  -0.7997897  0.49979417       3  LOW
10 -0.7030129 -0.95184303      10  LOW
5  -0.6246283  0.81879826       5  LOW
2  -0.2289266 -0.87010747       2  LOW
4   0.5281416 -0.70161594       4  LOW
1   0.8533321  0.73676965       1  LOW
6   0.9939673 -1.20910819       6  LOW
8   1.4404649  0.59220989       8  LOW

但是当我从列表中填充时尝试执行此操作时，我只返回读回的第一行：

  IDS <- c("X1","ACCT_ID")
  for (id in 1:length(IDS)){
    if (id == 1){
      ID_OUT <- IDS[id]
    }
    else {
      ID_OUT <- paste(ID_OUT,IDS[id],sep=",")
    }
  }
  TEMP_X_DF <- df3[with(df3, order(ID_OUT)), ]
  TEMP_X_DF
         X1        X2 ACCT_ID  X3
1 0.8533321 0.7367696       1 LOW

字符串ID_OUT无法正确解析吗？

Answer 1

您可以使用get执行此操作：

df3[with(df3, order(get(IDS))), ]

您不应像在ID_OUT中那样连接列名称。相反，您可以将所需的列名称放在向量中，然后应用get。

Answer 2

我找到了一个似乎运行良好的答案（虽然我需要知道IDS列表中列出了多少列并使其更具适应性我最终将几个快速if语句放在一起）。

IDS <- c("X1","ACCT_ID")
if (length(IDS) == 1){
  TEMP_X_DF <- df3[order(df3[,IDS[1]]), ]
}
else if (length(IDS) == 2){
  TEMP_X_DF <- df3[order(df3[,IDS[1]],df3[,IDS[2]]), ]
}
.
.
.

如何使用带有要排序列的名称的字符串向量来订购数据框？

2 个答案: