r中读取一个csv文件，paste函数把文件的第一列、第三列、第六列、第十列、第九列、第十二列粘在一起，用do包的Replace函数将文本中的空格用符号.代替，并输出一个新文件，帮我写一下代码

好的，以下是R语言的代码实现：

library(data.table)

# 读取csv文件
data <- fread("your_file.csv")

# 选择需要的列
cols <- c(1, 3, 6, 10, 9, 12)
selected_data <- data[, cols]

# 将列粘在一起
text <- apply(selected_data, 1, paste, collapse = "")

# 使用gsub函数将空格替换为.
text <- gsub(" ", ".", text)

# 将文本转化为数据框
new_data <- data.frame(text)

# 写入新文件
write.csv(new_data, "new_file.csv", row.names = FALSE)

其中，`fread`函数用于读取csv文件，`apply`函数用于将选中的列粘在一起，`gsub`函数用于替换空格，`data.frame`函数用于将文本转化为数据框，`write.csv`函数用于将新数据写入新文件中。请将代码中的`your_file.csv`替换为你的csv文件的文件名，以及将`new_file.csv`替换为你想要生成的新文件的文件名。