not mapping colors right I as gray

library(tidyverse)

map1 <- list(
    `#FF69B4` = c('we(\'[a-z]+)?\\b'),
    `#7CFC00` = c('he(\'[a-z]+)?\\b'),
    yellow = 'you',
    gray70 = '\\bi\\b'
)

set.seed(10)
presidential_debates_2012 %>%
    dplyr::filter(person %in% c('ROMNEY', 'OBAMA')) %>%
    dplyr::group_by(person) %>%
    dplyr::sample_n(15) %$%
    hilight_term(dialogue, map1, list(person)) %>%
    plot()

trinker / textplot

not mapping colors right I as gray #4