服务热线
178 0020 3020
Part 1
library(ggplot2)
data=data.frame(sub=c("A","B","C","D","E"),value=c("10","15","20","25","50"))
ggplot(data,aes(x="",y=value,fill=sub))+geom_bar(stat="identity",width=2)+coord_polar(theta="y")+labs(x="city",y="value")+ggtitle("R2-06-dean")+theme(axis.ticks = element_blank())+theme(legend.title=element_blank(),legend.position="top")+theme(axis.text.x=element_blank())
Part2
library("lattice")
ggplot(data=singer,aes(x=voice.part,y=height,fill=voice.part))+geom_boxplot()+theme(legend.position='top',legend.title=element_blank())+ggtitle("R2-06-dean")
附件