删除观测值少于3个的r表中的行

我正在寻找一种方法来删除数据框中观察数少于3个的行。让我更好地解释这件事。 我有一个数据框架，有6个独立变量和1个相依变量。当我在

ggplot2

中使用刻面绘制密度图时，少于3个观察值的变量不会被绘制（显然）。我正在寻找一种方法，用少于3个观察值删除这些行。这是一个数据示例：

'data.frame':   432 obs. of  6 variables:
$ ID        : Factor w/ 439 levels "1","2","3","4",..: 1 2 3 4 5 6 7 8 9 10 ...
$ Forno     : Factor w/ 8 levels "Micro","Macro",..: 1 1 1 6 6 6 4 4 4 5 ...
$ Varieta: Factor w/ 11 levels "cc","dd",..: 11 11 11 6 6 6 1 1 1 6 ...
$ Impiego: Factor w/ 5 levels "aperto","chiuso",..: 2 2 2 3 3 3 2 2 2 5 ...
$ MediaL    : num  60.7 58.9 60.5 55.9 56.1 ...
$ MediaL.sd : num  4.81 4.79 4.84 5.27 5.64 ...

ggplot代码：

ggplot(d1,aes(MediaL))+geom_density(aes(fill=Varieta),colour=NA,alpha=0.5)+
    scale_fill_brewer(palette="Set1")+facet_grid(Forno~Impiego)+
    theme(axis.text.x=element_text(angle=90,hjust=1))+theme_mio +xlim(45,65)+
    stat_bin(geom="text",aes(y=0,label=..count..),size=2,binwidth=2)

---

我想删除少于3个观察值的所有交互。

提供样本数据的实际输出将非常有用。您可以通过

dput（您的对象）

而不是您提供的文本表示法来提供此功能。然而，下面相同的基本方法似乎同样适用于

矩阵

、

数据.frame

和

表

数据结构

#Matrix
x <- matrix(c(5,4,4,3,1,5,1,8,2), ncol = 3, byrow = TRUE)
x[x < 3] <- NA
#----
     [,1] [,2] [,3]
[1,]    5    4    4
[2,]    3   NA    5
[3,]   NA    8   NA

#data.frame
xd <- as.data.frame(matrix(c(5,4,4,3,1,5,1,8,2), ncol = 3, byrow = TRUE))
xd[xd < 3] <- NA
#----
  V1 V2 V3
1  5  4  4
2  3 NA  5
3 NA  8 NA

#Table. Simulate some data first
set.seed(1)
samp <- data.frame(x1 = sample(c("acqua", "fango", "neve"), 20, TRUE),
                   x2 = sample(c("pippo", "pluto", "paperino"), 20, TRUE))
x2 <-table(samp)
x2[x2 < 3] <- NA
#----
       x2
x1      paperino pippo pluto
  acqua                    3
  fango        3            
  neve               3     3

#矩阵
现在您有了ggplot脚本。我想从数据框中删除行。您仍然没有完全理解一个可复制的示例。您需要添加用于绘制绘图的数据。有关详细信息，请参见此问题：。我的猜测是，您应该能够将2和2与我上面的内容以及您的代码放在一起，如果没有的话，请返回一个关于您的困境的特定问题。