更改 y 轴上的小数，geom_bar、"accuracy" 不起作用
change decimal on y axis, geom_bar, "accuracy" not working
我想设计一个条形图，在 y 轴上以百分比显示年龄 类 的频率，不带小数点。我使用 ggplot 和 geom_bar。我读过很多帖子，但我无法从 y 轴标签中删除一位小数（见图：目前它是 50.0%，但我只想要 50%）。
我尝试了 accuracy=1, accuracy=0.01 等，但它不起作用。
我有以下代码来设计条形图：
myplot_age <- ggplot(data_new_fewmissing_out, aes(age)) +
geom_bar(aes(y = (..count..)/sum(..count..)), fill=c("lightgreen", "blue", "black", lightblue")) +
scale_y_continuous(labels=scales::percent) +
ylab("relative frequencies")+
theme(axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
axis.text = element_text(size = 12, color = "black"))+
scale_x_discrete(labels=c("young", "middle", "old" ,"no answer"))
结果如下所示
bar plot with one decimal
如果我将相同的代码应用于我的另一个变量（例如农场系统），它不会给我小数，所以我将不胜感激。
谢谢！
使用
scales::percent_format(accuracy = 1)
而不是
scales::percent
我想设计一个条形图，在 y 轴上以百分比显示年龄 类 的频率，不带小数点。我使用 ggplot 和 geom_bar。我读过很多帖子，但我无法从 y 轴标签中删除一位小数（见图：目前它是 50.0%，但我只想要 50%）。 我尝试了 accuracy=1, accuracy=0.01 等，但它不起作用。
我有以下代码来设计条形图：
myplot_age <- ggplot(data_new_fewmissing_out, aes(age)) +
geom_bar(aes(y = (..count..)/sum(..count..)), fill=c("lightgreen", "blue", "black", lightblue")) +
scale_y_continuous(labels=scales::percent) +
ylab("relative frequencies")+
theme(axis.title.x = element_text(size = 15),
axis.title.y = element_text(size = 15),
axis.text = element_text(size = 12, color = "black"))+
scale_x_discrete(labels=c("young", "middle", "old" ,"no answer"))
结果如下所示
bar plot with one decimal
如果我将相同的代码应用于我的另一个变量（例如农场系统），它不会给我小数，所以我将不胜感激。 谢谢！
使用
scales::percent_format(accuracy = 1)
而不是
scales::percent