Как написать заголовок оси x с текстом и надстрочным индексом ggplot2

Я хотел бы написать ниже заголовок по оси x, используя следующий код:

Название: Выход зерна (т. га-1)

labs(x=expression(bold(paste("Grain yield","  ","(ton.", ha^-1,")", sep=""))))

-1 должен быть надстрочным, и весь заголовок должен быть выделен жирным шрифтом. Я получаю все правильно, кроме того, что надстрочная часть не выделена жирным шрифтом.

Я ценю любую помощь.

Спасибо!

Ответ 1

Это довольно необычно, чтобы получить неправильный совет от @BenBolker, но вот решение того, что он предлагал в качестве примера проблемы без решения:

barplot(height=c(1,1), ylab=expression(bold(paste("org.", cm^bold("-2")))))

Трюк здесь заключается не в использовании числовых, а текстовых аргументов. В вашем случае вы находитесь под общим заблуждением, что paste в plotmath имеет аргумент "sep". Это не так. (Кроме того, это обычно не требуется, если вы научитесь правильно использовать "~" и "*".) Это решение paste() - less:

plot(1,1, xlab=expression(bold(Grain~yield~~"(ton."*ha^"-1"*")")))

(я тестировал его с базовой графикой, потому что вы не представили полный пример. В базе R нет функции lab)