#how do i get rid of the blank columns in the faceting?
    tidy_tibble %>%
ggplot() +
  aes(x = calculation,
      y = value) + #assign x and y axis, add grouping
  geom_col(fill = "blue2") + #make bar plot
  facet_grid(~ test_type) + #add faceting
  theme_bw() #change theme
