输入数据框:dfuorf,Type列有uORF和overlpaORF两种类型
dfuorf1 <- dfuorf %>%group_by(Type) %>% summarise(Count=n()) %>% mutate(percent=Count/sum(Count)) %>%
mutate(percent1 = (paste0(round((Count/sum(Count)), 2)*100,"%",sep=""))) %>% rename(Name=Type)
结果文件: