文章/答案/技术大牛

发布

社区首页 >问答首页 >设置为零行值比行均值大

问设置为零行值比行均值大
EN

Stack Overflow用户

提问于 2020-10-29 19:52:47

回答 3查看 25关注 0票数 0

我有一个数据帧，看起来像这样

 v1 v2 v3 v4 v5 
 4   1  3  4  3
 2   2  2  1  1
 2   10 2  1  2
 etc.

我希望对数据帧进行转换，以便只保留高于原始平均值的原始值，而将其他值设置为零。结果将是：

 v1 v2 v3 v4 v5 
 4   0  3  4  3
 2   2  2  0  0
 0   10 0  0  0
 etc.

我尝试过这样的方法，但它不起作用(X是数据帧)：

X<- X[sweep(X, 1, rowMeans(X) < 0)] <- 0

dataframe

row

dplyr

回答 3

Stack Overflow用户

回答已采纳

发布于 2020-10-29 19:54:31

一种选择可能是：

(df > rowMeans(df)) * df

  v1 v2 v3 v4 v5
1  4  0  0  4  0
2  2  2  2  0  0
3  0 10  0  0  0

票数 2

Stack Overflow用户

发布于 2020-10-29 19:58:55

使用sweep，你可以做到：

df[sweep(df, 1, rowMeans(df), `<`)] <- 0
df

#  v1 v2 v3 v4 v5
#1  4  0  3  4  3
#2  2  2  2  0  0
#3  0 10  0  0  0

票数 1

Stack Overflow用户

发布于 2020-10-30 06:45:41

replace的一个选项

replace(X, X <= rowMeans(X), 0)
#  v1 v2 v3 v4 v5
#1  4  0  0  4  0
#2  2  2  2  0  0
#3  0 10  0  0  0

数据

X <- structure(list(v1 = c(4L, 2L, 2L), v2 = c(1L, 2L, 10L), v3 = c(3L, 
2L, 2L), v4 = c(4L, 1L, 1L), v5 = c(3L, 1L, 2L)), class = "data.frame", 
row.names = c(NA, 
-3L))

票数 0

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/64590550

复制

相似问题

问设置为零行值比行均值大
EN

回答 3

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问设置为零行值比行均值大EN

回答 3

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问设置为零行值比行均值大
EN