R 中散点 plot y 轴上的百分比

Question

嗨，我正在尝试将 y 轴更改为每个数字后的百分比，因此 [20%,30%, 40%, 50%, 60%]。 如果还有一种方法可以为 x 轴执行此操作，请分享。 谢谢你。 此外，由于某种原因，传说没有出现。

dose  <- c(20, 30, 40, 45, 60)
drugA <- c(16, 20, 27, 40, 60)
drugB <- c(15, 18, 25, 31, 40)


plot( dose, drugA, col='blue', lty=1)
points( dose, drugB, col='red', lty=2)
legend(1, 95, legend=c("Drug A", "Drug B"),
       col=c("blue", "red"), lty=1:2, cex=0.8)
grid( lty=1 )

我是 R 的新手，如果这是一个简单的答案，我很抱歉。

Answer 1

在基础 R 绘图中，您通常必须关闭默认值，然后生成一个新轴，例如：

## note xaxt="n" suppressing the y axis
plot(dose, drugA, col='blue', lty=1, xaxt="n")
points(dose, drugB, col='red', lty=2)
legend(1, 95, legend=c("Drug A", "Drug B"),
       col=c("blue", "red"), lty=1:2, cex=0.8)
grid(lty=1)
## add a new axis
axis(1, at=axTicks(1), labels=paste0(axTicks(1), "%"))