Add manual text colouring

[shirdekel]

Useful when plot.percents = TRUE and bar colours require different text colours (e.g., dark grey bar needs white text and yellow bar needs black text)

Example:

library(likert)
data(pisaitems)
items29 <- pisaitems[, substr(names(pisaitems), 1, 5) == "ST25Q"]
names(items29) <- c(
  "Magazines", "Comic books", "Fiction",
  "Non-fiction books", "Newspapers"
)
l29 <- likert(items29)
plot(
  l29,
  plot.percents = TRUE,
  plot.percent.low = FALSE,
  plot.percent.high = FALSE,
  plot.percent.neutral = FALSE,
  text.color.manual.pos = c("blue", "white") |>
    rep(5),
  text.color.manual.neg = c("purple", "pink") |>
    rep(5),
  text.color.manual.neutral = c("brown") |>
    rep(5)
)