R语言 将表格的几列合并，然后删除特定值，以Word形式导出

您好，以下是您所需要的代码实现：

1. 合并表格的几列

假设您要将表格的第2列和第3列合并，可以使用如下代码：

df <- read.table("filename.txt", header = TRUE) # 读取文件
df$new_column <- paste(df$column2, df$column3, sep = "-") # 合并第2列和第3列，并创建新列
df <- df[, -c(2, 3)] # 删除第2列和第3列

2. 删除特定值

假设您要删除表格中值为"NA"的行，可以使用如下代码：

df <- df[!is.na(df$column),] # 删除值为"NA"的行

3. 导出为Word文档

假设您要将表格导出为Word文档，可以使用`officer`包中的`print`函数，具体代码如下：

library(officer)
library(flextable)

df <- read.table("filename.txt", header = TRUE) # 读取文件
df$new_column <- paste(df$column2, df$column3, sep = "-") # 合并第2列和第3列，并创建新列
df <- df[, -c(2, 3)] # 删除第2列和第3列
df <- df[!is.na(df$column),] # 删除值为"NA"的行

ft <- flextable(df) # 将数据框转换为flextable对象
doc <- read_docx() # 创建一个空的Word文档
print(ft, target = doc) # 将flextable对象插入到Word文档中
print(doc, "output.docx") # 将Word文档保存为output.docx

希望以上代码能够帮到您！