Thực hiện các chức năng cốt truyện với ggplot và aes_string

Question

Trong sách của Hadley Wickham ggplot2 trong chương 10.3, anh ta ám chỉ để tạo ra các chức năng cốt truyện. Tôi muốn tạo ra nhiều ô tương tự sử dụng faceting, nhưng tôi không thể tham chiếu đến một cột. Nếu tất cả các tài liệu tham khảo của tôi là trong thẩm mỹ sau đó tôi có thể sử dụng aes_string và tất cả mọi thứ hoạt động. Facet_wrap dường như không có sự tương tự.

library(ggplot2) 
data(iris) 

Đây là cốt truyện tôi muốn thực hiện chức năng.

pl.flower1 <- ggplot(data=iris, 
        aes_string(x='Sepal.Length', y='Sepal.Width', color='Petal.Length')) + 
           geom_point() +facet_wrap(~Species) 

này hoạt động nếu tôi không khía cạnh.

flowerPlot <- function(dat, sl, sw, pl, sp){ 
    ggplot(data=dat, aes_string(x=sl, y=sw, color=pl)) + geom_point() 
} 
pl.flower2 <- flowerPlot(iris, sl='Sepal.Length', sw='Sepal.Width', pl='Petal.Length') 

Điều gì sẽ "sp" là hai dòng bên dưới? Một công thức, một chuỗi? Có lẽ toàn bộ aproach là sai.

flowerPlotWrap <- function(dat, sl, sw, pl, sp){ 
     ggplot(data=dat, aes_string(x=sl, y=sw, color=pl)) + geom_point() +facet_wrap(sp) 
    } 
    pl.flower3 <- flowerPlotWrap(iris, sl='Sepal.Length', sw='Sepal.Width', pl='Petal.Length', sp= ?????) 

Ngoài câu trả lời, tôi rất thích con trỏ về cách mọi người tiếp cận vấn đề này?

Answer 1

facet_wrap hy vọng một công thức như là đối số đầu tiên của mình, vì vậy tôi chỉ muốn ép buộc nó với as.formula, và thức ăn trong sp của tôi như là một chuỗi:

flowerPlotWrap <- function(dat, sl, sw, pl, sp){ 
     ggplot(data=dat, aes_string(x=sl, y=sw, color=pl)) + 
     geom_point() +facet_wrap(as.formula(sp)) # note the as.formula 
} 
pl.flower3 <- flowerPlotWrap(iris, sl='Sepal.Length', 
          sw='Sepal.Width', pl='Petal.Length', 
          sp= '~Species') 

Ngoài nếu công thức của tôi luôn trông giống như ~[columnname], tôi chỉ có thể tạo công thức đó thành flowerPlotWrap và chuyển vào tên cột :

flowerPlotWrap <- function(dat, sl, sw, pl, sp){ 
     ggplot(data=dat, aes_string(x=sl, y=sw, color=pl)) + 
     geom_point() +facet_wrap(as.formula(sprintf('~%s',sp))) 
} 
pl.flower3 <- flowerPlotWrap(iris, sl='Sepal.Length', 
          sw='Sepal.Width', pl='Petal.Length', 
          sp= 'Species') 

(kudo đến ví dụ tái sản xuất trong câu hỏi của bạn! Nếu mọi người hỏi câu hỏi cũng như rằng họ sẽ nhận được câu trả lời nhanh hơn nhiều).

Answer 2

Chức năng của bạn hoạt động tốt đối với tôi chưa được sửa đổi nếu tôi chỉ sử dụng sp='Species', tức là tên của biến mà bạn muốn khía cạnh.

flowerPlotWrap(iris, sl='Sepal.Length', sw='Sepal.Width', pl='Petal.Length', sp='Species')