根据R中的两列计算差异

Question

我有一个棘手的问题。这是我的数据：

> structure(list(seconds = c(689, 689.25, 689.5, 689.75, 690, 690.25, 690.5, 690.75, 691, 691.25, 691.5, 691.75, 692, 692.25, 692.5 ), threat = c(NA, NA, NA, NA, NA, NA, 1L, 1L, 0L, 0L, 1L, NA,  NA, 1L, 1L), bins = c(1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L,  3L, 3L, 3L, 3L, 3L)), .Names = c ("seconds", "threat", "bins"), class = "data.frame", row.names = c(NA, -15L))

   seconds threat bins
1   689.00     NA    1
2   689.25     NA    1
3   689.50     NA    1
4   689.75     NA    1
5   690.00     NA    1
6   690.25     NA    2
7   690.50      1    2
8   690.75      1    2
9   691.00      0    2
10  691.25      0    2
11  691.50      1    3
12  691.75     NA    3
13  692.00     NA    3
14  692.25      1    3
15  692.50      1    3

在每个容器中，我试图计算它们在威胁列中每种类型 "threat" 中的时间量。因此，每次在威胁和每个箱子内发生不同的事情时，我都需要计算差异分数。所以这是我希望实现的一个例子：

  bin threat seconds
   1     NA    1.25
   1      1    0.00
   1      0    0.00
   2     NA    0.25
   2      1    0.50
   2      0    0.50
   3     NA    0.50
   3      1    0.75
   3      0    0.00

Answer 1

这是一个 tidyverse 解决方案：

df %>% arrange(seconds) %>% 
  mutate(duration = lead(seconds) - seconds) %>% 
  complete(bins, threat, fill = list(duration = 0)) %>%
  group_by(bins, threat) %>% 
  summarize(seconds = sum(duration, na.rm = TRUE))
# A tibble: 9 x 3
# Groups:   bins [?]
#    bins threat seconds
#   <int>  <int>   <dbl>
# 1     1      0    0   
# 2     1      1    0   
# 3     1     NA    1.25
# 4     2      0    0.5 
# 5     2      1    0.5 
# 6     2     NA    0.25
# 7     3      0    0   
# 8     3      1    0.5 
# 9     3     NA    0.5

如果不需要添加 seconds 为 0 的行，您可以删除 complete(bins, threat, fill = list(duration = 0))。

所以，首先我们arrange数据是安全的。然后由于 threat 之间的相互作用，我们定义了一个新变量 duration。接下来，我们为那些 (bins、threat) 尚不存在的案例添加带有 duration == 0 的新行。最后我们按 bins 和 threat 分组并对持续时间求和。

根据R中的两列计算差异

Calculate difference based on two columns in R

r

difference