这只是一种扩充，不是吗?

This is just an augmentation, isn't it?

X <- as.matrix(x)
rbind(cbind(diag(nrow(X)), X), cbind(t(X), diag(ncol(X))))