변수를 사용하여 ggplot에서 열 이름을 지정하는 방법

ggplot 명령이 있습니다.

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

함수 내부. 그러나 함수의 매개 변수를 사용하여 색상 및 그룹으로 사용할 열을 선택하고 싶습니다. Ie 이런 걸 원해요

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

Lionel은 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-사용자 지정 함수를 사용하는 오류 막대

다음은 매우 간단한 예입니다.

두 가지만 해

1. 문자열을 상징으로 바꾸기
2. !!사용할 때 추가

select_col <- sym("Petal.Length")

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