Add text with number of observations on facet diverging bar chart-CodePudding

I would like to show the text of the number of observations as shown on the bar chart for the range values that are above and below the mean.

I tried the following

using the Electric Vehicles dataset

light data wrangling to remove spaces and -

CodePudding user response：

Are you looking for something like this?

library(tidyverse)
EV <- read_csv("evdataset.csv")
EV$range_norm <- (EV$`Electric Range` - mean(EV$`Electric Range`))/sd(EV$`Electric Range`)

EV$range_type <- ifelse(EV$range_norm > 0, "above", "below") 

plot_data <- EV |> group_by(Make, Drive, range_type) |> 
  summarize(count = n()) |> 
  mutate(count = ifelse(range_type == "above", count, -count)) |> 
  ungroup()

plot_order <- plot_data |> 
  group_by(Make) |> 
  summarize(totalcount = sum(count)) |> 
  arrange(totalcount) |> 
  pull(Make)

ggplot(plot_data, aes(x = fct_relevel(Make, plot_order),
                      y = count,
                      fill = range_type,
                      label = count))  
  geom_col()  
  geom_text(size = 3)  
  facet_wrap(~Drive)  
  coord_flip()  
  xlab("Make")