GGplot columns don't exist

Question

I'm VERY new to R and I am trying to make a stacking bar plot with each bar corresponding to a different year. Year will be the x axis while Frequency is on the y axis. I keep getting an error saying that "columns 2014,2015, ect dont exist". I don't quite understand where I went wrong. I have attached a picture of what I'd like it to look like, it's just an example so the numbers in the picture are arbitrary. Thanks

library(dplyr)
library(tidyr)
library(ggplot2)

data <- data.frame(
  Emm1.0 = c(5,2,0,0,0,0,2,0), 
  Emm3.1 = c(1,1,0,0,0,0,0,0), 
  Emm6.4 = c(1,0,0,0,0,0,0,0),
  Emm9.0 = c(0,0,0,0,0,0,0,1),
  Emm11.0 = c(0,2,4,3,0,0,0,0),
  Emm22.0 = c(1,0,0,0,0,1,0,0),
  Emm28.0 = c(0,0,0,0,0,1,0,0),
  Emm41.1 = c(1,0,1,0,0,0,0,0),
  Emm49.0 = c(2,0,0,0,0,2,4,8),
  Emm53.0 = c(0,0,0,0,1,0,0,0),
  Emm59.0 = c(0,1,1,3,0,0,0,1),
  Emm74.0 = c(2,0,0,0,1,2,1,2),
  Emm76.0 = c(2,0,0,0,1,1,1,1),
  Emm77.0 = c(0,0,0,0,0,0,1,1),
  Emm81.0 = c(1,0,0,0,1,3,3,0),
  Emm82.0 = c(1,0,0,0,0,0,1,0),
  Emm83.1 = c(0,0,1,0,0,1,0,0),
  Emm87.0 = c(0,1,0,0,0,0,0,0),
  Emm89.0 = c(0,0,1,0,1,0,0,0),
  Emm91.0 = c(0,0,0,0,1,0,0,0),
  Emm101.0 = c(1,0,1,0,0,0,0,0),
  Emm114.0 = c(0,0,0,1,0,0,0,0),
  Emm118.0 = c(1,0,0,0,0,0,0,0),
  Year = as.factor(c("2014", "2015", "2016", "2017", "2018", "2019", "2020", "2021"))

data <- dat %>%
  gather("Emmtype", "Frequency", -Year)

data
ggplot(data, aes(x = Year, y = Frequency, fill = Emmtype)) + 
  geom_col(position = "stack", stat = "identity")

If I correct the typos in your example, the code runs fine (putting a final parenthesis after the end of your data frame definition, changing `dat` to `data`) — Allan Cameron, Nov 17 '22 at 17:43
A couple of minor points - `geom_col()` doesn't need the `stat = identity`. `geom_bar()` needs it. `geom_bar(..., stat = identity)` is the same as `geom_col()` — Tech Commodities, Nov 17 '22 at 17:46
`gather()` was the previous way to reshape the data, it's easier to remember `pivot_longer(cols = -Year, names_to = "Emmtype", values_to = "Frequency")` — Tech Commodities, Nov 17 '22 at 17:47

score 1 · Accepted Answer · answered Nov 17 '22 at 17:43

Maybe you want something like this: When you use geom_col() you don't need stat = "identity" (see ?geom_bar(), you already have an y:

library(tidyverse)
data %>% 
  pivot_longer(-Year) %>% 
  ggplot(aes(x = Year, y = value, fill = name)) + 
    geom_col(position = "stack")

GGplot columns don't exist

1 Answers1