원형 레이블에 값과 위 첨자 추가

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