如何在R中使用clump和reclassify函数删除小的和大的像素簇

我想删除像素，形成一个小而大的集群。从这里给出的答案：，我可以删除大集群

但是我没有找到办法把小的去掉

library(raster)
library(igraph)
f <- "https://i.stack.imgur.com/2CjCh.jpg"
b <- brick(f)
x <- sum(b)
r <- x > 450    
rc <- clump(r) 
f <- freq(rc, useNA="no")
rs <- subs(rc, data.frame(f))
rsc <- reclassify(rs, cbind(100,Inf,NA))    
m <- mask(b, rsc)
plotRGB(m)

库（光栅）
图书馆（igraph）
F