条形图以及分组条形图

# 实践：绘制人染色体长度分布图
x <- read.csv(file = "homo_length.csv",header = T)
head(x)
x <- x[1:24,] 

barplot(height = x$length)  
barplot(height = x$length,names.arg = x$chr)  
barplot(height = x$length,names.arg = x$chr,las =3)  
barplot(height = x$length,names.arg = x$chr,las =3,col = rainbow(4))  
barplot(height = x$length,names.arg = x$chr,las =3,col = 'red')  
barplot(height = x$length,names.arg = x$chr,las =3,col = c('red','green'))
library(RColorBrewer)  
display.brewer.all()
cols <- brewer.pal(n = 6,name = "RdPu")  
barplot(height = x$length,names.arg = x$chr,col = cols) 
cols <- brewer.pal(n = 6,name = "Dark2")  
barplot(height = x$length,names.arg = x$chr,col = cols) 
cols <- brewer.pal(n = 6,name = "Blues")  
barplot(height = x$length,names.arg = x$chr,col = cols) 
cols <- brewer.pal(n = 6,name = "Set1")
barplot(height = x$length,names.arg = x$chr,col = cols,las=3) 
barplot(height = x$length,names.arg = x$chr,col = cols,horiz = T,las=2) 
par('mar')
barplot(height = x$length,names.arg = x$chr,col = cols,horiz = T,las=2,
        border = F,width = c(1,2),space = 0.1) 
barplot(height = x$length,names.arg = x$chr,las=2,
        border = F,width = c(1,2),space = 1,density = 12,angle = c(45,135))

 #绘制分组条形图
x <- read.csv("sv_distrubution.csv",header = T,row.names = 1)  
head(x) 
#barplot(x)  
barplot(as.matrix(x))  
barplot(t(as.matrix(x)))  
# barplot(t(as.matrix(x)),col = rainbow(4))  
barplot(t(as.matrix(x)),col = brewer.pal(4,name = 'Set2')) 
barplot(t(as.matrix(x)),col = brewer.pal(4,name = 'Set2'),beside = T)  
barplot(t(as.matrix(x)),col = brewer.pal(4,name = 'Set2'),
        horiz = F,density = 30,angle = c(45,135)) 
barplot(t(as.matrix(x)),col = brewer.pal(4,name = 'Set2')) 
barplot(t(as.matrix(x)),col = brewer.pal(4,name = 'Set2'),legend.text = colnames(x),ylim = c(0,800),  
        main = "SV Distribution",xlab="Chromosome Number",ylab="SV Numbers")

sx.voiceclouds.cn