หากคุณต้องการสร้างฟังก์ชันที่ยอมรับสตริง "B" เป็นอาร์กิวเมนต์ (เช่นเดียวกับในชื่อคำถามของคุณ)

foo_string <- function (x) {
         eval(substitute(df %>% filter(xx < 1),list(xx=as.name(x))))
}
foo_string("B")

หากคุณต้องการสร้างฟังก์ชันที่ยอมรับการจับ B เป็นอาร์กิวเมนต์ (เช่นเดียวกับใน dplyr)

foo_nse <- function (x) {
         # capture the argument without evaluating it
         x <- substitute(x)
         eval(substitute(df %>% filter(xx < 1),list(xx=x)))
}
foo_nse(B)

คุณสามารถดูข้อมูลเพิ่มเติมได้ใน Advanced R

แก้ไข

dplyr ทำให้สิ่งต่างๆ ง่ายขึ้นในเวอร์ชัน 0.3 ฟังก์ชันที่มีส่วนต่อท้าย "_" ยอมรับสตริงหรือนิพจน์เป็นอาร์กิวเมนต์

 foo_string <- function (x) {
             # construct the string
             string <- paste(x,"< 1")
             # use filter_ instead of filter
             df %>% filter_(string)
    }
foo_string("B")
 foo_nse <- function (x) {
             # capture the argument without evaluating it
             x <- substitute(x)
             # construct the expression
             expression <- lazyeval::interp(quote(xx < 1), xx = x)
             # use filter_ instead of filter
             df %>% filter_(expression)
    }
foo_nse(B)

คุณสามารถดูข้อมูลเพิ่มเติมได้ในบทความสั้นนี้

ฉันจำคำถามที่คล้ายกันซึ่งตอบโดย @Richard Scriven ฉันคิดว่าคุณต้องเขียนอะไรแบบนี้

foo <- function(x,...)filter(x,...) 

สิ่งที่ @Richard Scriven พูดถึงคือคุณต้องใช้ ... ที่นี่ หากคุณพิมพ์ ?dplyr คุณจะพบสิ่งนี้: filter(.data, ...) ฉันคิดว่าคุณแทนที่ .data ด้วย x หรืออะไรก็ตาม หากคุณต้องการเลือกแถวที่มีค่าน้อยกว่า 1 ใน B ใน df ของคุณ มันจะเป็นเช่นนี้

foo <- function (x,...) filter(x,...)
foo(df, B < 1)