Добавить значения и верхний индекс к круговым меткам

Question

Я борюсь с добавлением надстрочного индекса к меткам графика.Я хотел бы иметь '3' в надписях (..m ^ 3) как верхний индекс.Я пробовал выражения (), подстановки () и т. Д., Но не нашел правильного решения.

values <- c(2, 4, 5)
pie(values, labels = paste(values, "m^3") )

Спасибо за любую подсказку!

Answer 1

Немного громоздкий обходной путь:

foo <- sapply(as.list(values), function(x) bquote(.(x) ~ m^3))
pie(values, labels = as.expression(foo))