R中不从0开始的条形图

Question

我试图展示一台机器的可用行程范围，该机器具有 360 度旋转，并且具有另一个与偏航无关的 -5 到 152 范围的运动轴。我能找到的所有条形图绘制函数都假设数据从 0 开始，这会在 -5 和 0 之间的图表中间留下一个洞。是否可以告诉 geom_bar() 或 geom_col() 开始绘制 - 5 而不是 0？

这是我正在使用的代码和示例图表。

df <- data.frame(0:360)
colnames(df) = "Yaw"
df$Max.Static <- ((runif(361) * 157)-5)

library(ggplot2)

ggplot(df, aes(x =Yaw , y = Max.Static)) + 
  geom_col(width = 1, alpha = .5 , fill = "#69B600") + 
  scale_y_continuous(
    limits = c(-5,152),
    breaks = seq(0,140,20)
    ) +
  scale_x_continuous(
    limits = c(-1,361),
    breaks = seq(0,360,45),
    minor_breaks = seq(0,360,15)
    ) +
  coord_polar(theta = "x") +
  labs(x = NULL, y = NULL) + 
  theme(axis.text.y = element_blank(),
        axis.ticks = element_blank())

Answer 1

有点奇怪，但如果您可以容忍警告，则以下方法有效：

df <- data.frame(0:360)
colnames(df) = "Yaw"
df$Max.Static <- ((runif(361) * 157)-5)

library(ggplot2)

ggplot(df, aes(x =Yaw , y = Max.Static)) + 
  geom_col(width = 1, alpha = .5 , fill = "#69B600",
           aes(ymin = after_scale(-Inf))) + ######## <- Change this line
  scale_y_continuous(
    limits = c(-5,152),
    breaks = seq(0,140,20)
  ) +
  scale_x_continuous(
    limits = c(-1,361),
    breaks = seq(0,360,45),
    minor_breaks = seq(0,360,15)
  ) +
  coord_polar(theta = "x") +
  labs(x = NULL, y = NULL) + 
  theme(axis.text.y = element_blank(),
        axis.ticks = element_blank())
#> Warning: Ignoring unknown aesthetics: ymin

^{由reprex package (v0.3.0) 于 2021-01-20 创建}

之所以有效，是因为我们可以在使用after_scale() 将条形参数化转换为矩形后访问矩形参数（xmin、xmax、ymin、ymax）。

-Inf 指示 ggplot 变量应处于刻度的最小值（即使在扩展之后），从而缩小差距。

Answer 2

从技术上讲，您应该查看 geom_segment 或 geom_rect，而不是 geom_bar，因为条形图在概念上表示计数，因此始终从 0 开始

这里是 geom_segment。无需破解。

df <- data.frame(0:360)
colnames(df) = "Yaw"
df$Max.Static <- ((runif(361) * 157)-5)
df$y <- -5

library(ggplot2)

ggplot(df, aes(Yaw , y, xend = Yaw, yend = Max.Static)) + 
  geom_segment( color = "#69B600", size = .2) + 
  scale_y_continuous(
    limits = c(-5,152),
    breaks = seq(0,140,20)
  ) +
  scale_x_continuous(
    limits = c(-1,361),
    breaks = seq(0,360,45),
    minor_breaks = seq(0,360,15)
  ) +
  coord_polar(theta = "x") +
  labs(x = NULL, y = NULL) + 
  theme(axis.text.y = element_blank(),
        axis.ticks = element_blank())

或者，使用 geom_rect，获得风车样式

    ggplot(df, aes(xmin = Yaw-0.4 , ymin = y, xmax = Yaw +0.4, ymax = Max.Static)) + 
      geom_rect( fill = "#69B600") + 
      scale_y_continuous(
        limits = c(-5,152),
        breaks = seq(0,140,20)
      ) +
      scale_x_continuous(
        limits = c(-1,361),
        breaks = seq(0,360,45),
        minor_breaks = seq(0,360,15)
      ) +
      coord_polar(theta = "x") +
      labs(x = NULL, y = NULL) + 
      theme(axis.text.y = element_blank(),
            axis.ticks = element_blank())