2009-10-08 106 views
6

我想有一个更好的方法来做到这一点。重新排序数据帧列,同时忽略不明的列

我想重新排列数据框中的列。我有一个列表,ordered.colnames,代表新的排序 - 但某些列不存在dataset。为避免错误“undefined columns selected”,我已将相关切片包装在try()函数中。

以下方法有效,但有没有更好的方法来做到这一点?

> ordered.colnames[1:5] 
[1] "lady_22102"   "attentions_83249" "perseverance_17864" 
[4] "cecil_84477"  "cecilia_133476" 

dataset.reordered = c() 
for (i in 1:length(ordered.colnames)) { 
    col = NA 
    col = try(cbind(dataset[,ordered.colnames[i]]),silent=TRUE) 
    if (!inherits(col,"try-error")) { 
     colnames(col) = ordered.colnames[i] 
     dataset.reordered = cbind(dataset.reordered, col) 
    } 
} 

回答

13

难道你不能这么做吗?

ordered.colnames <- ordered.colnames[ordered.colnames %in% colnames(dataset)] 
+0

这是有效的。不能相信我没有想到这一点..谢谢。 – ariddell 2009-10-08 16:12:02

+0

另见交点 – hadley 2009-10-10 13:16:24