Question

我是R和这个论坛的新手，需要帮助构建一个循环。（我是一名生物学专业，几乎没有编程经验）。

我的数据框架具有以下（简化）结构：

    a = "TNS"
    b = NA
    c = NA
    d = 21
    e = 37
    f = 1
    g = 39
    h = 29
    df = data.frame (a,b,c,d,e,f,g,h)

实际上我的数据框由210行和90列组成，但是那些其他行现在并不是我真正感兴趣的。我正在寻找的是一种方法，将除了前三个之外的每个列的值相加，并将这些结果作为新列自动添加到我的数据帧的末尾。这将优先导致data.frame如下：

    a = "TNS"
    b = NA
    c = NA
    d = 21
    e = 37
    f = 1
    g = 39
    h = 29
    de = 58
    df = 22
    dg = 60
    dh = 50
    ef = 38
    eg = 76
    eh = 66
    fg = 40
    fh = 30
    gh = 68
    df = data.frame (a,b,c,d,e,f,g,h,de,df,dg,dh,ef,eg,eh,fg,fh,gh)

它不能多次配对每列。并且为每个配对运行循环，我需要为每个三联列，四重列等执行此操作。

为什么我要这样做？我需要为生物多样性研究项目的85个专栏做这个，并且需要花费太多时间来手动计算每个组合的价值。

任何帮助都会非常感激，因为我真的没有R的经验来自己提出解决方案!!!

Answer 1

您可以将pip install /tmp/wheelhouse/cssselect-0.9.1-py2-none-any.whl与combn结合使用，如下所示：

rowSums

以下是此答案使用的示例数据：

## This creates the names for the new columns we'll be creating
nam <- combn(names(df)[-c(1, 2, 3)], 2, FUN = function(x) paste(x, collapse = ""))

## Create and assign to your original data.frame
df[nam] <- combn(names(df)[-c(1, 2, 3)], 2, 
                 FUN = function(x) rowSums(df[x], na.rm = TRUE), simplify = FALSE)
df
#      a  b  c  d  e  f g h de df dg dh ef eg eh fg fh gh
# 1  TNS NA NA  3  3 10 5 9  6 13  8 12 13  8 12 15 19 14
# 2  TNS NA NA  4  2  3 6 7  6  7 10 11  5  8  9  9 10 13
# 3  TNS NA NA  6  7  7 5 8 13 13 11 14 14 12 15 12 15 13
# 4  TNS NA NA 10  4  2 2 6 14 12 12 16  6  6 10  4  8  8
# 5  TNS NA NA  3  8  3 9 6 11  6 12  9 11 17 14 12  9 15
# 6  TNS NA NA  9  5  4 7 8 14 13 16 17  9 12 13 11 12 15
# 7  TNS NA NA 10  8  1 8 1 18 11 18 11  9 16  9  9  2  9
# 8  TNS NA NA  7 10  4 2 5 17 11  9 12 14 12 15  6  9  7
# 9  TNS NA NA  7  4  9 8 8 11 16 15 15 13 12 12 17 17 16
# 10 TNS NA NA  1  8  4 5 7  9  5  6  8 12 13 15  9 11 12

R：通过循环对列进行求和

1 个答案: