如何在R的ggplot中为极值数据正确设置log10对数坐标轴？

问题根源 #

直接用scale_x_log10()会出问题，是因为条形图的x轴从0开始，而log₁₀(0)是负无穷，ggplot没法处理这个起始点，导致图形异常。另外线性轴下，澳大利亚的占比是其他国家的100-500倍，直接把小条形挤得几乎看不见，tooltip也触发不了。

解决方案1：用坐标变换替代刻度变换 #

用coord_trans(x = "log10")只变换坐标轴显示，不碰原始数据，同时设置x轴下限避开0，既保留条形图形态，又能让小数值清晰显示，tooltip也能正常显示真实百分比。

library(ggplot2)
library(plotly)

df <- data.frame(
  country = c("Australia", "United Kingdom", "United States", "China", "Ukraine", "New Zealand"),
  percentage = c(0.98, 0.002, 0.005, 0.007, 0.003, 0.003)
)

p <- df %>% 
  ggplot(aes(x = percentage, y = reorder(country, -percentage), fill = country)) +
  geom_bar(stat = "identity") +
  coord_trans(x = "log10", xlim = c(0.001, 1)) +  # 设下限略小于最小数据，避开0
  scale_x_continuous(breaks = c(0.001, 0.01, 0.1, 1), labels = scales::percent)  # 刻度转百分比格式

ggplotly(p, tooltip = c("country", "percentage"))  # 指定tooltip显示字段

解决方案2：改用棒棒糖图（更适合小数值） #

棒棒糖图用线段+点代替条形，避开了条形从0开始的限制，对数轴上展示更自然，小占比的点也能清晰看见，交互更顺畅。

p <- df %>% 
  ggplot(aes(x = percentage, y = reorder(country, -percentage), color = country)) +
  geom_segment(aes(x = 0.001, xend = percentage, yend = country), linewidth = 2) +
  geom_point(size = 4) +
  coord_trans(x = "log10", xlim = c(0.001, 1)) +
  scale_x_continuous(breaks = c(0.001, 0.01, 0.1, 1), labels = scales::percent) +
  theme_minimal()

ggplotly(p, tooltip = c("country", "percentage"))

解决方案3：手动变换数据（备选） #

如果一定要用scale_x_log10，可以先对数据做对数变换，再手动把x轴标签改回原始百分比，同时注意不要用0作为条形起始点。

df$log_perc <- log10(df$percentage)

p <- df %>% 
  ggplot(aes(x = log_perc, y = reorder(country, -percentage), fill = country)) +
  geom_bar(stat = "identity") +
  scale_x_continuous(
    breaks = log10(c(0.001, 0.01, 0.1, 1)),
    labels = scales::percent(c(0.001, 0.01, 0.1, 1))
  ) +
  labs(x = "Percentage")

ggplotly(p, tooltip = c("country", "percentage"))

总结 #

优先选方案1或2，这俩既能解决小条形看不见的问题，又能保证tooltip正常工作。别直接用scale_x_log10()处理条形图，起始点0会搞崩对数变换。

内容的提问来源于stack exchange，提问作者anorlondo