R 如何舍入ggplot2中geom_文本中条形图的数据标签?

R 如何舍入ggplot2中geom_文本中条形图的数据标签?,r,ggplot2,label,bar-chart,R,Ggplot2,Label,Bar Chart,我正在制作一系列条形图,其中百分比值位于每个条形图上方。我想把这四舍五入到小数点后0位,但到了小数点后3位。下面是我正在使用的示例代码 g1 <- ggplot(mydata, aes(x=PF.Score))+ geom_bar(color="Blue", fill="skyblue")+ geom_text(stat="count", aes(label=scales::percent(..prop..), group

我正在制作一系列条形图,其中百分比值位于每个条形图上方。我想把这四舍五入到小数点后0位,但到了小数点后3位。下面是我正在使用的示例代码

g1 <- ggplot(mydata, aes(x=PF.Score))+
  geom_bar(color="Blue", fill="skyblue")+
  geom_text(stat="count", aes(label=scales::percent(..prop..), group=1), size =3, vjust=-0.3)+
  ylab("Count of Suppliers")+
  xlab("D&B Score of Suppliers")+
  ggtitle("D&B Score distribution of suppliers")+
  theme_classic()

g1只需在
scales::percent
函数中添加
accurity=1

ggplot(iris, aes(x=Sepal.Width))+
  geom_bar(color="Blue", fill="skyblue")+
  geom_text(stat="count", aes(label=scales::percent(..prop.., accuracy = 1), group=1), size =3, vjust=-0.3)+
  ylab("Count of Suppliers")+
  xlab("D&B Score of Suppliers")+
  ggtitle("D&B Score distribution of suppliers")+
  theme_classic()


要有1或2个小数,可以使用
精度=0.1
精度=0.01
。有关详细信息,请访问。

您的y轴是计数,但您的条形标签是百分比。这就是他们不匹配的原因。

@John J,我想你可以在这一轮中帮助我(mydata$PF.Score,digits=0),如果它对你有帮助,那么你可以访问…….抱歉打扰你,伙计…….我还有一个问题……如果你看到右侧的图像……y轴比例相同,但条的高度不同……例如。如果电气传动系统的47%小于28%巴……请您帮助我哪里做错了我需要数据来查看确切的问题。您可以使用
facet
功能尝试
scales=“free”