Các giới hạn y khác nhau trên biểu đồ dạng thanh lưới ggplot?

Question

dữ liệu của tôi:

day variable  value 
1 Fri  avg1 446.521127 
2 Mon  avg1 461.676056 
3 Sat  avg1 393.366197 
4 Sun  avg1 435.985714 
5 Thu  avg1 445.571429 
6 Tue  avg1 441.549296 
7 Wed  avg1 462.042254 
8 Fri  avg2 7.442113 
9 Mon  avg2 7.694648 
10 Sat  avg2 6.556056 
11 Sun  avg2 7.266571 
12 Thu  avg2 7.426286 
13 Tue  avg2 7.359577 
14 Wed  avg2 7.700282 

Vấn đề của tôi là tôi muốn tạo ra một biểu đồ hình cột sử dụng facet_grid hiển thị mỗi bộ dữ liệu trung bình theo ngày, nhưng các quan sát đủ tương tự mà tôi đã tìm thấy nó hữu ích để xác định y - sử dụng số scale_y_continuous.

Vì vậy, nếu tôi gán ggplot tôi để g <- ggplot(df, aes(x=day, y=value)), tôi có thể nhận được một nửa những gì tôi muốn bằng cách mỗi người trong số:

g + geom_bar(stat="identity") + facet_grid(variable~., scales="free") 

VÀ

g + geom_bar(stat="identity") + scale_y_continuous(limits=c(300,500), oob=rescale_none) 

Tuy nhiên, tôi không biết làm thế nào để sử dụng lưới khía cạnh và sau đó chỉ định một scale_y_cont sẽ giới hạn kích thước của các trục y riêng biệt. Có giải pháp nào không?

Answer 1

Bạn có thể tạo các phạm vi y riêng biệt cho các khía cạnh khác nhau khi sử dụng geom_point, nhưng tôi không biết cách để làm điều đó với geom_bar. Để đặt phạm vi y cụ thể với facet_wrap và geom_bar, cách duy nhất tôi biết là tạo các ô riêng biệt và sau đó đặt chúng cạnh nhau bằng cách sử dụng grid.arrange từ gói gridExtra. (Sử dụng thang đo thẳng đứng không xuống 0 sẽ phóng đại sự khác biệt giữa các điểm/thanh, có thể gây hiểu nhầm, nhưng bạn sẽ phải quyết định xem nó có hợp lý cho trường hợp cụ thể của bạn không.)

Đầu tiên, đây là Phiên bản geom_point: Ý tưởng là tạo khung dữ liệu "giả" với giá trị thấp hơn và trên bạn muốn cho ylim và sau đó "vẽ" chúng bằng cách sử dụng geom_blank. geom_blank không vẽ bất kỳ điều gì, nhưng việc thêm địa lý này sẽ đảm bảo rằng phạm vi trục là những gì bạn muốn cho mỗi khía cạnh.

ddummy = data.frame(day=NA, variable=rep(c("avg1", "avg2"), each=2), 
       value=c(0.5*max(df$value[df$variable=="avg1"]), 
         1.1*max(df$value[df$variable=="avg1"]), 
         0.5*max(df$value[df$variable=="avg2"]), 
         1.1*max(df$value[df$variable=="avg2"]))) 

g <- ggplot(df, aes(x=day, y=value)) 

g + geom_point() + 
    geom_blank(data=dummy, aes(day, value)) + 
    facet_grid(variable ~ ., scales="free") 

Và đây là lô riêng biệt, đặt cùng với grid.arrange:

avg1 = ggplot(df[df$variable=="avg1",], aes(x=day, y=value)) + 
    geom_bar(stat="identity") + 
    facet_wrap(~variable) + 
    coord_cartesian(ylim=c(300,500)) 

avg2 = ggplot(df[df$variable=="avg2",], aes(x=day, y=value)) + 
    geom_bar(stat="identity") + 
    facet_wrap(~variable) + 
    coord_cartesian(ylim=c(3.5,8)) 

gridExtra::grid.arrange(avg1, avg2, ncol=2) 

Để sử dụng geom_segment (mỗi nhận xét của bạn), bạn có thể làm điều này:

library(dplyr) 

ggplot(df %>% group_by(variable) %>% 
     mutate(ymin=0.5*max(value))) + 
    geom_segment(aes(x=day, xend=day, y=ymin, yend=value), 
       size=5, colour=hcl(195,100,65)) + 
    facet_grid(variable ~ ., scales="free")