Comment utiliser une variable pour spécifier le nom de la colonne dans ggplot

J'ai une commande ggplot

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

à l'intérieur d'une fonction. Mais j'aimerais pouvoir utiliser un paramètre de la fonction pour choisir la colonne à utiliser comme couleur et groupe. Ie je voudrais quelque chose comme ça

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

Pour que la colonne utilisée dans le ggplot soit déterminée par le paramètre. Par exemple, pour f ("majr"), nous obtenons l'effet de

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

mais pour f ("gender") nous obtenons l'effet de

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

Certaines choses que j'ai essayées:

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

n'a pas marché. Pas plus que

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

Vous pouvez utiliser aes_string:

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

tant que vous passez la colonne à la fonction sous forme de chaîne ( f("majr")plutôt que f(majr)). Notez également que nous avons changé les autres colonnes, "name"et "rate", pour être des chaînes.

Si, pour une raison quelconque, vous préférez ne pas l'utiliser aes_string, vous pouvez le changer en (le plus encombrant):

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

D'après les notes de version de ggplot2 V3.0.0:

aes () prend désormais en charge la quasiquotation afin que vous puissiez utiliser !!, !!! et: =. Cela remplace aes_ () et aes_string () qui sont désormais obsolètes (mais qui resteront longtemps).

La manière idiomatique maintenant serait de convertir en symbole la chaîne que la variable contient, en utilisant sym()(qui est presque le même que les alias de base as.name()/ as.symbol()), et de la décompresser en utilisant!!

Simuler les données d'OP, nous pouvons faire:

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)

Si nous préférons donner des noms bruts à la fonction, nous pouvons faire:

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

Il fonctionnera avec des noms aka symboles ET avec des chaînes littérales

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

Comme le dit Lionel ensym():

il est destiné à imiter la syntaxe des arguments où vous pouvez fournir les deux dans la LHS, par exemple liste (bare = 1, "quoted" = 2)

Une note sur enquo()

enquo()cite l'expression (pas nécessairement un symbole) fournie à l'argument, il ne convertit pas une chaîne littérale en symbole comme le ensym()fait donc il pourrait être moins adapté ici, mais nous pouvons le faire:

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)

Essayez d'utiliser à la aes_stringplace de aes.

Une autre option ( ggplot2 > 3.0.0) consiste à utiliser le pronom d'évaluation ordonné .datapour découper la variable / colonne choisie dans le bloc de rates.by.groupsdonnées.

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

^{Créé le 04/04/2019 par le package reprex (v0.2.1.9000)}

L'utilisation aes_stringrésout ce problème, mais rencontre un problème lors de l'ajout de barres d'erreur geom_errorbar. Voici une solution simple.

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

Bonus, vous pouvez également ajouter des facettes à votre tracé en utilisant ces lignes à l'intérieur du ggplot:

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

Ce script a été modifié à partir de ce message d'origine: ggplot2 - Barres d'erreur utilisant une fonction personnalisée

Voici un exemple extrêmement simple.

Fais juste deux choses

1. Transformez la chaîne en symbole
2. Ajoutez !!quand vous l'utilisez

select_col <- sym("Petal.Length")

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