r - 我无法让 label=sprintf 强制我的标签显示 2 位小数

Question

我有以下数据框：

Q <- data.frame("PERC" = c(1.1, 2.1, 8.3, 7.0, 9.8, 3.1, 4.1, 11.3,
                           9.0, 3.0, 4.0, 11.0, 1.1, 2.1, 8.3, 7.0,
                           9.0, 3.0, 8.3, 7.0),
           "Corp" = c("Aus", "China" ,"Aus", "China", "Aus", "China", 
                      "Aus", "China", "Aus", "China" ,"Aus", "China",
                      "Aus", "China" ,"Aus", "China", 
                      "Aus", "China" ,"Aus", "China"),
           "Journal" = c("O", "O", "G", "G", "O", "O", "G", "G",
                         "O", "O", "G", "G", "O", "O", "G", "G", 
                         "O", "O", "G", "G"),
           "Year" = c("2014", "2014", "2014", "2014", "2015", 
                      "2015", "2015", "2015",
                      "2016", "2016", "2016", "2016",
                      "2017", "2017", "2017", "2017",
                      "2018", "2018", "2018", "2018"),
           "lbl" = c(NA, "n = 60", NA, "n = 62", NA, "n = 70",
                     NA, "n = 93", NA, "n = 78", NA, "n = 26",
                     NA, "n = 2010", NA, "n = 30", 
                     NA, "n = 2014", NA, "n = 99")) 

当我尝试制作以下情节时，即使我在 中使用 label=sprintf aes，我也无法让该图显示“.0”，例如11.0、3.0或7.0它只显示11、3、7 . 有人可以指出我做错了什么吗？

ggplot(data = Q, mapping = aes(Year, PERC, label=sprintf("%0.2f", round(PERC, digits = 2)),
                               fill = Corp))+
  geom_col(position = "stack", alpha = 1, width = 0.9)+
  facet_wrap(~Journal)+
  geom_text(aes(label=PERC), colour = "Black", 
            position = position_stack(vjust = 0.5), size = 3.5)+
  xlab("\nPublished Year") + 
  ylab("Measured amount/Total amount (%)\n")+
  scale_y_continuous(breaks = seq(0, 13, by = 1), expand = c(0.1, 0)) +
  scale_fill_manual(values = c("#E69F00", "#0072B2", "#E69F00","#0072B2"),
                    labels = c("Australia",
                               "China"))+
  theme_bw()+
  theme(legend.position = "top", legend.title = element_blank())+
  geom_text(aes(label = lbl), y = -0.5)

Answer 1

geom_text当您已经定义标签时，标签将再次被覆盖aes。尝试 ：

library(ggplot2)

ggplot(data = Q, mapping = aes(Year, PERC, 
       label=sprintf("%0.2f", round(PERC, digits = 2)),
                               fill = Corp))+
  geom_col(position = "stack", alpha = 1, width = 0.9)+
  facet_wrap(~Journal)+
  geom_text(colour = "Black", 
            position = position_stack(vjust = 0.5), size = 3.5)+
  xlab("\nPublished Year") + 
  ylab("Measured amount/Total amount (%)\n")+
  scale_y_continuous(breaks = seq(0, 13, by = 1), expand = c(0.1, 0)) +
  scale_fill_manual(values = c("#E69F00", "#0072B2", "#E69F00","#0072B2"),
                    labels = c("Australia",
                               "China"))+
  theme_bw()+
  theme(legend.position = "top", legend.title = element_blank())+
  geom_text(aes(label = lbl), y = -0.5)