R频数分布图及箱线图

最开始画频数分布图用的是excel的数据透视表，虽然简单易行，但是画的图杂志不认可，没办法就到处请教别人R的画法。

fa=read.table("fa.rrr",header=FALSE)
ea=read.table("ea.rrr",header=FALSE)
mat_fa=density(data.matrix(fa))#频数分布
mat_ea=density(data.matrix(ea))
max_y_fa=max(mat_fa$y)#取峰值
max_y_ea=max(mat_ea$y)
f_fa=data.frame(mat_fa$x, mat_fa$y)#转换数据框
f_ea=data.frame(mat_ea$x, mat_ea$y)
max_x_fa=(subset(f_fa, mat_fa$y==max_y_fa))$mat_fa.x#取峰值所在横坐标
max_x_ea=(subset(f_ea, mat_ea$y==max_y_ea))$mat_ea.x
pdf("fe.pdf")
plot(mat_fa, type="l", col="red", xlim=c(-10,10), ylim=c(0,0.35), xlab="log2(P/M)", main="header")
axis(1,-10:10)#改变横坐标窗口
lines(mat_ea$x, mat_ea$y, type="l", col="blue", add=TRUE)
abline(h=0,v=max_x_fa, col="grey")
abline(h=0,v=max_x_ea, col="grey")
name=c("f