带辅助轴的圆点图答案

【问题标题】：Dotchart with secondary axis带辅助轴的圆点图
【发布时间】：2017-10-17 15:12:12
【问题描述】：

我正在尝试制作一个顶部带有辅助轴的点图。但是，一旦我绘制了第二个点图（使用 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 轴类别。

感谢您的任何建议:)

【问题讨论】：

标签： r plot

【解决方案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")

【讨论】：