Come utilizzare una variabile per specificare il nome della colonna in ggplot

Ho un comando ggplot

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

all'interno di una funzione. Ma vorrei poter utilizzare un parametro della funzione per scegliere la colonna da utilizzare come colore e gruppo. Cioè vorrei qualcosa di simile

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

In modo che la colonna utilizzata in ggplot sia determinata dal parametro. Ad esempio per f ("majr") otteniamo l'effetto di

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

ma per f ("genere") otteniamo l'effetto di

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

Alcune cose che ho provato:

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

non ha funzionato. Nemmeno

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

Puoi usare aes_string:

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

fintanto che passi la colonna alla funzione come una stringa ( f("majr")anziché f(majr)). Si noti inoltre che abbiamo modificato le altre colonne "name"e "rate", in modo che siano stringhe.

Se per qualsiasi motivo preferisci non usarlo aes_string, puoi cambiarlo in (un po 'più ingombrante):

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

Dalle note di rilascio di ggplot2 V3.0.0:

aes () ora supporta le quasiquotazioni in modo che tu possa usare !!, !!! e: =. Questo sostituisce aes_ () e aes_string () che ora sono leggermente deprecati (ma rimarranno in circolazione per molto tempo).

Il modo idiomatico ora sarebbe quello di convertire in un simbolo la stringa che la variabile contiene, usando sym()(che è quasi la stessa degli alias di base as.name()/ as.symbol()), e deselezionarla usando!!

Simulando i dati di OP possiamo fare:

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)

Se preferiamo fornire nomi grezzi alla funzione, possiamo fare:

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

Funzionerà con nomi noti anche come simboli E con stringhe letterali

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

Come dice Lionel su ensym():

ha lo scopo di imitare la sintassi degli argomenti in cui puoi fornire entrambi in LHS, ad esempio list (bare = 1, "quoted" = 2)

Una nota su enquo()

enquo()cita l'espressione (non necessariamente un simbolo) fornita all'argomento, non converte una stringa letterale in un simbolo in ensym()quanto potrebbe essere meno adattata qui, ma possiamo fare:

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)

Prova a usare aes_stringinvece di aes.

Un'altra opzione ( ggplot2 > 3.0.0) consiste nell'usare il pronome di valutazione ordinata .dataper tagliare la variabile / colonna scelta dal rates.by.groupsframe di dati.

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

^{Creato il 04/04/2019 dal pacchetto reprex (v0.2.1.9000)}

L'uso aes_stringrisolve questo problema, ma affronta un problema quando si aggiungono barre di errore geom_errorbar. Di seguito è una semplice soluzione.

#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, puoi anche aggiungere sfaccettature alla tua trama usando queste linee all'interno del ggplot:

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

Questo script è stato modificato da questo post originale: ggplot2 - Barre di errore che utilizzano una funzione personalizzata

Ecco un esempio estremamente semplice.

Fai solo due cose

1. Trasforma la stringa in un simbolo
2. Aggiungi !!quando lo usi

select_col <- sym("Petal.Length")

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