Làm cách nào để đặt các dấu ngắt và nhãn khác nhau trên vảy khi dữ liệu mặt trong ggplot2?

Question

Xét đoạn mã sau:

library(ggplot2)  
data = data.frame(x = c(1, 2, 
         3, 4, 
         5, 6), 
        label = c("foo", "bar", 
          "bar", "baz", 
          "baz", "boo"), 
        type = c(1, 1, 
          2, 2, 
          3, 3)) 
ggplot(data, aes(x = x, y = c(1))) + 
    labs(x = "", y = "") + 
    theme_bw() + 
    facet_wrap(~ type, ncol = 1, scales = "free_x") + 
    scale_x_discrete(aes(breaks = x, labels=label), limits = 1:6) + 
    geom_point() 

Nó tạo ra hình ảnh:

Vấn đề là scale_x_discrete() tôi được bỏ qua. Tôi muốn quy mô x của từng mặt để hiển thị các nhãn trong data$label, nhưng chỉ ở nơi có dữ liệu. Nói cách khác, tôi muốn một cái gì đó như thế này, nhưng trên một biểu đồ duy nhất:

Làm thế nào tôi có thể làm điều đó?

Answer 1

Bạn có thể cần phải xây dựng các lô riêng biệt, sau đó kết hợp chúng bằng cách sử grid.arrange:

library(ggplot2)  
data = data.frame(x = c(1, 2, 
         3, 4, 
         5, 6), 
        label = c("foo", "bar", 
          "bar", "baz", 
          "baz", "boo"), 
        type = c(1, 1, 
          2, 2, 
          3, 3)) 

library(gridExtra) # Using V 2.0.0 

p = list() 

for(i in 1:3) { 

df = subset(data, type == i) 

p[[i]] = ggplot(df, aes(x = x, y = c(1))) + 
    labs(x = "", y = "") + 
    theme_bw() + 
    expand_limits(x = c(1, 6)) + 
    facet_wrap(~ type, ncol = 1) + 
    scale_x_continuous(breaks = df$x, labels = df$label) + 
    geom_point() 
    } 

grid.arrange(grobs = p, ncol = 1) 

Answer 2

Thay đổi đối số thành scales = "free". Tôi đã sửa đổi ví dụ thêm 'y = type` thay vì hằng số c (1) để có các thang khác nhau.

ggplot(data, aes(x = x, y = type)) + 
    labs(x = "", y = "") + 
    theme_bw() + 
    facet_wrap(~ type, ncol = 1, scales = "free") + 
    scale_x_discrete(aes(breaks = x), labels = data$label, limits = 1:6) + 
    geom_point() 

Sử dụng scales = "free_y"

ggplot(data, aes(x = x, y = type)) + 
    labs(x = "", y = "") + 
    theme_bw() + 
    facet_wrap(~ type, ncol = 1, scales = "free_y") + 
    scale_x_discrete(aes(breaks = x), labels = data$label, limits = 1:6) + 
    geom_point() 

ggplot(data, aes(x = label, y = type)) + 
    labs(x = "", y = "") + 
    theme_bw() + 
    facet_wrap(~ type, ncol = 1, scales = "free") + 
    geom_point()