GGplot 中离散 X 轴的更细图答案

【问题标题】：Thinner graph of discreet X-axis in GGplotGGplot 中离散 X 轴的更细图
【发布时间】：2021-11-01 03:17:56
【问题描述】：

我希望我的 ggplot2 图表更薄。我在带有 geom_col 的条形图的 X 轴上只有 3 个离散点，而且它太厚了。这是代码：

Lmid <- ggplot(data_est_ci_mid, aes(x=origin, y=Estimate, fill=origin), width = 0.1) + 
  geom_col(width = 1, show.legend = FALSE, linetype = 1) +
  geom_errorbar(aes(ymin=CImin, ymax=CImax), width=.1) +
  scale_x_discrete(limit = c("M","H","R"),
                   expand = c(0,0))

我弄乱了扩展功能，但它只会使我的条更细，而不是整个图表。

这是我的图表：

图太厚

还有我的数据：

   origin Estimate CImin CImax
  <chr>     <dbl> <dbl> <dbl>
1 M          70    38.6  101.
2 H          80.2  47.3  113.
3 R          83.0  54.1  112.

希望得到帮助并提前致谢！

【问题讨论】：

请提供您的数据样本
我的错，忘了包括...
我试了一下，看看是否可以
对不起，我已经做了类似的事情，但我现在想要的是那些更细的条被压在一起，使整个图表更小。
我明白了，更新了一个坐标函数，有点帮助，但我想不是理想的

标签： r ggplot2 expand geom-col

【解决方案1】：

我刚刚更改了geom_col() 内部的宽度和expand 参数的比例。

数据

df %>% 
   ggplot(aes(x=origin, y=Estimate, fill=origin)) + 
   geom_col(width = .25, show.legend = FALSE, linetype = 1) +
   geom_errorbar(aes(ymin=CImin, ymax=CImax), width=.1) +
   scale_x_discrete(
      limit = c("M","H","R"),
      expand = c(0.1,0)
      )+
   coord_equal(ratio = .02)

绘图代码

df %>% 
   ggplot(aes(x=origin, y=Estimate, fill=origin)) + 
   geom_col(width = .25, show.legend = FALSE, linetype = 1) +
   geom_errorbar(aes(ymin=CImin, ymax=CImax), width=.1) +
   scale_x_discrete(
      limit = c("M","H","R"),
      expand = c(0.1,0)
      )

输出

【讨论】：