R，ggplot：y轴上的小数

Question

我想制作一个类似于MWE的条形图：

library(tidyverse)
library(ggplot2)

mtcars %>% 
  mutate(mpg=mpg/1000) %>% 
  ggplot(aes(x=cyl, y=mpg)) +
  geom_bar(stat="identity") +
  scale_y_continuous(labels = scales::percent)

我得到的是以下内容（请记住，这是胡扯，但仅用于说明目的）： 现在，我希望用y轴上的百分比代替小数（“ 30％”而不是“ 30.0％”）。我该怎么办？

我发现了类似的问题here，但是无法使功能NRPercent无法正常工作（并且无法在此处发表评论）。

Answer 1

使用新版本的 $date = date('m/d/Y H:i:s ', time()); ，您可以使用：

 $date = date('m/d/Y h:i:s A', time());

Answer 2

以下是可以帮助您解决问题的帖子：How do I change the number of decimal places on axis labels in ggplot2?

我在这里发布了解决方案，以便您在此处找到它。在值中添加了百分号。

mtcars %>% 
  mutate(mpg=mpg/1000) %>% 
  ggplot(aes(x=cyl, y=mpg*100)) +
  geom_bar(stat="identity") +
  scale_y_continuous("Percent", labels = function(x) paste0(sprintf("%.0f", x),"%"))