R 中的 ggplot：带有对数刻度标签错位的条形图

Question

所以我要制作一个条形图，并且由于数据范围的原因，y 轴的对数图是有保证的。所以问题是我的值为 0.5，在 log10 中为 -0.3。由于条形变为负数，用于放置标签的条形 "top" 实际上是 "bottom" 所以我的文本标签是 "just above" 底部，这意味着在酒吧的中间。我想我可能不是第一个遇到这个问题的人，但搜索相关修复程序并没有帮助。最值得注意的是，我尝试使用闪避，但这并没有改变酒吧的 "top" 实际上是 "bottom".

所以两个问题：

我可以解决这个标签问题吗？
这太丑陋了：我可以将 x 轴向上移动到 y=1 以在不移动 x 轴标签的情况下为负值提供更多上下文吗？

.

alpha=c('A','B','C','D')
value=c(0.5,10,40,1100)
table<-as.data.frame(alpha)
table<-cbind(table, value)
library(ggplot2) 
graph <- ggplot(table, aes(x=alpha)) + 
  geom_bar(stat="identity",aes(y=value),width=0.5) + 
  geom_text(aes(y=value,label=value),vjust=-0.5) + 
  scale_y_continuous(trans="log10",limits=c(0.5,1400))
graph + theme_classic()

Answer 1

修改数据标签y坐标的小技巧（使用ifelse()将y的值设置为1如果值小于1 ).至于坐标轴，只需隐藏X轴（设置为element_blank()）并绘制一条新的水平线：

graph <- ggplot(table, aes(x=alpha)) + 
  geom_bar(stat="identity",aes(y=value),width=0.5) + 
  # Modify the placing of the label using 'ifelse()':
  geom_text(aes(y=ifelse(value < 1, 1, value),label=value),vjust=-0.5) + 
  scale_y_continuous(trans="log10",limits=c(0.5,1400)) + 
  theme_classic() +
  # Hide the X axis:
  theme(axis.line.x = element_blank()) +
  # Draw the new axis
  geom_hline()
print(graph)

输出：

R 中的 ggplot：带有对数刻度标签错位的条形图

ggplot in R: barchart with log scale label misplacement

r

bar-chart

ggplot2