问R:如何在我的数据帧的所有列中删除tidyverse组中的单例？

EN

#make dataframe
sample.name <- c("a","a","a","b","b","b","c","c","c")
data <- as.data.frame(sample.name)
data$sample.pcr <- c("1","2","3","1","2","3","1","2","3")
data$AVS1 <- c(3,1,0,1,0,0,0,0,1)
data$AVS2 <- c(0,1,0,2,3,0,1,0,0)
data$AVS3 <- c(0,0,1,0,0,0,0,5,0)

#mutate so that if the sum of a sample.name group is 1 for an ASV then make that sum 0
data %>%
  group_by(sample.name) %>%
  mutate(AVS1 = case_when(sum(AVS1)==1 ~ 0,
                          T ~ AVS1),
         AVS2 = case_when(sum(AVS2)==1 ~ 0,
                          T ~ AVS2),
         AVS2 = case_when(sum(AVS3)==1 ~ 0,
                          T ~ AVS3))

library(dplyr)
data %>% 
   group_by(sample.name) %>%
   mutate(across(starts_with('AVS'), ~ case_when(sum(.) == 1 ~ 0, TRUE ~ .)))

# look and see if there are singletons
#we do this by summing occurrences of ASV in PCR reps per sample
#if there is a singleton, the sum of occurrences for an ASV in a sample will be equal to one
t <- data%>% group_by(sample.name) %>% #make group
  select(-sample.pcr) %>% #remove column
  dplyr::summarise(across(.fns=sum)) # sum an ASV's occurrence for a sample, do this across the whole dataset
sum(t==1) #check how many sums were equal to one - if this is greater than 0 then we need to remove singletons