我的一个CSV文件有超过1000行记录,我想创建一个条形图并用“蓝色”或“红色”为条形颜色,具体取决于每个图表的值。所以我做了以下,但我注意到当我绘制整个CSV文件时,我没有看到任何“蓝色”或“红色”条;然而,当我截断前50行并做同样的情节时,我能够看到彩色条纹。
> cols<-c("blue", "red")[(x>10)+1]
> barplot(x, col=cols, main="FO1_FO2 Variant Allele Frequencies", xlab="SNPs", ylab="VAF(%)", space=c(0.2, 0.8))
当我有1000多个条形/行数据时,有没有办法让彩条?或者是否有更好的绘图来显示值并通过颜色区分差异?
答案 0 :(得分:8)
它正在绘制颜色,但它也绘制了一个覆盖颜色的边框。尝试
x<-rpois(1000,7)
cols<-c("blue", "red")[(x>10)+1]
barplot(x, col=cols,
main="FO1_FO2 Variant Allele Frequencies",
xlab="SNPs", ylab="VAF(%)",
space=c(0.2, 0.8),
border=NA)
border=NA
将禁用边框的绘制。