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 = ",")

用逗号连接R中的字符串

1 个答案: