R 如何舍入ggplot2中geom_文本中条形图的数据标签?
我正在制作一系列条形图,其中百分比值位于每个条形图上方。我想把这四舍五入到小数点后0位,但到了小数点后3位。下面是我正在使用的示例代码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
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”
。