Giảm các mức không sử dụng trong các khía cạnh với ggplot2 [đã đóng]

Có thể giảm các mức không được sử dụng trong các khía cạnh của ggplot2s không? Đây là mã của tôi:

tab = as.data.frame(cbind(groups = mtcars$cyl, names = row.names(mtcars), val = mtcars$mpg, N = mtcars$disp))
tab$N = as.numeric(tab$N)

ggplot(tab, aes(names,val)) + 
geom_point() + coord_flip() + 
theme_bw() + 
facet_grid(groups ~ ., drop=TRUE)#, scales="free", as.table=F, space="free")

Tôi đã thử drop=Tchuyển đổi nhưng nó không giúp đỡ. Tôi đang làm gì sai?

Dữ liệu ví dụ của bạn không có bất kỳ mức không sử dụng nào để giảm. Kiểm tra hành vi trong ví dụ này:

dat <- data.frame(x = runif(12),
                  y = runif(12),
                  grp1 = factor(rep(letters[1:4],times = 3)),
                  grp2 = factor(rep(LETTERS[1:2],times = 6)))

levels(dat$grp2) <- LETTERS[1:3]

ggplot(dat,aes(x = x,y = y)) + 
    facet_grid(grp1~grp2,drop = FALSE) + 
    geom_point()

ggplot(dat,aes(x = x,y = y)) + 
    facet_grid(grp1~grp2,drop = TRUE) + 
    geom_point()

Có thể là bạn đang tìm cách thay đổi các yếu tố nào đang vẽ trên trục tung trong mỗi khía cạnh, trong trường hợp đó bạn muốn đặt scalesđối số và sử dụng facet_wrap:

ggplot(tab, aes(names,val)) + 
    geom_point() + coord_flip() + 
    theme_bw() + 
    facet_wrap(~groups,nrow = 3,scales = "free_x")