R 脚本：删除矩阵中特定列大于等于 1 的行

以下是一个 R 脚本，可以实现删除矩阵中某一列数值大于等于 1 的行：

# 创建一个矩阵
matrix <- matrix(c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9), ncol = 2)

# 输出原始矩阵
print(matrix)

# 找到需要删除的行
rows_to_delete <- which(matrix[, 2] >= 1)

# 删除行
new_matrix <- matrix[-rows_to_delete, ]

# 输出新矩阵
print(new_matrix)

在这个脚本中，我们首先创建了一个矩阵，然后使用 which() 函数找到需要删除的行。该函数返回一个向量，其中包含矩阵中第二列中数值大于等于 1 的行号。接下来，我们使用负索引从原始矩阵中删除这些行，并将结果存储在一个新矩阵中。最后，我们输出新矩阵，以查看哪些行已被成功删除。