bidv_colors1 <- c("#FE0000", "#3401CC")
bidv_colors2 <- c("#ED1B24", "#203F9A")
# library(tidyverse)

library(dplyr)
library(ggplot2)
theme_set(theme_minimal())


iris %>% 
  group_by(Species) %>% 
  count() %>% 
  ggplot(aes(Species, n)) + 
  geom_col(fill = bidv_colors2[1]) -> p1


iris %>% 
  group_by(Species) %>% 
  count() %>% 
  ggplot(aes(Species, n)) + 
  geom_col(fill = bidv_colors2[2]) -> p2

iris %>% 
  group_by(Species) %>% 
  count() %>% 
  ggplot(aes(Species, n)) + 
  geom_col(fill = bidv_colors1[1]) -> p3


iris %>% 
  group_by(Species) %>% 
  count() %>% 
  ggplot(aes(Species, n)) + 
  geom_col(fill = bidv_colors1[2]) -> p4


gridExtra::grid.arrange(p1, p2, p3, p4, nrow = 2)

LS0tDQp0aXRsZTogIlNlY3Rpb24gNCINCmF1dGhvcjogIk5ndXllbiBRdWFuZyBIdW5nIg0Kc3VidGl0bGU6ICJFeGVyY2lzZSINCm91dHB1dDoNCiAgaHRtbF9kb2N1bWVudDoNCiAgICBjb2RlX2Rvd25sb2FkOiB5ZXMNCiAgICBjb2RlX2ZvbGRpbmc6IGhpZGUNCiAgICBoaWdobGlnaHQ6IHplbmJ1cm4NCiAgICB0aGVtZTogZmxhdGx5DQogICAgdG9jOiB5ZXMNCiAgICB0b2NfZmxvYXQ6IHllcw0KICB3b3JkX2RvY3VtZW50Og0KICAgIHRvYzogeWVzDQotLS0NCg0KYGBge3Igc2V0dXAsaW5jbHVkZT1GQUxTRX0NCmtuaXRyOjpvcHRzX2NodW5rJHNldChlY2hvID0gVFJVRSwgd2FybmluZyA9IEZBTFNFLCBtZXNzYWdlID0gRkFMU0UsIGZpZy5yZXRpbmE9MikNCmBgYA0KDQojIENvbG91cnMgZnJvbSBCSURWIENvbG91cnMNCg0KQklEViBMb2dvIGNhbiBiZSBkb3dubG9hZCBbaGVyZV0oaHR0cHM6Ly9kcml2ZS5nb29nbGUuY29tL2ZpbGUvZC8xUVRkMUdxOHJ3WlpmcERDME92Nm5aMGlVS2RaanFaRUkvdmlldykuIFRvb2xzIGZvciBleHRyYWN0aW5nIGNvbG91ciBjb2RlcyBhcmUgW2hlcmVdKGh0dHBzOi8vaW1hZ2Vjb2xvcnBpY2tlci5jb20vKSBvciBbaGVyZV0oaHR0cHM6Ly9odG1sLWNvbG9yLWNvZGVzLmluZm8vY29sb3JzLWZyb20taW1hZ2UvIykuIA0KDQpSZWZlcmVuY2VzIGFyZSBbaGVyZV0oaHR0cHM6Ly9teWNvbG9yLnNwYWNlLz9oZXg9JTIzODQ1RUMyJnN1Yj0xKSBvciBbaGVyZV0oaHR0cDovL2NvbG9ybWluZC5pby8pLiANCg0KYGBge3J9DQoNCg0KYmlkdl9jb2xvcnMxIDwtIGMoIiNGRTAwMDAiLCAiIzM0MDFDQyIpDQpiaWR2X2NvbG9yczIgPC0gYygiI0VEMUIyNCIsICIjMjAzRjlBIikNCiMgbGlicmFyeSh0aWR5dmVyc2UpDQoNCmxpYnJhcnkoZHBseXIpDQpsaWJyYXJ5KGdncGxvdDIpDQp0aGVtZV9zZXQodGhlbWVfbWluaW1hbCgpKQ0KDQoNCmlyaXMgJT4lIA0KICBncm91cF9ieShTcGVjaWVzKSAlPiUgDQogIGNvdW50KCkgJT4lIA0KICBnZ3Bsb3QoYWVzKFNwZWNpZXMsIG4pKSArIA0KICBnZW9tX2NvbChmaWxsID0gYmlkdl9jb2xvcnMyWzFdKSAtPiBwMQ0KDQoNCmlyaXMgJT4lIA0KICBncm91cF9ieShTcGVjaWVzKSAlPiUgDQogIGNvdW50KCkgJT4lIA0KICBnZ3Bsb3QoYWVzKFNwZWNpZXMsIG4pKSArIA0KICBnZW9tX2NvbChmaWxsID0gYmlkdl9jb2xvcnMyWzJdKSAtPiBwMg0KDQppcmlzICU+JSANCiAgZ3JvdXBfYnkoU3BlY2llcykgJT4lIA0KICBjb3VudCgpICU+JSANCiAgZ2dwbG90KGFlcyhTcGVjaWVzLCBuKSkgKyANCiAgZ2VvbV9jb2woZmlsbCA9IGJpZHZfY29sb3JzMVsxXSkgLT4gcDMNCg0KDQppcmlzICU+JSANCiAgZ3JvdXBfYnkoU3BlY2llcykgJT4lIA0KICBjb3VudCgpICU+JSANCiAgZ2dwbG90KGFlcyhTcGVjaWVzLCBuKSkgKyANCiAgZ2VvbV9jb2woZmlsbCA9IGJpZHZfY29sb3JzMVsyXSkgLT4gcDQNCg0KDQpncmlkRXh0cmE6OmdyaWQuYXJyYW5nZShwMSwgcDIsIHAzLCBwNCwgbnJvdyA9IDIpDQoNCmBgYA0KDQoNCg0K