You are still not providing sample data in a proper format, I have used the six rows you are showing as sample data. Is this what you mean?
library(tidyverse)
# Sample data on a copy/paste friendly format
# Replace this part with my_data <- read.csv("Shade_exposed_proper.csv")
my_data <- data.frame(
Plot = c(1, 2, 3, 4, 5, 6),
Shaded = c(64, 16, 47, 10, 22, 54),
Exposed = c(321, 147, 380, 415, 130, 271)
)
my_data %>%
gather(variable, mean, Shaded:Exposed) %>%
group_by(variable) %>%
summarise(mean = mean(mean)) %>%
ggplot(aes(x = variable, y = mean, fill = variable)) +
geom_col(width = 0.5)
