如何解决循环左连接
我一直在尝试遍历左联接(使用R)。我需要创建一个表,其中的列表示较大表中的样本。新表的每一列应代表每个样本。
library(tidyr)
largetable <- data.frame(PlotCode=c(rep("Plot1",20),rep("Plot2",20)),Category=c(rep("A",8),rep("B",rep("C",4),rep("A",12),4)))
a <- data.frame(PlotCode=c("Plot1","Plot1","Plot2","Plot2"),Category=c("A","B","A","B"))
##example of code to loop over 100 left joins derived from samples of two elements from a large table. It fails to create the columns.
for (i in 1:100){
count <- largetable %>% group_by(PlotCode) %>% sample_n(2,replace = TRUE)%>%
count(PlotCode,Category)
colnames(count)[3] <- paste0("n",i)
b <- left_join(a,count,by = c("PlotCode","Category"))
}
##example of desired output table. Columns n1 to n100 should change depending of samples.
b <- data.frame(PlotCode=c("Plot1","B"),n1=c(2,1,1),n2=c(1,n3=c(2,2))
如何循环遍历左联接,以便每一列对应一个不同的样本?
解决方法
我们可以使用for
/ rerun
而不是replicate
循环来重复一个过程n
次。
在每次迭代中,我们从PlotCode
和count
的{{1}}中随机选择2行,因此您将拥有Category
个列表,可以使用{{1} },并根据您的选择重命名该列,并将n
替换为0。
reduce
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。