セカンダリ軸のドットチャート

Question

私は、セカンダリ軸を上にしてドットチャートを作成しようとしています。しかし、一度、2番目のドットチャート（par（new = T）を使って）をプロットすると、軸の目盛りを前の軸の目盛りに軸の側= 1で表示しないでください。ここでは、模擬データとの私のコードがあります：可能な場合は

y1_i <- c(2,8,2,14,2) 
y2_i <- c(15,17,28,22,30) 
y1_f <- c(4,9,11,16,7) 
y2_f <- c(13,11,16,11,21) 

y=c(y1_i,y2_i,y1_f,y2_f) 

x <- c("AAEG","AALO","AGAM","ACHR","AALB") 

y1=c(y1_i,y1_f) 
y2=c(y2_i,y2_f) 

dotchart(y1_i,labels=x,xlab="N50 length",xlim = c(0,max(y1))) 
par(new=T) 
dotchart(y2_i,labels=x,xlim = c(0,max(y2))) 
axis(side=3) 

また、私は少し（それに重ならないように）最初のデータセットの垂直上方に押されることになる第二のデータセットを追加したいと思い、依然として同じy軸カテゴリに対応しています。

はどんな提案いただきありがとうございます:)それを見つけた

Answer 1

、Hmiscパッケージから

library(Hmisc) 

y1_i <- c(2,8,2,14,2) 
y2_i <- c(15,17,28,22,30) 
y1_f <- c(4,9,11,16,7) 
y2_f <- c(13,11,16,11,21) 

y=c(y1_i,y2_i,y1_f,y2_f) 

x <- c("AAEG","AALO","AGAM","ACHR","AALB") 

y1=c(y1_i,y1_f) 
y2=c(y2_i,y2_f) 
y1_i <- c(2,8,2,14,2) 
y2_i <- c(15,17,28,22,30) 
y1_f <- c(4,9,11,16,7) 
y2_f <- c(13,11,16,11,21) 

y=c(y1_i,y2_i,y1_f,y2_f) 

x <- c("AAEG","AALO","AGAM","ACHR","AALB") 

y1=c(y1_i,y1_f) 
y2=c(y2_i,y2_f) 

dotchart2(y1_i,labels=x,xlab="N50 length",xlim = c(0,max(y1))) 
par(new=T) 
dotchart2(y2_i,labels=x,xlim = c(0,max(y2)),xlab="Scaffold number",lines=F,xaxis=F) 
axis(side=3,xlab="Scaffold number") 

をdotchart2使用して