从R

Question

这是mydataset的一部分

df=structure(list(CustomerName = structure(c(1L, 1L, 1L, 2L, 2L, 
2L), .Label = c("x", "y"), class = "factor"), ItemRelation = c(11202L, 
11202L, 11202L, 1L, 1L, 1L), SaleCount = c(214L, 88L, 42L, 214L, 
88L, 42L), DocumentNum = c(137L, 137L, 137L, 3L, 3L, 3L), DocumentYear = c(2018L, 
2018L, 2018L, 2018L, 2018L, 2018L), k = c(114.66667, 114.66667, 
114.66667, 114.66667, 114.66667, 114.66667), m0 = c(31.92, 31.92, 
31.92, 31.92, 31.92, 31.92), Action_Effect = c(82.74667, 82.74667, 
82.74667, 82.74667, 82.74667, 82.74667)), .Names = c("CustomerName", 
"ItemRelation", "SaleCount", "DocumentNum", "DocumentYear", "k", 
"m0", "Action_Effect"), class = "data.frame", row.names = c(NA, 
-6L))

我需要每个组CustomerName+ItemRelation+DocumentNum+DocumentYear 计算销售额的总和，然后从该总和减去Action_Effect列中。

I.E。输出必须是

    df2=structure(list(CustomerName = structure(c(1L, 1L, 1L, 2L, 2L, 
2L), .Label = c("x", "y"), class = "factor"), ItemRelation = c(11202L, 
11202L, 11202L, 1L, 1L, 1L), SaleCount = c(214L, 88L, 42L, 214L, 
88L, 42L), DocumentNum = c(137L, 137L, 137L, 3L, 3L, 3L), DocumentYear = c(2018L, 
2018L, 2018L, 2018L, 2018L, 2018L), X. = c(114.66667, 114.66667, 
114.66667, 114.66667, 114.66667, 114.66667), m0 = c(31.92, 31.92, 
31.92, 31.92, 31.92, 31.92), Action_Effect = c(82.74667, 82.74667, 
82.74667, 82.74667, 82.74667, 82.74667), sum = c(344L, 344L, 
344L, 344L, 344L, 344L), output = c(261.25333, 261.25333, 261.25333, 
261.25333, 261.25333, 261.25333)), .Names = c("CustomerName", 
"ItemRelation", "SaleCount", "DocumentNum", "DocumentYear", "X.", 
"m0", "Action_Effect", "sum", "output"), class = "data.frame", row.names = c(NA, 
-6L))

长桌，所以我决定通过dput()

显示所需的输出

我该怎么办？

Answer 1

您的数据有点奇怪，因为两个组的值都相同，但这应该可行：

libary(dplyr)

df %>%
  group_by(CustomerName, ItemRelation, DocumentNum, DocumentYear) %>%
  mutate(test = sum(SaleCount) - Action_Effect)

# A tibble: 6 x 9
# Groups:   CustomerName, ItemRelation, DocumentNum, DocumentYear [2]
  CustomerName ItemRelation SaleCount DocumentNum DocumentYear        k    m0 Action_Effect     test
        <fctr>        <int>     <int>       <int>        <int>    <dbl> <dbl>         <dbl>    <dbl>
1            x        11202       214         137         2018 114.6667 31.92      82.74667 261.2533
2            x        11202        88         137         2018 114.6667 31.92      82.74667 261.2533
3            x        11202        42         137         2018 114.6667 31.92      82.74667 261.2533
4            y            1       214           3         2018 114.6667 31.92      82.74667 261.2533
5            y            1        88           3         2018 114.6667 31.92      82.74667 261.2533
6            y            1        42           3         2018 114.6667 31.92      82.74667 261.2533

---

要加和，请使用

df %>%
  group_by(CustomerName, ItemRelation, DocumentNum, DocumentYear) %>%
  mutate(sum = sum(SaleCount), output = sum(SaleCount) - Action_Effect)

Answer 2

为完整起见，添加了base和data.table语法：

base：

df$test <- unlist(by(df, 
    paste(df$CustomerName, df$ItemRelation, df$DocumentNum, df$DocumentYear), 
    function(x) sum(x$SaleCount) - x$Action_Effect))
df

data.table：

library(data.table)
setDT(df)
df[, test2:=sum(SaleCount) - Action_Effect, 
    by=.(CustomerName, ItemRelation, DocumentNum, DocumentYear)][]