我有一个包含21列的数据框。我想将这些列中的15列合并为一个可以识别为变量“其他”的列。到目前为止,这是我的代码,到目前为止我没有运气这么做,其中rowSums表示
Error in as.data.frame(y) : argument "y" is missing, with no default
我不知道还能尝试什么。
#Read in group abundances
group.raw <- read.table("taxa_levels/phylum.txt", header=T, row.names=1, sep = "\t")
group <- t(group)
group <- sweep(group, 1, rowSums(group), '/') #Calculate relative abundance
group$Other <- rowSums(c("p__1", "p__2", "p__5", "p__6", "p__7", "p__8", "p__11", "p__12", "p__13", "p__14", "p__16", "p__17", "p__18", "p__19", "p__20"))
数据'组'如下所示:
row.names p__1 p__2
1 X30841102 3.369851e-06 0.000000e+00
2 X49812105 0.000000e+00 0.000000e+00
> str(group)
num [1:152, 1:21] 3.37e-06 0.00 0.00 0.00 0.00 ...
- attr(*, "dimnames")=List of 2
..$ : chr [1:152] "X30841102" "X49812105" "X26402102" "X25951102" ...
..$ : chr [1:21] "p__1" "p__2" "p__3" "p__4" ...