列线图的绘制

该图主要是为了展示：各个位置的氨基酸是什么，说是列线图，不如来说，这是一个展示氨基酸顺序的图
首先配置数据

file<-read.csv("1.csv" )
colors<-colorRampPalette(c("white", "red"))(100)
col_order<-colors[order(file[,9])]
pdf(file="12345.pdf",width = 25,height = 5)
par(mfcol=c(4,1))#设置四行
barplot(rep(1,100),space=0,col=col_order[1:100],axes=F)
axis(side = 3, at = (c(1:100)-0.5), labels =file[1:100,3])
axis(side = 1, at = (c(1:100)-0.5), labels =1:100)

barplot(rep(1,100),space=0,col=col_order[1:100],axes=F)
axis(side = 3, at = (c(1:100)-0.5), labels =file[101:200,3])
axis(side = 1, at = (c(1:100)-0.5), labels =101:200)

barplot(rep(1,100),space=0,col=col_order[1:100],axes=F)
axis(side = 3, at = (c(1:100)-0.5), labels =file[201:300,3])
axis(side = 1, at = (c(1:100)-0.5), labels =201:300)

barplot(rep(1,80),space=0,col=col_order[1:100],axes=F)
axis(side = 3, at = (c(1:80)-0.5), labels =file[301:380,3])
axis(side = 1, at = (c(1:80)-0.5), labels =301:380)
dev.off()

绘制结果如下：