跨列获取前5位值的列共享
跨列获取前5位值的列共享
提问于 2018-05-13 08:17:20
我将下列数据存储在一个列表中：
set.seed = 12345
df1 = data.frame(replicate(10,sample(0:500,1000,rep=TRUE)))
df2 = data.frame(replicate(10,sample(0:500,1000,rep=TRUE)))
list = list(df1, df2)我怎样才能做到以下几点：
1)对于每一列，为每一列获取每个元素在列和(即每个元素除以列总数)中所占的份额，只对前5个值取这些份额的总和(其中这些前5个值的顺序将在各列之间不同)。
然后，输出将是一个由两个向量组成的列表( df1和df2各一个)，每个向量包含10个共享。
我想使用应用程序家族来完成这个任务。不过，欢迎提出任何建议。事先非常感谢！
回答 1
Stack Overflow用户
回答已采纳
发布于 2018-05-13 08:21:05
我们可以使用list循环lapply，将数据集除以每列的列和('x1')，通过循环(sapply)在每一列中选择前5，并获得head，然后用cbind list元素创建两个列的数据集。
do.call(cbind,lapply(list, function(x) {
x1 <- x/colSums(x)[col(x)]
sapply(x1, function(y) sum(head(sort(y, decreasing = TRUE), 5)))}))或使用tidyverse
library(tidyverse)
map(list, ~ .x %>%
summarise_all(funs(sum(tail(sort(./sum(.)), 5)))) %>%
unlist %>%
as_tibble) %>%
bind_cols页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/50318151
复制相关文章
相似问题
如何在BigQuery中跨多个列(动态)获取前3列及其值
跨列获取最高值
如何基于跨2个Dataframes的共享列创建具有列值的新列？
跨两列获取唯一值
(Oracle)跨列获取最大值
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
社区富文本编辑器全新改版！诚邀体验～
全新交互，全新视觉，新增快捷键、悬浮工具栏、高亮块等功能并同时优化现有功能，全面提升创作效率和体验
腾讯云开发者
