写文章过程中遇到了这个绘图问题，需要在曼哈顿图上添加多样性曲线，两者的尺度差别比较大，直接用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)