library(tidyverse)
set.seed(42) # for reproducible random data
(example_data <- data.frame(
case_num =1:100,
source = c(rep(0,50),rep(1,50)),
adverse_event = factor(sample(c(letters,LETTERS),size=100,replace=TRUE))
))
(
result_df <- group_by(example_data,
adverse_event) %>%
summarise(total_cases = n(),
both_sources = sum(source==0) > 0 & sum(source==1) > 0 )
)