R 如何对ggplot中图例值的小数点进行四舍五入

在下图中：

我想将图例值的小数点四舍五入，例如第二个（0.999999999534339）

我写的剧本是：

ggplot(df) +  
    geom_bar(aes(factor(Run), Freq, fill = factor(Var1), colour = factor(Var1)), position = "stack", stat = "identity") +
    scale_fill_discrete(labels = scales::percent_format(accuracy = 1))

请注意，我添加了

scale\u fill\u discrete（labels=scales:：percent\u format（accurity=1））

，因为

scale\u fill\u discrete

用于修改图例的文本，而

labels=scales:：percent\u format（accurity=1）

用于对小数点进行四舍五入，但这会导致以下错误：

Error in UseMethod("round_any") : 
  no applicable method for 'round_any' applied to an object of class "character"

---

您知道如何解决此问题吗？

请在问题中包含数据，以便人们可以重现您的尝试并尝试帮助您解决问题。如果您使用

标签

，则需要提供标签向量<代码>唯一（scales:：percent_格式（df$Var1，accurity=1））应该可以工作，但我没有办法检查。您的变量是

factor

。您可能需要将其转换为

数值

，然后使用

舍入

，然后再将其用作

因子