ggpubr and ggbarplot: how to change data labels to percent format?-CodePudding

This question was

How would I amend the code to format the data labels to a percentage too?

dput output here:

structure(list(`Trophic level` = c("Apex predator", "Apex predator", 
"Megaherbivore", "Megaherbivore"), `Structure type` = c("All underpasses", 
"Non-viaduct culverts", "All underpasses", "Non-viaduct culverts"
), percent.present = c(1, 1, 0.8, 0.2)), row.names = c(NA, -4L
), class = c("tbl_df", "tbl", "data.frame"))

CodePudding user response：

One option would be to pass a vector of labels to the label argument of ggbarplot, where I use scales::percent to format as percentages.

library(ggpubr)
#> Loading required package: ggplot2
library(ggplot2)

ggbarplot(dat,
          x = "Trophic level",
          y = "percent.present",
          fill = "Structure type",
          color = "Structure type",
          position = position_dodge(),
          ylab = "% of species that used underpasses",
          ggtheme = theme_bw(),
          title = "Proportion of species in area that used underpasses",
          palette = "Set2",
          label = scales::percent(dat$percent.present, accuracy = .01)
) %>%
  ggpar(legend = "bottom")  
  yscale("percent", .format = TRUE)

And as I mentioned in my comment, another option would be to add the labels via a geom_text layer:

ggbarplot(dat,
  x = "Trophic level",
  y = "percent.present",
  fill = "Structure type",
  color = "Structure type",
  position = position_dodge(),
  ylab = "% of species that used underpasses",
  ggtheme = theme_bw(),
  title = "Proportion of species in area that used underpasses",
  palette = "Set2"
) %>%
  ggpar(legend = "bottom")  
  yscale("percent", .format = TRUE)  
  geom_text(
    aes(
      group = `Structure type`,
      label = scales::percent(percent.present, accuracy = .01)
    ),
    position = position_dodge(.9),
    vjust = -0.4,
  )