在多面geom_bar ggplot2中删除不带y的x值

Question

我在ggplot2中遇到条形图，但是我想删除在特定组中没有与y变量关联的ID。带有代表性数据集的示例（如下所示）是

    ID VAL GRP
1   1   2   1
2   2   4   2
3   3   6   3
4   4   8   4
5   5  10   1
6   6  12   2
7   7  14   3
8   8  16   4
9   9  18   1
10 10  20   2
11 11  22   3
12 12  24   4

这是完整的代码

    df <- structure(list(ID = 1:12, VAL = c(2, 4, 6, 8, 10, 12, 14, 16, 
    18, 20, 22, 24), GRP = c(1L, 2L, 3L, 4L, 1L, 2L, 3L, 4L, 1L, 
    2L, 3L, 4L)), .Names = c("ID", "VAL", "GRP"), row.names = c(NA, 
    -12L), class = "data.frame")

    ggplot(df, aes(x = as.factor(ID), y = VAL)) + 
      geom_bar(aes(fill = as.factor(GRP)), stat = "identity") + 
      facet_wrap(~as.factor(GRP))

下面给出了生成的图，但是我想要一个图，其中每个构面都没有不属于该特定组的ID，因为ID的顺序并不代表任何意义，它们只是标识符。

谢谢！

Answer 1

将scales="free_x"添加到您的facet_wrap通话中。