我在R中使用了以下代码来生成此图:
x <- c(0.916, 0.815, 0.101, -0.029, -0.166, 0.949, 0.073, -0.054, 1.006)
y <- c(3.91, 5.17, 1.08, 1.28, 1.01, 4.37, 3.97, 0.77, 4.52)
sd <- c(0.35, 2.26, 0.17, 0.08, 0.27, 0.49, 0.65, 0.12, 1.45)
windows()
plot(x,y, ylim=c(0, 8), xlim=c(-0.4, 1.2), pch=19, cex.axis=0.8,
cex.lab=0.9, xlab="Male/Female expression ratio (log)",
ylab="Z/W expression ratio in females", las=1)
for (i in 1:9) {
up <- y[i] + sd[i]
low <- y[i] - sd[i]
segments(x[i], low, x[i], up)
segments(x[i]-0.02, up, x[i]+0.02, up)
segments(x[i]-0.02, low, x[i]+0.02, low)
}
Run Code Online (Sandbox Code Playgroud)
我的问题是我如何摆脱两个顶轴和右轴并且只保留左下轴?

小智 5
如果您想保持盒状外观而不是"自由浮动"轴,bty ="l"请在plot命令中添加(小写L).
导致:
plot(x, y, ylim=c(0, 8), xlim=c(-0.4, 1.2), pch=19, cex.axis=0.8,
cex.lab=0.9, xlab="Male/Female expression ratio (log)",
ylab="Z/W expression ratio in females", las=1, bty = "l")
Run Code Online (Sandbox Code Playgroud)
这只会移除上框架和右框架杆.也可以看看?par
编辑:
看看您的图表和您的计算似乎,您想要为特定组绘制平均值,然后还显示一些标准偏差.在这种情况下,我建议boxplot()您查看使用原始数据为您执行此操作的命令.看到?boxplot