# Create Plot
plot <- ggplot(df, aes(desc, fill = type)) +
                    geom_rect(aes(x = desc,
                    xmin = id - 0.45, xmax = id + 0.45,
                    ymin = end, ymax = start))
# Error here.  "Warning: Ignoring unknown aesthetics: X"

df <- df[,c(3,1,4,2)]