将列粘贴到具有逗号分隔的单行中

Question

我在下面有一个数据框架，

  > Company
      Name
   1  ABB
   2  Siemens
   3  GE
   4  KF
   5  Woodrich

我需要下面的put

 > Company1 <- c("ABB","Siemens","GE","KF","Woodrich")

我尝试了以下代码，但无法获得。

    Company1<- paste(Company$Name,sep = "",collapse = ",")

Answer 1

我们可以做：

 paste(t(df),collapse = ",")
[1] "ABB,Siemens,GE,KF,Woodrich"

或简单：

paste(t(df))
[1] "ABB"      "Siemens"  "GE"       "KF"       "Woodrich"

或@akrun建议：

toString(t(df))

数据：

df<-structure(list(Name = c("ABB", "Siemens", "GE", "KF", "Woodrich"
)), class = "data.frame", row.names = c("1", "2", "3", "4", "5"
))

Answer 2

获取向量：

Company <- data.frame(name = c("ABB", "Siemens", "GE", "KF", "Woodrich"))
Company1 <- as.vector(Company$name)

如果您做Company1 <- Company$name，您将获得一个因素。使用paste()创建一个字符串，而不是向量。使用矢量，您将有5个元素，字符串只有一个。

> Company2 <- paste(Company$Name, sep = "", collapse = ",")
> Company2
[1] "ABB,Siemens,GE,KF,Woodrich"
> Company1
[1] "ABB"      "Siemens"  "GE"       "KF"       "Woodrich"

Answer 3

Company1 <- as.character(unlist(as.list(Company)))