變異多個/連續列（使用 dplyr）

Question

我正在嘗試學習 dplyr package 到目前為止一切都很好。 我在這里遇到了一個問題，它肯定與語法有關，因為它很容易解決

我的數據框顯示在這里

我想從病房的第四列（從第 4 列到第 17 列）添加每個 ITEM # 的所有訂單

列應該是這樣的

ITEM# 訂單總數

1 2396

1 2396

2 445

2 445

  group_by(`ITEM`) %>%
  do({
  distinct(`DESCRIPTION`);
  mutate(Total = rowSums(.[,4:17]))
  })

This is definitely wrong as it says Description not found. Any help is appreciated

Answer 1

如果我們使用rowSums ，它可以直接在mutate中使用。 此外，由於這是對每一行進行求和，因此不需要group_by 。 沒有.keep_all = TRUE的distinct部分僅返回“DESCRIPTION”列的不同行。

library(dplyr)
df1 %>%

      mutate(Total = rowSums(.[4:17], na.rm = TRUE)) %>%
      group_by(`ITEM#`) %>%
      mutate(Total = sum(Total, na.rm = TRUE))

注意：通過檢查圖像中的“描述”，所有元素都是唯一的，因此不需要distinct