I've seen some examples but I'm still having some trouble. Where the blank area is I need to add the text "Not Sampled". I understand I need to create a data.frame but I'm having a hard time identifying where it goes.

Here's my code and I've attached a picture: enter code here

data_text <- data.frame(treatmentType = c(1), Year = 2023, lab = rep("Not Sampled"))

kfish %>%
  filter(is.na(Killifish)==F) %>%
ggplot(aes(x=treatmentType,fill=Killifish)) +
  geom_bar(position="fill",color="black") + 
  facet_grid(Year~Seasonshort) + 
  geom_text(data = data_text, aes(label=lab)) + 
  theme_bw() +[**`enter image description here`**][1]
  xlab("Site Type") + 
  ylab("Proportion of samples \n") + 
  scale_fill_manual(values = blues9[c(1,3,5,8)])

I've seen some examples but I'm still having some trouble. Where the blank area is I need to add the text "Not Sampled". I understand I need to create a data.frame but I'm having a hard time identifying where it goes.

Here's my code and I've attached a picture: enter code here

data_text <- data.frame(treatmentType = c(1), Year = 2023, lab = rep("Not Sampled"))

kfish %>%
  filter(is.na(Killifish)==F) %>%
ggplot(aes(x=treatmentType,fill=Killifish)) +
  geom_bar(position="fill",color="black") + 
  facet_grid(Year~Seasonshort) + 
  geom_text(data = data_text, aes(label=lab)) + 
  theme_bw() +[**`enter image description here`**][1]
  xlab("Site Type") + 
  ylab("Proportion of samples \n") + 
  scale_fill_manual(values = blues9[c(1,3,5,8)])

• r
• ggplot2

• 1 Please provide a usable sample of kfish and blues9. While you're editing your question, please fix the [**`enter image description here`**][1] that should not be there. – r2evans Commented 2 days ago

1 Answer 1

To achieve your desired result you have to add the faceting variables to your data_text data frame, too. Additionally make sure that you make the fill aes a local aes of the geom_bar only. Finally, a geom_text requires a y aes.

Using some fake example data:

library(dplyr, warn = FALSE)
library(ggplot2)

# Fake example data
kfish <- expand.grid(
  treatmentType = LETTERS[1:3],
  Year = 2020:2024,
  Seasonshort = c("Spring", "Fall"),
  Killifish = c("0", "1-10", "10-100", ">10")
) |>
  subset(
    !(Year == 2023 & Seasonshort == "Spring")
  )

data_text <- data.frame(
  treatmentType = 2,
  Year = 2023,
  lab = rep("Not Sampled"),
  y = .5,
  Seasonshort = factor("Spring", c("Spring", "Fall")) # Make a factor
)

kfish %>%
  filter(!is.na(Killifish)) %>%
  ggplot(aes(x = treatmentType)) +
  geom_bar(aes(fill = Killifish), position = "fill", color = "black") +
  facet_grid(Year ~ Seasonshort) +
  geom_text(
    data = data_text, aes(label = lab, y = y)
  ) +
  theme_bw() +
  xlab("Site Type") +
  ylab("Proportion of samples \n") +
  scale_fill_manual(values = blues9[c(1, 3, 5, 8)])