when rownames don't match columnnames of a matrix, add these as a column of zeros. in r

# Create a matrix with different rownames and colnames
mat <- matrix(1:9, nrow = 3, dimnames = list(c("a", "b", "c"), c("X", "Y", "Z")))

# Check if rownames and colnames are the same
if(all(rownames(mat) %in% colnames(mat))) {
  print("Rownames and Colnames are the same")
} else {
  # Add missing rownames as a column of zeros
  mat[setdiff(rownames(mat), colnames(mat)), ] <- 0
  colnames(mat) <- rownames(mat)
}

print(mat)
428 chars
14 lines