用逗号连接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 = ",")