我有一个包含10列和510行的数据框。我正在尝试创建其中的一个子集,如果其中前5列的行总和等于0,则会丢弃整个行。我已经阅读了该站点上的帖子,说您不能简单地删除R中的行,所以我尝试了以下操作:
data_sub <- data[!sum(data[, 1:5]==0), ]
但是,data_sub最终是数据的副本...我真的不确定为什么...请指教!该数据帧没有Inf或NaN值,只有整数。
尝试以下操作:
ind <- apply(data, 1, function(x) sum(x[1:5]) != 0)
data_sub <- data[ind, ]
或
data_sub <- data[rowSums(data[,1:5]) != 0, ]
这就是您想要的
reprex[sum(reprex[,1:5])!=0,]
返回符合您条件的数据集。这适用于数组或数据帧。但是请注意,原始没有更改,也不应该。
[将来,请考虑在下面的代码中包含一个可复制的示例。它不一定很复杂,但是我认为您会发现做出一个人的举止可以澄清您的想法。它对我有用!
# emily example
# sample column as a 50% chance of being zero and 50 percent chance of random
set.seed(152)
sample_column<-function(col_length) {
ifelse(runif(col_length)<0.5,0,runif(col_length))
}
# produce some columns of random numbers. Spike it with
# zeroes to make the filter actually catch some.
make_reprex<-function(nrows,ncols) {
id=1:nrows
colnames=paste0('x',1:ncols)
data=matrix(nrow=nrows,ncol=ncols)
rownames(data)=id
colnames(data)=colnames
for (j in 1:ncols) {
data[,j]=sample_column(nrows)
}
return(data)
}
reprex=make_reprex(510,15)
# desired expression
reprex[sum(reprex[,1:5]!=0),]
如果您希望对数据进行子集化处理,则需要进行另一项分配。
reprex=reprex[sum(reprex[,1:5]!=0),]
我反对这种就地替代。在某些情况下,有必要这样做,但是却很少出现您想像的那样。
如果避免破坏性的子集设置,并且出了点问题,则可以轻松返回到原始加载的数据框。