tm3 <- tm2[complete.cases(tm2[ , 6]),] tm3 <- tm2[complete.cases(tm2[ , 8]),] tm3 <- tm2[complete.cases(tm2[ , 9]),] 怎么合并

这段代码连续做了三次数据框`tm2`的选择操作，每次都是根据特定列（6、8、9列）是否有完整数据（即无缺失值）。如果你想要合并这三次筛选后的结果，可以创建一个新的数据框并将它们堆叠在一起。假设你需要合并所有列中无缺失值的数据：

# 首先创建一个空的数据框来存放最终结果
tm4 <- data.frame()

# 然后依次将每次筛选的结果添加到tm4
tm4 <- rbind(tm4, tm3[complete.cases(tm2[, 6]),])
tm4 <- rbind(tm4, tm3[complete.cases(tm2[, 8]),])
tm4 <- rbind(tm4, tm3[complete.cases(tm2[, 9]),])

# 或者，更简洁的方式是直接用 Reduce 函数：
tm4 <- Reduce(function(x, y) rbind(x, y),
             list(tm3[complete.cases(tm2[, 6]),],
                 tm3[complete.cases(tm2[, 8]),],
                 tm3[complete.cases(tm2[, 9]),]))

这里我们使用了`rbind()`函数逐次拼接，或者用`Reduce()`函数一次性完成所有操作。