円ラベルに値と上付き文字を追加する

Question

私はプロットのラベルに上付き文字を追加するのに苦労しています。 ラベル（..m^3）に '3'を上付き文字として使用したいと思います。私はexpression（）、substitute（）などを試しましたが、正しい解決策を見つけられませんでした。

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))