library(ggplot2)
library(waffle)

logo <- data.frame(
  column =  1:4,
  n = c(4, 3, 2, 1)
)

ggplot(
  data = logo, aes(fill = column, values = n)
) +
  geom_waffle(
    n_rows = 1, size = 1, 
    colour = "white", flip = TRUE, 
    show.legend = FALSE
  ) +
  facet_wrap(~ column, nrow = 1) +
  scale_fill_manual(
    values = c(
      "#202859", "#2E4F6C", "#3D6991", "#3D6991"
    )
  ) +
  theme_void() +
  theme(
    strip.background = element_blank(),
    strip.text.x = element_blank(),
    panel.spacing = unit(0.001, "lines")
  )