機能を使用してプロットの単位を印刷する方法は？

Question

私はRでプロットを作成する機能を持っています。私は、機能名と共にユニットを印刷したいと思います。以下はコードです。

library(ggplot2) 
plotfunction <- function(feature, featur_name, feature_unit){ 
    ggplot(aes(x = feature), data = mtcars) + 
    geom_histogram(binwidth = 0.5) + 
    labs(x = paste(featur_name, feature_unit), y = "Count, #") 

} 

plotfunction(mtcars$wt, "Displacement, ", expression({g}/{dm}^{3})) 

この関数は、次のようにプロットを生成します。

Answer 1

は、最も優雅な解決策が、ここに行く：

plotfunction2 <- function(feature_name, feature_unit){ 

    x.lab = paste0("expression(paste('", feature_name, "', ", feature_unit, "))") 

    ggplot(data = mtcars, aes(wt)) + 
    geom_histogram(binwidth = 0.5) + 
    labs(x = eval(parse(text = x.lab))) 
} 

plotfunction2("Displacement, ", "{g}/{dm}^{3}") 

データ入力は、ここで本当の問題の一部ではないので、（私は最初の引数を残し... $との美的マッピングを定義するべきではありませんが、