太阳当空照,花儿对我笑。
看不到戳这里
http://blog.sina.com.cn/s/blog_3f16beff0102v3uf.html
</p>
<p>#生成数据<br />
V1<-as.matrix(runif(n = 10,100,200))<br />
V1<-rbind(t(V1),100)<br />
dim(V1)<-c(20,1)<br />
V1<-c(V1,V1[1])<br />
dim(V1)<-c(21,1)<br />
colnames(V1)<-"hight"<br />
V1<-as.data.frame(V1)<br />
#生成lab数据<br />
V1.1<-as.data.frame(V1[(1:10)*2-1,])<br />
colnames(V1.1)<-"hight"<br />
#绘图<br />
ggplot(V1,aes(x=1:21,y=hight))+ylim(c(0,200))+<br />
#绘制一个黄色的圈圈<br />
geom_density(aes(1:21,100),fill="yellow",color=NA)+<br />
#绘制很多红色的小土包,直角边三角形我不会画,变换来的都是弯的<br />
geom_text(data=V1.1,aes((1:10)*2-1,y=hight,label=hight))+<br />
#加上标签说明每个土包是如何炼成的<br />
geom_density(stat="identity",fill="red",color=NA,alpha=0.5)+<br />
#极坐标变换<br />
coord_polar("x")<br />
</p>