如何在某些行的顺序中定义没有NAs的列？

# 创建一个示例数据集
data <- data.frame(
  A = c(1, 2, NA, 4),
  B = c(NA, 2, 3, 4),
  C = c(1, 2, 3, 4)
)

# 获取数据集的行数和列数
n_rows <- nrow(data)
n_cols <- ncol(data)

# 初始化一个空的向量，用于记录需要删除的行
rows_to_delete <- numeric(0)

# 遍历每一列，检查是否存在NAs
for (col in 1:n_cols) {
  # 检查每一行的值是否为NA
  for (row in 1:n_rows) {
    if (is.na(data[row, col])) {
      # 如果存在NA值，则将其标记为需要删除的行
      rows_to_delete <- append(rows_to_delete, row)
    }
  }
}

# 创建新的数据集，只包含没有NA值的行
new_data <- data[-rows_to_delete, ]

# 如果需要，可以对数据集的行重新排序
# new_data <- new_data[order(new_data$A), ]

# 打印结果
print(new_data)