r - 如何使用 dplyr 在行组之间进行划分

Question

我有类似的数据，我想要这个链接所说的确切结果:
How to divide between groups of rows using dplyr?

但是，与我的数据的唯一区别是，有时列“条件”并不总是有“A”或“B”，因此有时没有分母或分子。

x <- data.frame(
    name = rep(letters[1:4], each = 2),
    condition = rep(c("A", "B"), times = 4),
    value = c(2,10,4,20,8,40,20,100)
) 
x = x[-c(4,5),] #this is my dataframe

我想删除并不总是同时包含 A 和 B 的行并继续除法。谁能告诉我如何根据此代码执行此操作？

x %>% 
  group_by(name) %>%
  summarise(value = value[condition == "B"] / value[condition == "A"])

Answer 1

您可以删除没有“A”或“B”的组，然后进行划分。

library(dplyr)

x %>%
  group_by(name) %>%
  filter(all(c('A', 'B') %in% condition)) %>%
  summarise(value = value[condition == "B"] / value[condition == "A"])

#  name  value
#  <fct> <dbl>
#1 a         5
#2 d         5