使用ggplot2绘图

image.png

library('ggplot2')
setwd('/Users/a/Downloads/0-tmp/0-transfer_to_file/2-SNP_distribution')
a <- read.table('ch01.txt',header =F)
png('ch01.png',width=700, height = 350)
ggplot(a,aes(x=V2, y = V4)) + geom_line(colour = 'red',size = 1) + scale_y_continuous(name=NULL) + scale_x_continuous(name = NULL,limits=c(0, 90e6),breaks = seq(0,90e6,10e6), labels= NULL) + theme(panel.background = element_blank(),axis.line = element_line(colour = "black"), axis.text.y=element_text(size=20)   ) 
dev.off()

注释：

ggplot(a,aes(x=V2, y=V4))
#绘图，所用数据集为a，将数据集中V2这一列作为x，V4作为y

geom_line(colour = 'red',size = 1)
#geom_line()，绘制折线图。使用colour设置线条颜色，使用size设置线条粗细。
#geom_point()，绘制散点图。

scale_x_continuous(name = NULL,limits=c(0, 90e6),breaks = seq(0,90e6,10e6), labels= NULL)
#如果x轴为连续数据，通过这个命令设置x轴的范围，名称，刻度以及是否显示刻度值
#name，设置x轴名称；limits，设置x轴范围，这里设置的范围是0-90e6；breaks，设置刻度的长度和断点长度，这里设置在0-90e6的范围内放置刻度，刻度的间隔为10e6；labels，设置刻度值的格式，这里设置为不显示刻度值。

scale_y_continuous(name=NULL)
#如果y轴是连续数据，用这个命令设置y轴范围。类似于x轴的设置。

theme(panel.background = element_blank(),axis.line = element_line(colour = "black"), axis.text.y=element_text(size=20)
#theme()，用来对图像进行定制
#panel.background，设置背景颜色；axis.line，设置坐标轴颜色；axis.text.y，设置y轴字体大小