如何在facet_wrap（ggplot2）中对行进行子集化或删除？

Question

我有一个长格式的数据框，我使用facet_wrap()为每个人的数据绘制了直方图。但我想删除编号为106的人的直方图。如何在facet_wrap()函数中执行此操作，而无需返回ggplot()函数中的数据框的子集。

这是我的代码：

h1 <- ggplot(gnT.Data, aes(rt)) + 
  geom_histogram(aes(y = ..density.., fill = ..count..), bins = 100) +
  geom_density(color="red") + 
  scale_fill_gradient(low= "#007BFF", high = "#89EBFF")
h2 <- h1 + xlab("Response time (milli seconds)") + 
  ggtitle("Histogram of Response Time") +
  theme(plot.title = element_text(hjust = 0.5))
h3 <- h2 + facet_wrap(~subnum, scales = "free_y")
plot(h3)

输出：