Vẽ nhiều hình vuông với ggplot

Question

Tôi đang cố gắng thay đổi màu 'nền' của một ggplot. Những gì tôi muốn đạt được là cốt truyện được hiển thị bên dưới. Tôi đã thử nó với geom_ribbon nhưng tôi chỉ có thể xác định ymin và ymax. Điều này cho phép tôi chỉ tạo hai ô vuông.

Code tôi sử dụng cho đến nay:

df <- data.frame(x = rnorm(10), y = rnorm(10)) 

ggplot(df) + 
geom_point(aes(x, y)) + 
geom_ribbon(aes(x = x, ymin = min(y), ymax = 0), fill = "red", alpha = .5) + 
geom_ribbon(aes(x = x, ymin = min(0), ymax = max(y)), fill = "blue", alpha = .5) 

Và đây là kết quả tôi muốn nhận được:

ggplot example http://i50.tinypic.com/25j8p5z.png

Cảm ơn thời gian của bạn.

Answer 1

Một biến thể về câu trả lời của bạn, nếu bạn muốn "nền" màu sắc để đi tất cả các cách để các cạnh của đồ thị và không chỉ để những thái cực của dữ liệu:

ggplot(df) + 
    geom_rect(xmin = -Inf, xmax = 0, ymin = -Inf, ymax = 0, fill = "red") + 
    geom_rect(xmin = 0, xmax = Inf, ymin = -Inf, ymax = 0, fill = "blue") + 
    geom_rect(xmin = 0, xmax = Inf, ymin = 0, ymax = Inf, fill = "green") + 
    geom_rect(xmin = -Inf, xmax = 0, ymin = 0, ymax = Inf, fill = "yellow") + 
    geom_point(aes(x, y), size = 5) 

---

EDIT: tính minh bạch

Thêm alpha=0.5 là "hoạt động" ngoại trừ vấn đề bằng cách sử dụng geom_rect, thậm chí không tham chiếu khung dữ liệu gốc df, đã vẽ hình chữ nhật cho mỗi hàng df (10 lần, trong trường hợp này). Đặt alpha=0.01 cho thấy rằng có độ trong suốt, nhưng ở mức thứ 10 là mức mong đợi. Cách tiếp cận nên được chú thích bằng các hình chữ nhật; chú thích vẽ chỉ có một trường hợp duy nhất của Geom, không phải là một cho mỗi hàng của khung dữ liệu gốc:

ggplot(df) + 
    annotate("rect", xmin=-Inf, xmax=0, ymin=-Inf, ymax=0, fill="red", alpha=0.5) + 
    annotate("rect", xmin=0, xmax=Inf, ymin=-Inf, ymax=0, fill="blue", alpha=0.5) + 
    annotate("rect", xmin=0, xmax=Inf, ymin=0, ymax=Inf, fill="green", alpha=0.5) + 
    annotate("rect", xmin=-Inf, xmax=0, ymin=0, ymax=Inf, fill="yellow", alpha=0.5) + 
    geom_point(aes(x, y), size=5) 

Answer 2

Sau nhận xét từ joran. Câu trả lời:

ggplot(df) + 
    geom_rect(aes(xmin = min(x), xmax = 0, ymin = min(y), ymax = 0), fill = "red") + 
    geom_rect(aes(xmin = min(0), xmax = max(x), ymin = min(y), ymax = 0), fill = "blue") + 
    geom_rect(aes(xmin = min(0), xmax = max(x), ymin = 0, ymax = max(y)), fill = "green") + 
    geom_rect(aes(xmin = min(x), xmax = 0, ymin = 0, ymax = max(y)), fill = "yellow") + 
    geom_point(aes(x, y), size = 5)