饼图以及扇形图
x <- read.csv("homo_length.csv",header = T)x <- x
barplot(height = x$length,names.arg = x$chr)
pie(x$length/sum(x$length))
m <- read.table("Species.txt");
m
x <- m[,3]
pie(x);
# colours()
# sample(colours(),7)
# rainbow(7)
pie(x,col=rainbow(length(x)))
lbls <- paste(m[,1],m[,2],"\n",m[,3],"%" )
pie(x,col=rainbow(length(x)),labels = lbls)
pie(x,col=rainbow(length(x)),labels = lbls,radius = 1)
pie(x,col=rainbow(length(x)),labels = lbls,radius = 1,cex=0.8)
#3D饼图
#install.packages("plotrix")
library(plotrix)
pie3D(x,col=rainbow(length(x)),labels = lbls)
pie3D(x,col=rainbow(length(x)),labels = lbls,cex=0.8)
pieplot <- pie3D(x,col=rainbow(length(x)),radius = 1,explode = 0.05,labels = lbls)
# pie3D.labels(pieplot,labels = lbls,labelcex = 0.8,height = 0.1,labelrad = 1.75)
#扇形图
fan.plot(x,col=rainbow(length(x)),labels = lbls,cex=0.8,radius = 1)
3D饼图
扇形图
页:
[1]