R: Recalling variables dynamically within loop

Question

I need to recall the variable within the loop and the use that as my column name:

This is an example dataset:

mtcars.df <- mtcars

Expected output:

mtcars.df <- mtcars.df %>% add_column(a1 = sample (1:4, 32, replace = TRUE), b1 = sample (1:4, 32, replace = TRUE), c1 = sample (1:4, 32, replace = TRUE))

So a1, b1 and c1 need to be created within the loop and renamed to a1, b1 and c1. The names are longer (and different combinations) in the original dataset but this is defined in variable mpg.filename.

This is what I have tried so far: The 1st obviously doesn't give the desired result but it's just to show what I want to achieve.

mpg.filename <- c("a1.file", "b1.file", "c1.file")
for (i in mpg.filename) {
  sample.name <- unlist(strsplit(as.character(i), '.', fixed = TRUE))[1]
  mtcars.df$i <- sample (1:4, 32, replace = TRUE)
}

for (i in mpg.filename) {
  sample.name <- unlist(strsplit(as.character(i), '.', fixed = TRUE))[1]
  mtcars.df$temp.var <- sample (1:4, 32, replace = TRUE)
  temp.name <- paste0 (sample.name) %>% rlang::parse_expr()
  mtcars.df <- mtcars.df %>% rename (eval (sample.name) = temp.var)
}

for (i in mpg.filename) {
  sample.name <- unlist(strsplit(as.character(i), '.', fixed = TRUE))[1]
  mtcars.df$temp.var <- sample (1:4, 32, replace = TRUE)
  temp.name <- paste0 (sample.name) %>% rlang::parse_expr()
  mtcars.df <- mtcars.df %>% rename (syms(sample.name) = temp.var)
}

I have tried get, as.symbol, parse (text = "sample.name") as well but didn't work either.

Thanks for the help. I have tried looking at other answers on forums but they do not seem to apply or work.

using eval() on string to access object attributes in R

call columns from inside a for loop in R

Getting strings recognized as variable names in R

How to evaluate an expression with variables in R?

Taiki Sakai · Accepted Answer · 2018-11-16 19:12:52Z

1

Your first attempt was close! When you want to access / create columns in a data.frame using a character, you need to use [[ instead of $. No need for symbols / parsing / other complicated nonsense if this is all you need to do.

for(i in mpg.filename) {
  sample.name <- unlist(strsplit(as.character(i), '.', fixed = TRUE))[1]
  mtcars.df[[sample.name]] <- sample(1:4, 32, replace=TRUE)
}

answered Nov 16, 2018 at 19:12

Taiki Sakai

3111 silver badge5 bronze badges

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

Comments

Dan Woodrich · Accepted Answer · 2018-11-16 19:10:14Z

0

Let me know if this did the trick-

mpg.filename <- c("a1.file", "b1.file", "c1.file")
for (i in 1:length(mpg.filename)) {
  sample.name <- unlist(strsplit(as.character(mpg.filename[i]), '.', fixed = TRUE))[1]
  mtcars.df$i <- sample (1:4, 32, replace = TRUE)
  colnames(mtcars.df)[length(mtcars.df)]<-paste(sample.name)
}

answered Nov 16, 2018 at 19:10

Dan Woodrich

2162 silver badges9 bronze badges

2 Comments

KP1 Over a year ago

My original code and variable mpg.filename is imported as list.files () and then I am reading in a file that is determined by i. I did not indicate that in the original question. My apologies. Your answer does work for but when mpg.filename is imported as list.files () and then I try to read it as a file within the loop it throws an error because i now is a integer and cannot read the file. It is a good solution though.

Dan Woodrich Over a year ago

Not sure if I understand exactly, but to go from i to the item in your list, pull it out with: mpg.filename[i]

Collectives™ on Stack Overflow

R: Recalling variables dynamically within loop

2 Answers 2

Comments

2 Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

2 Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related