试图在 R 中找到满足顺序条件的 ID

Question

我正在尝试 return 一个基于一个人是否满足一组条件并且稍后还满足另一组条件的逻辑向量。我使用的数据框如下所示：

Person.Id     Year       Term

250             1         3
250             1         1
250             2         3  
300             1         3           
511             2         1
300             1         5
700             2         3

我想要的 return 是一个逻辑向量，它指示 true/false 如果人 ID 250 有第 1 年和第 3 学期，并且后来有第 2 年和第 3 学期。所以一个人只有第 1 年第 3 学期或第 1 年第 5 学期将 return 错误。首选 dplyr 中的解决方案！我觉得这很简单，我只是错过了一些东西。我最初尝试了这段代码，但它 returned 是一个空白 df:

df2 <- df1 %>%
        group_by(Person.Id) %>%
        filter((year==1 & term==3) & (year==2 & term==3))

Answer 1

也许这可以帮助：

#Data
Data <- structure(list(Person.Id = c(250L, 250L, 250L, 300L, 511L, 300L, 
700L), Year = c(1L, 1L, 2L, 1L, 2L, 1L, 2L), Term = c(3L, 1L, 
3L, 3L, 1L, 5L, 3L)), row.names = c(NA, -7L), class = "data.frame")
#Flags
cond1 <- Data$Year==1 & Data$Term==3
cond2 <- Data$Year==2 & Data$Term==3
#Replace
Data$Flag1 <- 0
Data$Flag1[cond1]<-1
Data$Flag2 <- 0
Data$Flag2[cond2]<-1
#Filter 
Data %>% group_by(Person.Id) %>% filter(Flag1==1 | Flag2==1)

# A tibble: 4 x 5
# Groups:   Person.Id [3]
  Person.Id  Year  Term Flag1 Flag2
      <int> <int> <int> <dbl> <dbl>
1       250     1     3     1     0
2       250     2     3     0     1
3       300     1     3     1     0
4       700     2     3     0     1

Answer 2

您在寻找这样的东西吗？

require(dplyr)

df %>% 
  group_by(Person.Id) %>% 
  mutate(count=sum((year==1 & term==3) | (year==2 & term==3))) %>% 
  mutate(count2=if_else(count==2,T,F))

# A tibble: 7 x 5
# Groups:   Person.Id [4]
  Person.Id  year  term count count2
      <int> <int> <int> <int> <lgl> 
1       250     1     3     2 TRUE  
2       250     1     1     2 TRUE  
3       250     2     3     2 TRUE  
4       300     1     3     1 FALSE 
5       511     2     1     0 FALSE 
6       300     1     5     1 FALSE 
7       700     2     3     1 FALSE

试图在 R 中找到满足顺序条件的 ID

Trying to find occurrences of ID that meets sequential conditions in R

r

vector

logical-operators

dataframe

dplyr