Tạo một ma trận các điểm tán xạ (cặp() tương đương) trong ggplot2

Question

Có thể vẽ một ma trận các ô phân tán bằng ggplot2, sử dụng các tính năng đẹp của ggplot như ánh xạ các yếu tố bổ sung cho màu sắc, hình dạng, v.v ...

Tôi đang suy nghĩ về điều gì đó tương tự như chức năng basepairs.

Answer 1

Bạn có thể muốn thử plotmatrix:

library(ggplot2) 
    data(mtcars) 
    plotmatrix(mtcars[,1:3]) 

với tôi mpg (cột đầu tiên trong mtcars) không phải là một yếu tố. Tôi đã không kiểm tra nó, nhưng không có lý do tại sao nó phải là một. Tuy nhiên tôi nhận được một biểu đồ phân tán :)

---

Lưu ý: Để tham khảo trong tương lai, các chức năng plotmatrix() đã được thay thế bằng ggpairs() chức năng từ gói GGally như @ naught101 gợi ý in another response below cho câu hỏi này.

Answer 2

Tôi tiếp tục muốn làm điều này, nhưng plotmatrix là crap. Hadley recommends sử dụng số GGally package để thay thế. Nó có một hàm, ggpairs đó là một lô được cải thiện rất nhiều (cho phép bạn sử dụng các biến không liên tục trong các khung dữ liệu của bạn). Nó lô lô khác nhau trong mỗi hình vuông, tùy thuộc vào loại biến:

library(GGally) 
ggpairs(iris, aes(colour = Species, alpha = 0.4)) 

Answer 3

Nếu ai muốn có được một đối tượng ggplot (không ggmatrix như trong trường hợp của ggpairs()), giải pháp là để làm tan dữ liệu hai lần, sau đó ggplot với mặt nạ. facet_wrap sẽ tốt hơn facet_grid trong việc giới hạn vùng được vẽ, với tham số scales = 'free' được cung cấp.

require(ggplot2) 
require(dplyr) 
require(tidyr) 

gatherpairs <- function(data, ..., 
         xkey = '.xkey', xvalue = '.xvalue', 
         ykey = '.ykey', yvalue = '.yvalue', 
         na.rm = FALSE, convert = FALSE, factor_key = FALSE) { 
    vars <- quos(...) 
    xkey <- enquo(xkey) 
    xvalue <- enquo(xvalue) 
    ykey <- enquo(ykey) 
    yvalue <- enquo(yvalue) 

    data %>% { 
    cbind(gather(., key = !!xkey, value = !!xvalue, !!!vars, 
       na.rm = na.rm, convert = convert, factor_key = factor_key), 
      select(., !!!vars)) 
    } %>% gather(., key = !!ykey, value = !!yvalue, !!!vars, 
       na.rm = na.rm, convert = convert, factor_key = factor_key) 
} 

iris %>% 
    gatherpairs(Sepal.Length, Sepal.Width, Petal.Length, Petal.Width) %>% { 
    ggplot(., aes(x = .xvalue, y = .yvalue, color = Species)) + 
     geom_point() + 
     geom_smooth(method = 'lm') + 
     facet_wrap(.xkey ~ .ykey, ncol = length(unique(.$.ykey)), scales = 'free', labeller = label_both) + 
     scale_color_brewer(type = 'qual') 
}