子集列基于行值

时间:2016-11-25 08:38:20

标签: r subset

这可能是一个简单的问题,但我找不到任何答案。假设您有一个包含n列分子特征的数据框。在每列的最后一行中,表示方差系数。

示例数据集:

this.state.add('LoadingState', this.loadingState);
this.state.add('GameState', this.gameState);
this.state.start('LoadingState');

我如何进行子集,以便在最后一行中只获得CV> 50的列?所以我的新data.frame将是:

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

1 个答案:

答案 0 :(得分:2)

我们可以做到

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