调整geom_col使对数轴上所有条形方向一致及相关问题

主问题：让所有条形从0.01出发且方向一致 #

问题原因 #

geom_col默认从x=0开始绘制条形，但对数坐标轴不存在x=0的点，实际会以log₁₀(1)=0作为起始基准。当数值小于1时，log₁₀(val)为负数，条形会向左（反向）延伸，导致方向翻转。

解决方法 #

放弃geom_col，改用geom_segment直接指定条形的起始点（0.01）和终点（val），这样所有条形都会从0.01出发，方向一致。示例代码：

set.seed(123) # 固定随机数，方便复现结果
data.frame(cat = LETTERS[1:10],
           val = runif(10, 0.001, 10)) %>% 
  ggplot(aes(y = cat)) +
  # size参数控制条形宽度，等效于geom_col的width
  geom_segment(aes(x = 0.01, xend = val, yend = cat), size = 5) +
  scale_x_log10(
    breaks = c(0.01, 0.1, 0.2, 1, 2, 5, 10),
    labels = c(0.01, 0.1, 0.2, 1, 2, 5, 10)
  )

如果更偏好geom_col的矩形样式，也可以用geom_rect模拟，需要将分类变量转为数值来控制y轴位置：

set.seed(123)
data.frame(cat = LETTERS[1:10],
           val = runif(10, 0.001, 10)) %>% 
  ggplot() +
  geom_rect(
    aes(
      xmin = 0.01, xmax = val,
      ymin = as.numeric(cat) - 0.4, ymax = as.numeric(cat) + 0.4
    )
  ) +
  scale_y_continuous(breaks = 1:10, labels = LETTERS[1:10]) +
  scale_x_log10(
    breaks = c(0.01, 0.1, 0.2, 1, 2, 5, 10),
    labels = c(0.01, 0.1, 0.2, 1, 2, 5, 10)
  ) +
  labs(y = "cat")

附加问题解答 #

1. 为何仅部分坐标轴标签显示？ #

你设置的breaks参数顺序是c(0.2, 0.1, 1, 2, 5, 10)，是从大到小排列的，而对数坐标轴默认按从小到大的顺序排布刻度。ggplot会自动调整顺序，但如果刻度间距过近（比如0.1和0.2），会因空间不足自动隐藏部分标签。

解决方法：将breaks按从小到大顺序排列，若仍有重叠，可通过guide_axis(n.dodge = 2)让标签换行显示：

scale_x_log10(
  breaks = c(0.1, 0.2, 1, 2, 5, 10),
  labels = c(0.1, 0.2, 1, 2, 5, 10),
  guide = guide_axis(n.dodge = 2)
)

2. 如何不新增变量，通过scale_fill_系列函数让小于1的数值呈现不同颜色？ #

直接在aes中使用逻辑判断val < 1作为填充/颜色映射，再用scale_fill_manual或scale_color_manual指定颜色即可，无需新增变量。

示例（结合geom_segment）：

set.seed(123)
data.frame(cat = LETTERS[1:10],
           val = runif(10, 0.001, 10)) %>% 
  ggplot(aes(y = cat)) +
  geom_segment(
    aes(x = 0.01, xend = val, yend = cat, color = val < 1),
    size = 5
  ) +
  scale_color_manual(values = c("TRUE" = "#E69F00", "FALSE" = "#56B4E9")) +
  scale_x_log10(
    breaks = c(0.01, 0.1, 0.2, 1, 2, 5, 10),
    labels = c(0.01, 0.1, 0.2, 1, 2, 5, 10)
  )

示例（结合geom_rect）：

set.seed(123)
data.frame(cat = LETTERS[1:10],
           val = runif(10, 0.001, 10)) %>% 
  ggplot() +
  geom_rect(
    aes(
      xmin = 0.01, xmax = val,
      ymin = as.numeric(cat) - 0.4, ymax = as.numeric(cat) + 0.4,
      fill = val < 1
    )
  ) +
  scale_fill_manual(values = c("TRUE" = "#E69F00", "FALSE" = "#56B4E9")) +
  scale_y_continuous(breaks = 1:10, labels = LETTERS[1:10]) +
  scale_x_log10(
    breaks = c(0.01, 0.1, 0.2, 1, 2, 5, 10),
    labels = c(0.01, 0.1, 0.2, 1, 2, 5, 10)
  ) +
  labs(y = "cat")

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