Я хотел бы добавить цвета копределенные слова в названиях моих графиков. Я был в состояниинайти прецедент здесь, В частности, я бы хотел, чтобы текст, завернутый в апострофы (в выводе ниже), соответствовал цвету соответствующих гистограмм.

Вот как далеко я продвинулся с заголовками в R, прежде чем экспортировать PDF в Adobe Illustrator или другую программу.

name <- c("Peter", "Gabriel", "Rachel", "Bradley")
age <- c(34, 13, 28, 0.9)
fake_graph <- family[order(family$age, decreasing = F), ]
fake_graph <- within(fake_graph, {
    bar_color = ifelse(fake_graph$name == "Rachel", "blue", "gray")
})

# Plot creation
library(ggplot2)
fake_bar_charts <- ggplot() +
  geom_bar(
    data = fake_graph,
    position = "identity",
    stat = "identity",
    width = 0.75,
    fill = fake_graph$bar_color,
    aes(x = name, y = age)
    ) +
  scale_x_discrete(limits = fake_graph$name) +
  scale_y_continuous(expand = c(0, 0)) +
  coord_flip() +
  theme_minimal()
family <- data.frame(name, age)

# Add title
library(grid)
library(gridExtra)
grid_title <- textGrob(
  label = "I spend more time with 'Rachel' than\nwith 'other family members.'",
  x = unit(0.2, "lines"),
  y = unit(0.1, "lines"),
  hjust = 0, vjust = 0,
  gp = gpar(fontsize = 14, fontface = "bold")
)
gg <- arrangeGrob(fake_bar_charts, top = grid_title)
grid.arrange(gg)

Выход:

Этот пример используетggplot2 создавать гистограммы, а такжеgrid а такжеgridExtra для функциональности заголовка, но я бы хотел работать с любым решением (желательно сggplot2 создать сам график), который мог бы предоставить мне текст в кавычках, чтобы соответствовать их соответствующим цветам гистограммы.

Любые другие решения на этом сайте не смогли решить эту загадку, но я бы хотел найти решение для этого из R.

Спасибо за любую помощь!