在条形图底部显示旋转数字，贴在地板上
Display rotated numbers at the bottom of a bar plot, sticked to the floor
我想在条形图中写一些数字，如下图所示：
我想让数字贴在地板上，这样每个栏中的每个数字都从底部开始。现在。每个数字都从不同的 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))
如果有人有想法，我将不胜感激
它正在按照您的指示去做。将 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: ^^^ ^^^
我想在条形图中写一些数字，如下图所示：
我想让数字贴在地板上，这样每个栏中的每个数字都从底部开始。现在。每个数字都从不同的 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))
如果有人有想法，我将不胜感激
它正在按照您的指示去做。将 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: ^^^ ^^^