Как настроить метки осей в ggplot2 из списка входных строк?

Question

Я создаю кучу графиков и сохранил соответствующие метки для осей на моих графиках в списке:

labels_list <- c("C[max,1] (mg/L)", "AUC[ 6 недель, 1 ] (mg*day/L)", "somethingElse[subscriptText] (units*might/have*symbols)")

Моя цель - создавать подписи, где текст в квадратных скобках является нижним индексом. Я использовал parse(), что нормально, за исключением:

• Я не могу понять, как выделить жирным шрифтом метки осей, хотя это указано в моей пользовательской теме ggplot
• Звездочка исчезает.

Я знаю, что bquote() - это вариант, но я не понял, как его использовать, если я просто хочу предоставить список строк в качестве входных данных, например выше. Я определенно открыт для любых предложений и решений.

РЕДАКТИРОВАТЬ: Кажется, я не могу использовать свои строковые входы как есть? labels_list извлекается из фрейма данных, и мне бы хотелось, чтобы не приходилось менять его один за другим для целей построения графика. :-(

Answer 1

Вот подход с expression и bold:

labels_list <- c(expression(bold(C[max * ',' * 1]~(mg/L))), 
                  expression(bold(AUC["6wks"*','*1]~(mg * '*' * day/L))),
                  expression(bold(somethingElse[subscriptText]~(units * '*' * might/have * '*' *symbols))))

ggplot(data = data.frame(x = 1, y = 1), aes(x,y)) +
  geom_point() + 
  labs(x = labels_list[1], y = labels_list[2], caption = labels_list[3])