有没有办法只使用apply函数将Matrix中的值替换为NA

# 创建一个示例矩阵
matrix_data <- matrix(c(1, -2, 3, -4, 5, 6), nrow = 2)

# 定义一个替换函数，将小于0的值替换为NA
replace_negatives_with_na <- function(x) {
  x[x < 0] <- NA
  return(x)
}

# 使用apply函数应用替换函数到矩阵的每一行
result_matrix <- apply(matrix_data, 2, replace_negatives_with_na)

# 打印结果矩阵
print(result_matrix)

     [,1] [,2] [,3]
[1,]    1   NA    3
[2,]   NA   NA    6

replace_values_above_threshold <- function(x, threshold) {
  x[x > threshold] <- NA
  return(x)
}

# 使用apply函数应用替换函数到矩阵的每一行，并指定阈值
result_matrix <- apply(matrix_data, 2, replace_values_above_threshold, threshold = 4)