r - 只显示正在使用的标签？

Question

我正在使用以下内容绘制下面给出的图表:

data <- structure(list(Type1 = c("DB", "DB", "DB", "DB", "DB", "DB", 
"DB", "DB", "DB", "DB", "DB", "DB", "DB", "Manual", "Manual", 
"Manual", "Manual", "Manual", "Manual", "Manual", "Manual", "Manual", 
"Manual", "Manual", "Manual", "Manual", "Manual", "Manual"), 
    Type2 = c(1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 
    3L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 
    3L), Category = c("A", "B", "C", "D", "E", "A", "B", "F", 
    "G", "A", "B", "C", "H", "I", "J", "K", "L", "M", "O", "J", 
    "P", "K", "Q", "M", "K", "P", "J", "P"), Percent = c("83.5106383", 
    "9.574468085", "5.85106383", "0.531914894", "1/188*100", 
    "85.24590164", "11.47540984", "1/61*100", "1.639344262", 
    "90", "3.333333333", "3.333333333", "3.333333333", "20.10582011", 
    "10.05291005", "6.349206349", "5.82010582", "4.761904762", 
    "31.14754098", "16.39344262", "6.557377049", "6.557377049", 
    "4.918032787", "30", "23.33333333", "16.66666667", "10", 
    "6.666666667")), .Names = c("Type1", "Type2", "Category", 
"Percent"), row.names = c(NA, -28L), class = "data.frame")

data$Percent <- as.numeric(data$Percent)

g= ggplot(data, aes(x=Category, y=Percent)) + 
          geom_bar(width=0.8, stat="identity", position=position_dodge()) + 
          facet_grid(Type1 ~ Type2, ) + 
          theme_bw() + 
          coord_flip() + 
          scale_y_continuous(limits=c(0,100))

print(g)

有什么方法可以使每行只使用非零标签的情节？例如，取 DB排。它只使用 6 个标签，但显示了所有 16 个标签，因为其他 10 个正在被 Manual 使用。数据的一部分。同样对于 Manual排。我正在寻找的是这样的:

        1            2             3
H
G
D                                        DB
C
B
A

Q
P
O
G                                        MANUAL
M
L
K
J
I

关于如何做到这一点的任何建议？

Answer 1

它只会删除不在任何方面中的元素。但是您可以在 facet_grid() 中使用 scales="free"参数。

g + facet_grid(Type1 ~ Type2, scales="free")

但我认为 facet_wrap 可能会为您提供更合适的可视化:

ggplot(data, aes(x=Category, y=Percent)) + 
  geom_bar(width=0.8, stat="identity", position=position_dodge()) + 
  facet_wrap(Type1 ~ Type2,scales="free") + 
  theme_bw() +
  scale_y_continuous(c(0,100)) + 
  coord_flip() + 
  opts()