R geom_col（）热以相同的满标度显示列？

我有一个数据框架，它根据事件在不同观察时间是否属于某种类型来收集事件的百分比

Day  %
1    2
2    17
3    11
4    32
5    21
6    47

我想用百分比的重量来显示这些条，但是我不希望最大值是最高值，而是希望所有条都用100%的刻度来显示最大值。因此，它们的长度与它们所代表的百分比成比例，例如，50%是可能的总长度的一半。但我不知道怎么做

如果我在图表中添加了一个关联率为100%的新行，并因此添加了一个新列，这将是相同的解决方案，但我希望避免这样做，以免像这样混淆报告的接收者

library( data.table )
library( ggplot2 )
library( scales )
DT <- fread("Day  %
1    2
2    17
3    11
4    32
5    21
6    47")

ggplot( data = DT, aes( x = Day, y = `%`/100 ) ) + 
  geom_col() +
  coord_cartesian( ylim = c(0,1) ) +
  scale_y_continuous( labels = scales::percent ) +
  labs( y = "percentage" )
  

---

这就是你要找的东西吗？令人惊叹的我不得不将ylim=c0,1修改为c0,100以使其工作。谢谢