r - 如何在 R 中的条形图中的轴上添加百分号？

Question

我目前有以下代码

    testdata <- data.frame(one=c(.25),two=c(.25),three=c(.5))

b <- barplot(t(testdata*100), col=c("darkred","darkblue","darkgoldenrod"), cex.axis=0.7,horiz=TRUE,border=NA)
text(b, x = c(.125,.375,.75)*100, c("Label1", "Label2", "Label3"), cex=.7, col="white")
text(b, x = c(0,20,40,60,80,100), y=0, labels = rep("%",6), cex=.7)

但我不想乘以 100，而是将其解释为百分比并在轴标签(或至少是后者)中的每个增量后添加“%”。

Answer 1

在使用 barplot()(使用 axes = FALSE)绘图时更容易抑制轴，然后手动添加轴，您可以控制轴的定位刻度线和随之而来的标签。下面的代码是执行此操作的一种方法

b <- barplot(t(testdata), col = c("darkred","darkblue","darkgoldenrod"), 
             horiz = TRUE, border = NA, axes = FALSE)
labs <- seq(0, 1, by = 0.25)
text(b, x = c(0.125, 0.375, 0.75), labels = c("Label1", "Label2", "Label3"),
     cex = 0.7, col = "white")
axis(side = 1, at = labs, labels = paste0(labs * 100, "%"), cex.axis = 0.7)

产生

这就是你想要的吗？