Scales using IES colors

scale_fill_nces(
  ...,
  type = "seq",
  palette = 1,
  direction = -1,
  aesthetics = "fill"
)

Examples

dframe <- data.frame(x = sample(2,100, replace=TRUE))
dframe %>%
  ggplot(aes(x = x, fill=factor(x))) +
  geom_bar() +
  scale_fill_nces()
#> Error in dframe %>% ggplot(aes(x = x, fill = factor(x))): could not find function "%>%"