服务热线
178 0020 3020
library(ggplot2)
mydata <- data.frame(city=c("A","B","C","D","E"),value=c("40","20","20","5","5"))
p<-ggplot(mydata,aes(x="",y=value,fill=city))+geom_bar(stat="identity",width=1)+coord_polar(theta="y")+labs(x="city",y="value")+ggtitle("R2-10")+theme(legend.title=element_blank(),legend.position="top")+theme(axis.ticks = element_blank())
p
data(singer,package="lattice")
library(ggplot2)
p<-ggplot(singer,aes(x=voice.part,y=height,fill=voice.part))+geom_boxplot()+theme(legend.title=element_blank(),legend.position="top")+ggtitle("R2-10")
p
附件