79407585

Date: 2025-02-03 00:32:34
Score: 2.5
Natty:
Report link
data2<-data %>% group_by(ID) %>% mutate(Sample_Type = factor(Sample_Type, levels = c("Control","Sample"))) %>% filter(all(levels(Sample_Type) %in% Sample_Type)) %>% ungroup()
Reasons:
  • Low length (1):
  • Has code block (-0.5):
  • Self-answer (0.5):
  • Single line (0.5):
  • Low reputation (1):
Posted by: mbasista