在条形图底部显示旋转数字，粘在地板上

Posted 2023-02-14

【中文标题】在条形图底部显示旋转数字，粘在地板上

【英文标题】：Display rotated numbers at the bottom of a bar plot, sticked to the floor

【发布时间】：2022-01-23 00:15:33

【问题描述】：

我想在条形图中写一些数字，如下图所示：

我想把数字粘在地板上，这样每个条形图中的每个数字都从底部开始。现在。每个数字从不同的 y 值开始，具体取决于其长度。我用adj 和pos 试过了，但是没有用。另外，这主要使我的数字分散了。这是一个可重现的示例：

data <- data.frame(x = as.factor(c(1:12)), y = rep(30,12), z = c(100,20,30,40,50,60,70,80,100,100,1000,10000)) 
my_bar <- barplot(data$y,ylim = c(0,30))
text(my_bar, 3 , paste(data$z) ,cex=1, srt = 90, font = 2, adj = c(0.5, 0.5))

如果有人有想法，我将非常感激

【参考方案1】：

它正在做你告诉它做的事情。将adj=c(0, 0.5) 更改为左对齐，将3 更改为1（或0 或类似的东西）以靠近底部边距。

data <- data.frame(x = as.factor(c(1:12)), y = rep(30,12), z = c(100,20,30,40,50,60,70,80,100,100,1000,10000)) 
my_bar <- barplot(data$y,ylim = c(0,30))
text(my_bar, 1 , paste(data$z) ,cex=1, srt = 90, font = 2, adj = c(0, 0.5))
# changes:  ^^^                                                   ^^^