Excel SUMIFS等效于R

我对R非常陌生，正在寻找重新创建Excel VBA宏和Excel工作表函数（如SUMIFS）的方法。如果行的条目与其他列上的多个条件匹配，则SUMIFS会对列进行求和。Excel SUMIFS等效于R

我有下面的数据框，我想计算一个新的列。对于与Start Date和EndDate范围重叠的所有行，新列是Sample的总和。例如，在线1它将是697（第一个3 lines的总和）。用于具体的总和的标准：包括SampleEndDate >= StartDate[i] & StartDate <=EndDate[i]如果

StartDate EndDate Sample *SUMIFS example* 
10/01/14 24/01/14 139   *697* 
12/01/14 26/01/14 136 
19/01/14 02/02/14 422 
25/01/14 08/02/14 762 
29/01/14 12/02/14 899 
05/02/14 19/02/14 850 
07/02/14 21/02/14 602 
09/02/14 23/02/14 180 
18/02/14 04/03/14 866

任何意见或指针将不胜感激。

来源

2014-11-03 Barnaby1

假设你有在数据帧中的上述数据称为df：

sum(df$Sample[EndDate >= df$StartDate & StartDate <= df$EndDate])

即：

df$Sample[...]选择Sample柱，用在[...]
EndDate >= df$StartDate和StartDate <= df$EndDate指定的条件来自你的例子，转换为R条件，在&之间要求两个条件同时为真。注意表达式中没有i索引。这就是它在R中的工作原理，表达式针对数据帧中的每一行进行评估，并且df$Sample[...]的结果是值的向量，仅[...]中的表达式为真的值
sum当然是内置的，在函数计算总和，自然

来源

2014-11-03 20:23:56 janos

这不会给OP想要的东西，对于每一行，他想看看其他行和总结样品柱是否符合标准。 – 2014-11-03 20:54:40

非常感谢，但正如卡梅隆所说，这并不完全符合我的希望（尽管他总结得很完美）。我很感激帮助。 – Barnaby1 2014-11-03 21:51:05

你可以做一个循环或笛卡尔合并。我不知道任何内置的函数可以做到这一点。

library(dplyr) 

x = structure(list(StartDate = structure(c(1389312000, 1389484800, 
1390089600, 1390608000, 1390953600, 1391558400, 1391731200, 1391904000, 
1392681600), tzone = "UTC", class = c("POSIXct", "POSIXt")), 
    EndDate = structure(c(1390521600, 1390694400, 1391299200, 
    1391817600, 1392163200, 1392768000, 1392940800, 1393113600, 
    1393891200), tzone = "UTC", class = c("POSIXct", "POSIXt" 
    )), Sample = c(139L, 136L, 422L, 762L, 899L, 850L, 602L, 
    180L, 866L)), .Names = c("StartDate", "EndDate", "Sample" 
), row.names = c(NA, -9L), class = "data.frame") 

x2 = x 
names(x2)=c('StartDate2','EndDate2','Sample2') 
x3 = merge(x,x2,allow.cartesian =T) 
x4 = summarise(group_by(x3,StartDate,EndDate), 
    sumifs=sum(Sample2[EndDate2 >= StartDate & StartDate2 <= EndDate])) 
x_sumifs = merge(x,x4,by=c('StartDate','EndDate'))

这就是输出的样子。

> x_sumifs 
    StartDate EndDate Sample sumifs 
1 2014-01-10 2014-01-24 139 697 
2 2014-01-12 2014-01-26 136 1459 
3 2014-01-19 2014-02-02 422 2358 
4 2014-01-25 2014-02-08 762 3671 
5 2014-01-29 2014-02-12 899 3715 
6 2014-02-05 2014-02-19 850 4159 
7 2014-02-07 2014-02-21 602 4159 
8 2014-02-09 2014-02-23 180 3397 
9 2014-02-18 2014-03-04 866 2498

来源

2014-11-03 20:52:09

你可以使用lapply/sapply从base R做到这一点。 x from @ cameron.bracken的帖子。

x$sumifs <- sapply(seq_len(nrow(x)), function(i) with(x, 
      sum(Sample[EndDate >= StartDate[i] & StartDate <= EndDate[i]]))) 

x 
# StartDate EndDate Sample sumifs 
#1 2014-01-10 2014-01-24 139 697 
#2 2014-01-12 2014-01-26 136 1459 
#3 2014-01-19 2014-02-02 422 2358 
#4 2014-01-25 2014-02-08 762 3671 
#5 2014-01-29 2014-02-12 899 3715 
#6 2014-02-05 2014-02-19 850 4159 
#7 2014-02-07 2014-02-21 602 4159 
#8 2014-02-09 2014-02-23 180 3397 
#9 2014-02-18 2014-03-04 866 2498

来源

2014-11-04 10:57:32 akrun

您可以使用'by'功能来获取该值。在'by'中，数据帧被逐行分解为由一个或多个因子的值子集的数据帧，并且函数被依次应用于每个子集。

x$sumifs <- by(Sample[EndDate >= StartDate[i] & StartDate <= EndDate[i]],sum)

有关功能的更多细节，可以发现here

来源

2017-07-13 18:21:45

Excel SUMIFS等效于R

回答

相关问题