R ggplot - thêm tất cả các điểm dữ liệu cho tất cả các khía cạnh

Question

cho đến bây giờ tôi không thể tìm thấy một câu trả lời thích hợp, đây là câu hỏi ngắn của tôi về ggplot2 trong R:

data(mtcars) 
ggplot(data=mtcars, aes(x=mpg, y=wt, fill=factor(cyl))) + 
scale_fill_manual(values=c("red","orange","blue"))+ 
geom_point(size=2, pch=21)+ 
facet_grid(.~cyl) 

Đây là tất cả tiền phạt , bây giờ tôi muốn tất cả các điểm dữ liệu (bất kể số lượng cyl có) trong mọi khía cạnh (ví dụ với một màu xám mịn bên dưới các điểm)?

Cảm ơn, Michael

Answer 1

Sử dụng liên kết đưa ra bởi @beetroot, tôi đã có thể làm một cái gì đó như thế này:

g1 <- ggplot(data=mtcars, aes(x=mpg, y=wt)) + 
    geom_point(data=mtcars[, c("mpg", "wt")], aes(x=mpg, y=wt), colour="grey") + 
    geom_point(size=2, pch=21, aes(fill=factor(cyl))) + 
    scale_fill_manual(values=c("red","orange","blue")) + 
    facet_wrap(~cyl) 

này tạo ra cốt truyện:

Hy vọng điều này sẽ giúp bạn .

Answer 2

Đây là một sự đơn giản hóa nhẹ giúp cuộc sống dễ dàng hơn một chút. Điều duy nhất bạn cần làm là xóa biến faceting khỏi dữ liệu được cung cấp cho lớp nền geom_point().

library(tidyverse) 
ggplot(data=mtcars, aes(x=mpg, y=wt)) + 
    geom_point(data=select(mtcars,-cyl), colour="grey") + 
    geom_point(size=2, pch=21, aes(fill=factor(cyl))) + 
    scale_fill_manual(values=c("red","orange","blue")) + 
    facet_wrap(~cyl)