วิธีใช้ตัวแปรเพื่อระบุชื่อคอลัมน์ใน ggplot

ฉันมีคำสั่ง ggplot

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

ภายในฟังก์ชัน แต่ฉันต้องการใช้พารามิเตอร์ของฟังก์ชันเพื่อเลือกคอลัมน์เพื่อใช้เป็นสีและกลุ่ม คือฉันต้องการอะไรแบบนี้

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 ("เพศ") เราได้รับผลของ

  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 () รองรับ quasiquotation เพื่อให้คุณสามารถใช้ได้ !!, !!! และ: =. สิ่งนี้จะแทนที่ 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()
}

มันจะทำงานกับชื่อ aka สัญลักษณ์ AND กับสตริงตัวอักษร

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

ดังที่ไลโอเนลพูดเกี่ยวกับensym():

หมายถึงการเลียนแบบไวยากรณ์ของอาร์กิวเมนต์ที่คุณสามารถจัดหาทั้งใน LHS เช่นรายการ (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()