ggplot2 lô 3 yếu tố với một số x-trục cắt chuyển

Question

Tôi muốn tạo một cốt truyện điểm với ggplot2 geom_point nơi một biến liên tục được phân tầng bởi các yếu tố khác nhau.

Nó là khá phức tạp, có lẽ tôi đang cố gắng để hiển thị quá nhiều trong một biểu đồ, nhưng tôi có ba yếu tố khác nhau ảnh hưởng đến điều

Tôi muốn thể hiện nó như thế này

p <- ggplot(mtcars[,c(1,2,10,11)], aes(factor(cyl), mpg)) 
p + geom_point(aes(colour = factor(gear), shape=factor(carb))) 

Tuy nhiên tôi muốn chia yếu tố (bánh răng) ra, tức là với mỗi giá trị ba (xy lanh) trên trục x, tôi muốn có khoảng cách nhỏ giữa các yếu tố (bánh răng) khác nhau trên trục x

tức là trong hệ số (cyl) == 4, hệ số (bánh) == 3 là loại trên 3,9, hệ số (bánh) == 4 là trên 4 và hệ số (bánh răng) == 5 là loại trên 4.1. Điều này lặp đi lặp lại cho mỗi yếu tố (cyl) giá trị.

Hy vọng có ý nghĩa

NB đây là ví dụ về đồ chơi. Tôi sẽ làm điều đó bằng cách sử dụng các giá trị phân loại, không phải là số thay vì các con số được xác định; Tôi nhận thấy có giá trị trên 3,9/4,1 là khó hiểu.

Answer 1

Với facet_grid() và mtcars dụ:

library(ggplot2) 
data(mtcars) 

p <- ggplot(mtcars, aes(factor(cyl), mpg)) + geom_point(aes(colour=factor(carb))) 
p + facet_grid(. ~ gear) 

Answer 2

subset là một cách để thực hiện việc này. Tập hợp dữ liệu theo gears, sau đó định vị tập hợp các điểm cho từng tập con.

library(ggplot2) 

p <- ggplot() 
p + geom_point(data = subset(mtcars[,c(1,2,10,11)], gear == 3), aes(x = as.numeric(factor(cyl)) - 0.1, y = mpg, colour = factor(gear), shape=factor(carb))) + 
    geom_point(data = subset(mtcars[,c(1,2,10,11)], gear == 4), aes(x = as.numeric(factor(cyl)), y = mpg, colour = factor(gear), shape=factor(carb))) + 
    geom_point(data = subset(mtcars[,c(1,2,10,11)], gear == 5), aes(x = as.numeric(factor(cyl)) + .1, y = mpg, colour = factor(gear), shape=factor(carb))) + 
    scale_x_continuous("Cylinders", breaks = c(1,2,3), labels = c(4,6,8), expand = c(.2,0))