Tạo các ô trong vòng lặp bằng ggplot2

Question

Tôi phải tạo 250 ô với cùng một giao diện.

dụ Dữ liệu của tôi thiết lập:

df <- data.frame(name = c("john","alex","mike","dennis","alex"), 
      expenses = c("10","12","15","8","2"), 
      type = c("food","rent","rent","food","food")) 

Tôi muốn lô quầy bar với các khoản chi phí cho mỗi tên trong một âm mưu duy nhất. Cốt truyện cho "alex" sẽ trông giống như:

selected.name <- "alex" 
df1 <- subset(df, name == selected.name) 
ggplot(data = df1, aes(type, expenses)) + geom_bar() 

Bây giờ tôi muốn sử dụng vòng lặp vẽ lô đất giống nhau cho mỗi tên trong df. Tôi đã cố gắng sử dụng một vòng lặp for chạy mã cốt truyện ở trên dưới dạng tệp nguồn. Nhưng tôi không thể chuyển biến tên vào tệp nguồn để nó vẽ đồ thị cho mỗi tên. Bây giờ tôi chỉ nhận được một đồ thị trong vòng lặp for.

Answer 1

Để trả lời câu hỏi orignal của bạn. Để thực hiện điều này bằng tiêu chuẩn R:

doPlot = function(sel_name) { 
    dum = subset(df, name == sel_name) 
    ggobj = ggplot(data = dum, aes(type, expenses)) + geom_bar() 
    print(ggobj) 
    ggsave(sprintf("%s.pdf", sel_name)) 
} 
lapply(unique(df$name), doPlot) 

Bằng cách này bạn kết thúc với một số lượng lớn các tập tin pdf gọi Adam.pdf vv Bạn sau đó có thể sử dụng pdftk (pdf bộ công cụ) để mèo các tập tin với nhau trong một tài liệu. Tôi vẫn thích, một giải pháp tốt hơn bằng cách sử dụng ví dụ: facetting hoặc một loại khác nhau của cốt truyện.

Sẽ không tốt hơn nhiều khi sử dụng tính năng vuốt? Với ví dụ của bạn mã sẽ là:

ggplot(data = df, aes(type, expenses)) + 
    geom_bar() + facet_wrap(~name) 

dẫn đến cốt truyện sau:

lẽ cho 250 tên và biến hơn, điều này có thể là một vấn đề. Nhưng tôi vẫn nhìn vào mặt.

Answer 2

Một đồng nghiệp chỉ ra rằng việc sử dụng tập hợp con trong một hàm là một ý tưởng rất tồi. Xem ?subset() để biết thêm thông tin. Vì vậy, tôi thích nghi với anwser của Paul Hiemstra và thay thế các tập hợp con.

doPlot = function(sel_name) { 
    dum <- df[df$name == sel_name,] 
    ggobj = ggplot(data = dum, aes(type, expenses)) + geom_bar() 
    print(ggobj) 
    ggsave(sprintf("%s.pdf", sel_name)) 
} 
lapply(unique(df$name), doPlot)