R语⾔画图——structure图⼀页多图structure图⼀页多图
library(grid)
library(cowplot)
## 我这⾥是9个⽂件，要画9张图，画到⼀页上，且是9⾏1列的这种
小不点儿ta1 = read.table("anQ")
ta2 = read.table("anQ")
ta3 = read.table("anQ")
ta4 = read.table("anQ")
ta5 = read.table("anQ")
ta6 = read.table("anQ")
ta7 = read.table("anQ")
ta8 = read.table("anQ")
ta9 = read.table("anQ")
tiff(filename = "faststructure_flint.tif", width = 100, height = 50, units = "cm", compression = "lzw",res = 600) par(mfrow=c(9,1))
par(mar=c(2,4,5,4))苹果画图
barplot(t(as.matrix(ta1)),col = rainbow(2),
# xlab = "Individual",
# ylab = "Ancestry",
# main = "alldata",
# cex.names = 5,
药物过敏的症状
border = NA)
mtext("flint",side = 3,line= 0,cex = 5)
par(mar=c(2,4,2,4))
怎么清除手机内存barplot(t(as.matrix(ta2)),col = rainbow(3),
# xlab = "Individual",
# ylab = "Ancestry",
border = NA)
par(mar=c(2,4,2,4))
barplot(t(as.matrix(ta3)),col = rainbow(4),
# xlab = "Individual",
# ylab = "Ancestry",
border = NA)
麻辣鸡腿的做法par(mar=c(2,4,2,4))
barplot(t(as.matrix(ta4)),col = rainbow(5),
# xlab = "Individual",
# ylab = "Ancestry",咀嚼
border = NA)
par(mar=c(2,4,2,4))
barplot(t(as.matrix(ta5)),col = rainbow(6),
# xlab = "Individual",
# ylab = "Ancestry",
border = NA)
par(mar=c(2,4,2,4))
barplot(t(as.matrix(ta6)),col = rainbow(7),
# xlab = "Individual",
# ylab = "Ancestry",
border = NA)
水的用处
par(mar=c(2,4,2,4))
barplot(t(as.matrix(ta7)),col = rainbow(8),
# xlab = "Individual",
# ylab = "Ancestry",
border = NA)
par(mar=c(5,4,2,4))
barplot(t(as.matrix(ta8)),col = rainbow(9),
# xlab = "Individual",
# cex.axis = 5,
# ylab = "Ancestry",
border = NA)
mtext("Individual",side = 1,line = 4,cex = 5)
dev.off()
>微信推广技巧
