以下の例では、データセットの列名をggplotを使用する関数に渡します。関数は列名を抽出してグラフを正常にプロットできますが、軸ラベルが間違っています
library(tidyverse) attach(mpg) plot_func <- function(col_name) { ggplot(mpg,aes(x = col_name, fill = class)) + geom_bar() } plot_func(drv)
x軸ラベルをcol_nameからdrvに変更する方法はありますか?以下を試しましたが、うまくいきません。
plot_func("drv")
get()関数で使用する必要があるのは、aes()で変数として認識され、xlab():で文字列として認識されるようにするためです。
get()
aes(
xlab()
library(tidyverse) attach(mpg) plot_func <- function(col_name) { ggplot(mpg,aes(x = get(col_name), fill = class)) + geom_bar() + xlab(col_name) } plot_func("drv")
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
クリックしてQRコードを生成します
コメントを追加