R loop dataframe and create a vector from each row

Question

New to R. I am trying to create a vector from each row in a dataframe, and name the vector after the position in the dataframe. Sample data:

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

each row should become a character string like:

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

I'm thinking something like this, but its not quite there:

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

Any help would be appreciated!

Jilber Urbina · Accepted Answer · 2014-09-30 21:07:41Z

2

Here's one approach:

> 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"

answered Sep 30, 2014 at 21:07

Jilber Urbina

61.4k10 gold badges116 silver badges141 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Rich Scriven · Accepted Answer · 2014-10-01 00:52:56Z

1

Here's another option

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"

answered Oct 1, 2014 at 0:52

Rich Scriven

99.8k11 gold badges191 silver badges252 bronze badges

Collectives™ on Stack Overflow

R loop dataframe and create a vector from each row

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related