R循环数据帧并从每一行创建一个向量

Question

R新手我试图从数据框中的每一行创建一个向量，并将该向量命名为数据帧中的位置。样本数据：

a <- read.table(text='keyword1  keyword2 
    1  "hello"  "goodbye" 
    2  "foo"  "y"', header=TRUE) 

每一行应该成为一个字符串如：

name1 <- c("hello", "goodbye") 
name2 <- c("foo", "y") 

我想这样的事情，但它也不能令人信服：

for (i in 1:length(a)) { 
name <- a[i,1]; 
names <- c(name, a[i,2]); 

任何帮助不胜感激！

Answer 1

这里的另一种选择

foo <- function(i) sapply(unname(a), as.character)[i,] 

list2env(
    setNames(Map(foo, 1:nrow(a)), gsub("keyword", "name", names(a))), 
    .GlobalEnv 
) 

name1 
# [1] "hello" "goodbye" 
name2 
# [1] "foo" "y" 

Answer 2

这里有一个办法：

> rows <- sapply(1:2, function(i) strsplit(paste(a[i,1], a[i,2]), " ")) 
> names(rows) <- c("name1", "name2") 
> list2env(rows, envir = .GlobalEnv) 
# let's see the output: 
> name1 
[1] "hello" "goodbye" 
> name2 
[1] "foo" "y"