饼图以及扇形图

生信喵

1. x <- read.csv("homo_length.csv",header = T)
   
2. x <- x[1:24,]
   
3. barplot(height = x$length,names.arg = x$chr)
   
4. pie(x$length/sum(x$length))
   
5. 
   
6. m <- read.table("Species.txt");
   
7. m
   
8. x <- m[,3]
   
9. pie(x);
   
10. # colours()
    
11. # sample(colours(),7)
    
12. # rainbow(7)
    
13. pie(x,col=rainbow(length(x)))
    
14. lbls <- paste(m[,1],m[,2],"\n",m[,3],"%" )
    
15. pie(x,col=rainbow(length(x)),labels = lbls)
    
16. pie(x,col=rainbow(length(x)),labels = lbls,radius = 1)
    
17. pie(x,col=rainbow(length(x)),labels = lbls,radius = 1,cex=0.8)
    
18. 
    
19. #3D饼图
    
20. #install.packages("plotrix")
    
21. library(plotrix)
    
22. pie3D(x,col=rainbow(length(x)),labels = lbls)
    
23. pie3D(x,col=rainbow(length(x)),labels = lbls,cex=0.8)
    
24. pieplot <- pie3D(x,col=rainbow(length(x)),radius = 1,explode = 0.05,labels = lbls)
    
25. # pie3D.labels(pieplot,labels = lbls,labelcex = 0.8,height = 0.1,labelrad = 1.75)
    
26. 
    
27. #扇形图
    
28. fan.plot(x,col=rainbow(length(x)),labels = lbls,cex=0.8,radius = 1)

复制代码

3D饼图

扇形图