変数を使用してggplotで列名を指定する方法

ggplotコマンドがあります

ggplot( rates.by.groups, aes(x=name, y=rate, colour=majr, group=majr) )

関数内。ただし、関数のパラメーターを使用して、色とグループとして使用する列を選択できるようにしたいと思います。つまり、私はこのようなものを望みます

f <- function( column ) {
    ...
    ggplot( rates.by.groups, aes(x=name, y=rate, colour= ??? , group=??? ) )
}

そのため、ggplotで使用される列はパラメーターによって決定されます。たとえば、f（ "majr"）の場合、次の効果が得られます。

ggplot( rates.by.groups, aes(x=name, y=rate, colour=majr, group=majr) )

しかし、f（ "gender"）の場合、

  ggplot( rates.by.groups, aes(x=name, y=rate, colour=gender, group=gender) )

私が試したいくつかのこと：

ggplot( rates.by.groups, aes(x=name, y=rate, colour= columnName , group=columnName ) )

動作しませんでした。しなかった

e <- environment() 
ggplot( rates.by.groups, aes(x=name, y=rate, colour= columnName , group=columnName ), environment=e )

使用できますaes_string：

f <- function( column ) {
    ...
    ggplot( rates.by.groups, aes_string(x="name", y="rate", colour= column,
                                        group=column ) )
}

列を（f("majr")ではなくf(majr)）文字列として関数に渡す限り。また、我々は他の列を変更することに注意してください、"name"そして"rate"、文字列であることを。

何らかの理由でを使用aes_stringしたくない場合は、次のように変更できます（やや面倒です）。

    ggplot( rates.by.groups, aes(x=name, y=rate, colour= get(column),
                                        group=get(column) ) )

のリリースノートからggplot2 V3.0.0：

aes（）が準引用をサポートするようになったため、!!、!!!、および：=を使用できます。これは、現在は非推奨となっているaes_（）とaes_string（）に代わるものです（ただし、長期間にわたって使用されます）。

慣用的な方法は、変数に含まれる文字列をシンボルに変換してsym()（基本エイリアスas.name()/ とほとんど同じですas.symbol()）、引用符を外して!!

私たちができるOPのデータのシミュレーション：

library(tidyverse)
rates.by.groups <- data.frame(
  name = LETTERS[1:3],
  rate = 1:3,
  mjr = LETTERS[c(4,4,5)],
  gender = c("M","F","F")
)

f <- function(column) {
  column <- sym(column)
  ggplot(rates.by.groups, 
         aes(x = name, 
             y = rate, 
             fill  = !!column, 
             group = !!column)) +
    geom_col()
}

f("gender")
f("mjr")
x <- "gender"
f(x)

生の名前を関数にフィードする場合は、次のようにします。

f2 <- function(column) {
  column <- ensym(column)
  ggplot(rates.by.groups, 
         aes(x = name, 
             y = rate, 
             fill  = !!column, 
             group = !!column)) +
    geom_col()
}

名前またはシンボルと文字列リテラルで動作します

f2(gender)
f2(mjr)
f2("gender")
f2("mjr")

ライオネルが言うようにensym()：

これは、LHSで両方を指定できる引数の構文を模倣することを意味します。例：list（bare = 1、 "quoted" = 2）

についてのメモ enquo()

enquo()引数に与えられた式（必ずしも記号ではない）を引用符で囲みます。文字列リテラルは記号のように変換されensym()ないため、ここではあまり適応されない可能性がありますが、次のようにできます。

f3 <- function(column) {
  column <- enquo(column)
  ggplot(rates.by.groups, 
         aes(x = name, 
             y = rate, 
             fill  = !!column, 
             group = !!column)) +
    geom_col()
}

f3(gender)
f2(mjr)

のaes_string代わりに使用してみてくださいaes。

別のオプション（ggplot2 > 3.0.0）は、整頓された評価代名詞を使用して.data、rates.by.groupsデータフレームから選択された変数/列をスライスすることです。

library(ggplot2)
theme_set(theme_classic(base_size = 14))

# created by @Moody_Mudskipper
rates.by.groups <- data.frame(
  name = LETTERS[1:3],
  rate = 1:3,
  mjr = LETTERS[c(4, 4, 5)],
  gender = c("M", "F", "F")
)

f1 <- function(df, column) {
  gg <- ggplot(df, 
         aes(x = name, 
             y = rate, 
             fill  = .data[[column]], 
             group = .data[[column]])) +
    geom_col() +
    labs(fill = column)
  return(gg)
}

plot_list <- lapply(list("gender", "mjr"), function(x){ f1(rates.by.groups, x) })
plot_list
#> [[1]]

#> 
#> [[2]]

# combine all plots
library(egg)
ggarrange(plots = plot_list,
          nrow = 2,
          labels = c('A)', 'B)'))

^{2019-04-04にreprexパッケージ（v0.2.1.9000）によって作成されました}

を使用aes_stringするとこの問題は解決しますが、エラーバーを追加すると問題が発生しますgeom_errorbar。以下は簡単な解決策です。

#Identify your variables using the names of your columns indie your dataset
 xaxis   <- "Independent"   
 yaxis   <- "Dependent"
 sd      <- "error"

#Specify error bar range (in 'a-b' not 'a'-'b')
 range   <- c(yaxis, sd)                                #using c(X, y) allows use of quotation marks inside formula
 yerrbar <- aes_string(ymin=paste(range, collapse='-'), 
                       ymax=paste(range, collapse='+'))


#Build the plot
  ggplot(data=Dataset, aes_string(x=xaxis, y=yaxis)) +
    geom_errorbar(mapping=yerrbar, width=15, colour="#73777a", size = 0.5) +
    geom_point   (shape=21)

おまけ、ggplot内の次の行を使用して、プロットにファセットを追加することもできます。

facet_grid(formula(paste(Variable1, "~", Variable2)))

このスクリプトは、この元の投稿から変更されました：ggplot2-カスタム関数を使用したエラーバー

これは非常に単純な例です。

2つのことを行うだけ

1. 文字列をシンボルに変える
2. !!使用時に追加

select_col <- sym("Petal.Length")

iris %>% 
  ggplot(aes(x = Sepal.Length, y = !!select_col)) +
  geom_point()