r - 用逗号连接R中的字符串

Question

我在一个 .txt 文件中有一些信息，如下所示：

cars.txt

    Ford               1000
    Mercedes           2000
    Lada               3000
    Chevrolet          5000

我想读取这个 .txt 文件的一些元素并将它们转换为用逗号分隔的一行。我将把它保存在另一个文件中，所以我需要类似的东西（添加了 NAME 字符串）：

NAME,Mercedes,Lada

我尝试了以下代码：

conn=file("cars.txt",open="r")
control<-readLines(conn)
data<-strsplit(control,"\t")
c<-1
cars<-c()
for (j in 1:4)
{
    cars[[c]]<-data[[j]][1]
    cd<-cd+1
}
carsd<-paste(cars,sep=",")
print(carsd)

但根本没有结果，有什么帮助吗？

谢谢

Answer 1

试试这个：

data <- read.table("cars.txt", sep = "\t")
paste(c("NAME", data[,1]), collapse = ",")

如果read.table与您的数据不兼容（例如非表格数据），我将如何调整您的代码：

control <- readLines("cars.txt")
data    <- strsplit(control, "\t")
brands  <- sapply(data, `[`, 1)
paste(c("NAME", brands), collapse = ",")