我有一个示例数据:
SampleID a b d f ca k l cb
1 0.1 2 1 2 7 1 4 3
2 0.2 3 2 3 4 2 5 5
3 0.5 4 3 6 1 3 9 2
我需要找到列的行总和,这些列在名称中有一些共同之处,例如:行式sum(a, ca)
或行式sum(b,cb)
。问题是我有大量的data.frame,理想情况下我可以编写列标题中常见的内容,因此代码只会选择那些列来进行求和
预先感谢您的任何帮助。
答案 0 :(得分:2)
我们可以选择包含grep
的'a'的列,对列进行分组并执行rowSums
,并使用'b'列进行选择。
rowSums(df1[grep('a', names(df1)[-1])+1])
rowSums(df1[grep('b', names(df1)[-1])+1])
答案 1 :(得分:0)
如果您想将输出作为数据框,请尝试使用dplyr
# Recreating your sample data
df <- data.frame(SampleID = c(1, 2, 3),
a = c(0.1, 0.2, 0.5),
b = c(2, 3, 4),
d = c(1, 2, 3),
f = c(2, 3, 6),
ca = c(7, 4, 1),
k = c(1, 2, 3),
l = c(4, 5, 9),
cb = c(3, 5, 2))
处理数据
# load dplyr
library(dplyr)
# Sum across columns 'a' and 'ca' (sum(a, ca))
df2 <- df %>%
select(contains('a'), -SampleID) %>% # 'select' function to choose the columns you want
mutate(row_sum = rowSums(.)) # 'mutate' function to create a new column 'row_sum' with the sum of the selected columns. You can drop the selected columns by using 'transmute' instead.
df2 # have a look
a ca row_sum
1 0.1 7 7.1
2 0.2 4 4.2
3 0.5 1 1.5