输入数据框：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)

结果文件：