Jak używać zmiennej do określenia nazwy kolumny w ggplot

Mam polecenie ggplot

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

wewnątrz funkcji. Ale chciałbym móc użyć parametru funkcji, aby wybrać kolumnę, która ma być używana jako kolor i grupa. To znaczy, chciałbym coś takiego

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

Tak więc kolumna używana w ggplot jest określona przez parametr. Np. Dla f ("majr") otrzymujemy efekt

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

ale dla f („gender”) otrzymujemy efekt

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

Kilka rzeczy, których próbowałem:

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

nie działał. Ani też

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

Możesz użyć aes_string:

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

tak długo, jak przekazujesz kolumnę do funkcji jako ciąg ( f("majr")zamiast f(majr)). Zauważ również, że zmieniliśmy inne kolumny "name"i "rate", aby były łańcuchami.

Jeśli z jakiegoś powodu wolisz nie używać aes_string, możesz zmienić to na (nieco bardziej uciążliwe):

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

Z release notes z ggplot2 V3.0.0:

aes () obsługuje teraz quasi-cytat, więc możesz używać znaków !!, !!! i: =. Zastępuje to aes_ () i aes_string (), które są teraz nieaktualne (ale pozostaną dostępne przez długi czas).

Idiomatycznym sposobem byłoby teraz przekonwertowanie na symbol łańcucha, który zawiera zmienna, przy użyciu sym()(który jest prawie taki sam jak aliasy bazowe as.name()/ as.symbol()) i cofnięcie jego cytowania za pomocą!!

Symulując dane OP, które możemy zrobić:

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)

Gdybyśmy woleli podać nieprzetworzone nazwy funkcji, którą możemy wykonać:

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

Będzie działać z nazwami znanymi jako symbole ORAZ z literałami łańcuchowymi

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

Jak mówi Lionel ensym() :

ma na celu naśladowanie składni argumentów, w których można podać oba w LHS, np. lista (bare = 1, "quoted" = 2)

Uwaga dotycząca enquo()

enquo()cytuje wyrażenie (niekoniecznie symbol) podane do argumentu, nie konwertuje literału ciągu na symbol, ponieważ ensym()może być tutaj mniej dostosowane, ale możemy zrobić:

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)

Spróbuj użyć aes_stringzamiast aes.

Inną opcją ( ggplot2 > 3.0.0) jest użycie uporządkowanego zaimka oceny, .dataaby wyciąć wybraną zmienną / kolumnę z rates.by.groupsramki danych.

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

^{Utworzono 04.04.2019 przez pakiet reprex (v0.2.1.9000)}

Użycie aes_stringrozwiązuje ten problem, ale napotyka problem podczas dodawania słupków błędów geom_errorbar. Poniżej proste rozwiązanie.

#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, możesz także dodać aspekty do swojego wykresu, używając tych linii wewnątrz ggplot:

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

Ten skrypt został zmodyfikowany na podstawie tego oryginalnego postu: ggplot2 - Paski błędów przy użyciu funkcji niestandardowej

Oto niezwykle prosty przykład.

Po prostu zrób dwie rzeczy

1. Zamień sznurek w symbol
2. Dodaj, !!kiedy go używasz

select_col <- sym("Petal.Length")

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