Cách sử dụng một biến để chỉ định tên cột trong ggplot

Tôi có một lệnh ggplot

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

bên trong một hàm. Nhưng tôi muốn có thể sử dụng một tham số của hàm để chọn ra cột để sử dụng làm màu và nhóm. Tức là tôi muốn một cái gì đó như thế này

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

Vì vậy, cột được sử dụng trong ggplot được xác định bởi tham số. Ví dụ: đối với f ("majr"), chúng tôi nhận được hiệu ứng của

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

nhưng đối với f ("giới tính"), chúng tôi nhận được hiệu ứng của

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

Một số điều tôi đã thử:

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

đã không làm việc. Cũng không

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

Bạn có thể sử dụng aes_string:

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

miễn là bạn chuyển cột cho hàm dưới dạng chuỗi ( f("majr")chứ không phải f(majr)). Cũng lưu ý rằng chúng tôi đã thay đổi các cột khác "name"và "rate"thành chuỗi.

Nếu vì lý do nào đó mà bạn không muốn sử dụng aes_string, bạn có thể thay đổi nó thành (hơi rườm rà hơn):

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

Từ ghi chú phát hành của ggplot2 V3.0.0:

aes () hiện hỗ trợ quasiquotation để bạn có thể sử dụng !!, !!!, và: =. Điều này thay thế aes_ () và aes_string () hiện không được dùng nữa (nhưng sẽ tồn tại trong một thời gian dài).

Cách thành ngữ bây giờ sẽ là chuyển đổi thành một ký hiệu chuỗi mà biến chứa, bằng cách sử dụng sym()(gần giống như bí danh cơ sở as.name()/ as.symbol()) và hủy trích dẫn nó bằng cách sử dụng!!

Mô phỏng dữ liệu của OP, chúng ta có thể làm:

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)

Nếu chúng ta muốn cung cấp các tên thô cho hàm, chúng ta có thể làm:

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

Nó sẽ hoạt động với các tên hay ký hiệu VÀ với các ký tự chuỗi

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

Như Lionel nói về ensym():

nó có nghĩa là bắt chước cú pháp của các đối số mà bạn có thể cung cấp cả hai trong LHS, ví dụ: list (bare = 1, "quote" = 2)

Một lưu ý về enquo()

enquo()trích dẫn biểu thức (không nhất thiết phải là ký hiệu) được cung cấp cho đối số, nó không chuyển đổi một chuỗi ký tự thành một ký hiệu như ensym()vậy, vì vậy nó có thể ít được điều chỉnh ở đây, nhưng chúng ta có thể làm:

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)

Hãy thử sử dụng aes_stringthay vì aes.

Một tùy chọn khác ( ggplot2 > 3.0.0) là sử dụng đại từ đánh giá gọn gàng .datađể cắt biến / cột đã chọn khỏi rates.by.groupskhung dữ liệu.

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

^{Được tạo vào 2019-04-04 bởi gói reprex (v0.2.1.9000)}

Sử dụng aes_stringkhông khắc phục được sự cố này, nhưng gặp sự cố khi thêm các thanh lỗi geom_errorbar. Dưới đây là một giải pháp đơn giản.

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

Phần thưởng, bạn cũng có thể thêm các khía cạnh vào cốt truyện của mình bằng cách sử dụng các dòng sau bên trong ggplot:

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

Tập lệnh này đã được sửa đổi từ bài đăng gốc này: ggplot2 - Thanh lỗi sử dụng hàm tùy chỉnh

Đây là một ví dụ cực kỳ đơn giản.

Chỉ cần làm hai điều

1. Biến chuỗi thành một biểu tượng
2. Thêm !!khi bạn sử dụng nó

select_col <- sym("Petal.Length")

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