基于行值的子集列

Question

这可能是一个简单的问题，但我一直无法找到任何答案。考虑你有一个具有n列分子特征的数据框。在每列的最后一行中，表示一个方差系数。

示例数据集中：

a <- data.frame(matrix(runif(30),ncol=3)) 
b <- c(50.23,45.23,21) 
a<-rbind(a,b) 

     X1   X2   X3 
1 0.1097075 0.78584027 0.20925033 
2 0.6081752 0.39669748 0.65559913 
3 0.9912855 0.68462073 0.54741795 
4 0.8543848 0.53776889 0.43789447 
5 0.2579654 0.92188090 0.61292895 
6 0.6203840 0.73152279 0.82866311 
7 0.6643195 0.84953926 0.62192976 
8 0.5760624 0.30949900 0.11032929 
9 0.8888167 0.04530598 0.08089825 
10 0.8926815 0.61736284 0.19834310 
11 50.2300000 45.23000000 21.00000000 

如何子集，所以我只能获得CV> 50列在最后一排？所以，我的新data.frame是：

X1 
1 0.1097075 
2 0.6081752 
3 0.9912855 
4 0.8543848 
5 0.2579654 
6 0.6203840 
7 0.6643195 
8 0.5760624 
9 0.8888167 
10 0.8926815 
11 50.230000 

Answer 1

我们可以做

a[,a[nrow(a),]>50,drop=FALSE]