gistfile1.txt

> head(xtestbuffer)
      battlefield.no distance decade
1200s             NA     1000  1200s
1300s     0.20000000     1000  1300s
1400s             NA     1000  1400s
1500s             NA     1000  1500s
1600s     0.05882353     1000  1600s
1700s     0.20000000     1000  1700s

decbuf <- ggplot(xtestbuffer) + 
  geom_bar(aes(x = decade, y = battlefield.no), colour = stat = "identity") + 
  scale_fill_manual(values = c('#de2d26', 'gainsboro') ) +
  facet_wrap(~distance, nrow = 1) +
  labs(x = "Decade", y = "Proportion of Battlefields with\ndistance from Roman roads") + 
  scale_y_continuous(labels = scales::percent) + 
  theme_classic()
  
  # I want to create another column that says which battlefield.no is max within each distance group.