带辅助轴的圆点图

Question

我正在尝试在顶部生成带有辅助轴的圆点图。然而，一旦我绘制第二个圆点图（使用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包中的dotchart2

找到它

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")