服务热线
178 0020 3020
setwd("E:/bioinformatics/fanzhimin")
library(ggplot2)
library(lattice)
data1<-data.frame(city=c("A","B",'C','D','E'),value=c("20","18","16","14","12"))
ggplot(data1,aes(x="",y=value,fill=city))+geom_bar(stat="identity",width=1)+coord_polar(theta="y")+xlab("city")+ ylab("value")+ggtitle("R2-36")+theme(legend.title = element_blank(),legend.position = "top")+theme(axis.ticks = element_blank())
ggplot(singer,aes(x=voice.part,y=height,fill=voice.part))+geom_boxplot()+theme(legend.position ='top',legend.title = element_blank())+labs(title="R2-36")
附件