Home / Questions / 65190
Accepted
Alejandro Carrera
Asked: 2020-04-25 17:08:50 +0800 CST 2020-04-25 17:08:50 +0800 CST

如何跨行添加？

  • 772

我正在尝试创建一个函数，假设“通用”在数据库中添加行。

我的想法是该函数“识别”数据库中的数字元素并按行添加。

假设我有下图的数据：

截屏： 在此处输入图像描述

该函数将从第二列中获取并添加 2+3+3+6+4+2+0 等等。

到目前为止我写的代码如下：

suma_renglones < - function (x) {
  y = integer(nrow(x))
  for (i in 1: nrow(x)) {
    for (j in 1: ncol(x)) {
      if (is.numeric(x[i, j])) {
        y[i] = y[i] + (x[i, j])
      }
    }
    y[i]
  }
}

但是，在应用该函数时，指定用于存储总和结果的列仅显示 NULL 结果。任何帮助或指导将不胜感激。

PS：我知道其他地方已经有关于它的解决方案，如本例所示，但我的意图是制作一个“自己的”功能。

r

3 Answers

  1. Best Answer

    让我们看看，您说您要添加原始矩阵的一列，但您没有这样做，您只是使用 sums 创建一个向量y，还请记住，您的例程无法修改由参数传递的对象，因为它在外部它的“范围”可以做的是返回一个带有附加列的新矩阵，最后在原始对象上“踩”

    重新编写你的代码

    suma_renglones <- function (x) {
    y=integer(nrow(x))
    for(i in 1:nrow(x)){
        for (j in 1:ncol(x)) {
            if(is.numeric(x[i,j])) 
            {
                y[i] = y[i]+(x[i,j])
            }
        }
    }
    x["suma"] <- y
    return(x)
}
d = suma_renglones(d)
d

    返回

            A        B       C N1 N2 N3 N4 N5 N6 N7 N8 N9 N10 suma
1  Apples  Bananas Peaches  9  2  3  4  5  6  7  8  9  10   63
2 Oranges Kumquats   Plums  1  1  3  5  5  5  7  6  6  12   51
3   Pears    Kiwis  Grapes  2  4  6  8  5  6  7  6  9   1   54

    我们在做什么？

    • 在循环结束时，我有一个y包含每行总和的向量
    • 我在矩阵中添加了x一个新列“sum”和总和
    • 返回x，因为函数无法修改原始数组，超出其“范围”
    • 1

  2. 在这里，我有一个使用dplyr和tidyr不使用循环的解决方案，所以它应该更快：

    我用前两行构建了一个示例

    df <- data.frame(
  x = c("employee_1", "employee_2"),
  day_1 = c(2, 19),
  day_2 = c(3, 23),
  day_3 = c(3, 18))

         x day_1 day_2 day_3
employee_1     2     3     3
employee_2    19    23    18

    首先，我必须“转置”数据帧，gather并spread计算每列的总和，然后我必须再次转置结果并inner_join使用原始表进行处理。最后，我所做的是更改列的名称并对select结果进行排序，以便总和保持为最后一列。

    library(dplyr)
library(tidyr)

df %>%
  gather(var, val, 2:ncol(df)) %>%
  spread(x, val) %>% 
  select(-1) %>% 
  summarise_each(funs(sum)) %>% 
  gather() %>% 
  inner_join(df, by = c("key" = "x")) %>% 
  rename(suma = value,
         x = key) %>% 
  select(-suma, everything())

         x day_1 day_2 day_3 suma
employee_1     2     3     3    8
employee_2    19    23    18   60
    • 1

  3. 亲爱的帕特里克，

    我设计的解决方案是这样的：

        suma_renglones <- function (x) {
y= integer(nrow(x))
for (i in 1: nrow(x)) {
for (j in 1: ncol(x)) {
if(is.numeric(x[[i,j]])
{
y[i] <- y[[i]] + x[[i,j]]
}
}
cat (y[i], file= "temp", "\n")
}
temp <- cbind(y)
x <- cbind(x, temp)
}

    将它与您的代码进行比较，我认为我最终并没有做得太糟糕，对吧？但是，您的解决方案显然更清洁、更高效。我非常感谢您花时间帮助我。再次问候：）

    • 0