从R中的矩阵中删除0值

# 创建一个示例矩阵
matrix <- matrix(c(1, 0, 3, 0, 5, 6, 0, 8, 9), nrow = 3, ncol = 3, byrow = TRUE)
print(matrix)

# 使用逻辑索引删除0值
non_zero_matrix <- matrix[matrix != 0]
print(non_zero_matrix)

# 创建一个示例矩阵
matrix <- matrix(c(1, 0, 3, 0, 5, 6, 0, 8, 9), nrow = 3, ncol = 3, byrow = TRUE)
print(matrix)

# 定义自定义函数删除0值
remove_zeros <- function(x) {
  non_zero <- x[x != 0]
  return(non_zero)
}

# 使用apply函数删除0值
non_zero_matrix <- apply(matrix, c(1, 2), remove_zeros)
print(non_zero_matrix)

# 创建一个示例矩阵
matrix <- matrix(c(1, 0, 3, 0, 5, 6, 0, 8, 9), nrow = 3, ncol = 3, byrow = TRUE)
print(matrix)

# 使用subset函数删除0值
non_zero_matrix <- subset(matrix, matrix != 0)
print(non_zero_matrix)