标签:com value seed pch div alt 0.00 nat src
写文章过程中遇到了这个绘图问题,需要在曼哈顿图上添加多样性曲线,两者的尺度差别比较大,直接用lines函数进行添加,效果悲剧。强行将尺度差距大的两者画在同一图中,效果大概就是下面这个样子。
这个图不容易看出数据的比较差异来。为解决这个问题,可使用R plotrix包里的twood.plot函数,在同一张图中使用两种不同的尺度,函数描述如下:
使用这个函数之后,再来画图:
无视色彩搭配和审美问题,至少比前面的图要直观一些了,两种信息的联系也能看的比较清晰。 最后放上代码~~~
#########################################
## Plot with two ordinates ##
#########################################
library(plotrix)
set.seed(1234)
pvalue <- runif(100,0,0.005)
Diversity <- runif(100,0,5)
# Fig 1
x <- seq(1,100)
pvalue <- -log(pvalue)
plot(c(0,100),c(0,12),type=‘n‘,xlab=‘Position‘,ylab=‘value‘)
points(pvalue,pch = 20, col=‘gray50‘)
lines(x,Diversity,col=‘blue‘)
# Fig 2
twoord.plot(x,pvalue,x,Diversity,xlab=‘Position‘,ylab=‘-log pvalue‘,
rylab=‘Diversity‘,lcol=‘gray50‘,rcol=‘blue‘,type=c(‘p‘,‘l‘),lpch=20)
标签:com value seed pch div alt 0.00 nat src
原文地址:http://www.cnblogs.com/WeltStar2017/p/R_PlotTwoOrdinates.html