r - 如果有相同的nrows cbind 两个数据

Question

仅当它们具有相同的行数时，如何告诉 R cbind 两个矩阵？

我知道我可以手动检查它。

Answer 1

做一个函数，比如：

ckbind = function (a, b) 
{
    a = as.matrix(a)
    b = as.matrix(b)
    if (nrow(a) == nrow(b)) {
        return(cbind(a, b))
    } else {
        stop("Differing number of rows")
    }
}

请注意矩阵转换，因此它适用于向量。测试：

> ckbind(1:3,2:4)
     [,1] [,2]
[1,]    1    2
[2,]    2    3
[3,]    3    4
> ckbind(1:3,2:6)
Error in ckbind(1:3, 2:6) : Differing number of rows

并检查它是否适用于矩阵：

> ckbind( ckbind(1:3,2:4), ckbind(3:5,4:6))
     [,1] [,2] [,3] [,4]
[1,]    1    2    3    4
[2,]    2    3    4    5
[3,]    3    4    5    6