确定满足条件的每个子矩阵

Question

在下面的矩阵中，我试图识别由1组成的每个最大的矩形，如图所示。 只有长度超过 3 列时，矩形才能只有一行。 仅当矩形具有多于 3 行时，它们才能只有一列。 矩形应小于 maxcol 列和 maxrow 行，且大于 mincol 和 minrow 。在图片中mincol = minrow = 2。 MaxRow的= maxcolumn = 6

试图使用子集函数，但它提供1个子矩阵而不是每个叠加的矩形。

mdat <- matrix(c(0,1,1,1,0,0,0,1,0,1,1,1,1,1,1,1,1,1,0,1,0,1,1,0), nrow = 4, ncol = 6, byrow = TRUE) 

dimnames(mdat) <- list(  c("row1", "row2", "row3","row4"), c("col1", "col2", "col3", "col4","col5","col6"))