数据框架和矢量管理

Question

我有一个包含一列字符的数据框，其余列由整数组成。我想做的是检查特定列（5）的值，如果它们> 1000，则将值插入新创建的向量。到目前为止，我已经提出了这个解决方案，但我在if语句中遇到了错误。任何帮助将不胜感激。

D是数据框

greaterthan1000 <- vector ('numeric',length = nrow(D))
for (i in 1:nrow(D)){
   if(D[[i]][[5]]>1000){
     greaterthan1000 <- c(D[[i]][[5]])
   }
}

错误：

  

if（D [[i]] [[5]]＆gt; 1000）{：缺失值为TRUE / FALSE时出错   需要

另外：

  

警告信息：在Ops.factor中（B [[i]] [[5]]，1000）：'＆gt;'没有意义   因素

Answer 1

你可能想要

greaterthan1000 <- D[D[, 5] > 1000, 5]