How to loop in R to create multiple columns and populate with values

Question

Hi I have a dataset and would like to make new columns and populate its rows by computations. I did something like this

# ETR = PhiPSII * 0.55 * Qin * fractionPSII
MGCons_FL2$ETR25 <- MGCons_FL2$PhiPS2*0.55*MGCons_FL2$Qin*0.25
MGCons_FL2$ETR30 <- MGCons_FL2$PhiPS2*0.55*MGCons_FL2$Qin*0.30
MGCons_FL2$ETR35 <- MGCons_FL2$PhiPS2*0.55*MGCons_FL2$Qin*0.35
MGCons_FL2$ETR40 <- MGCons_FL2$PhiPS2*0.55*MGCons_FL2$Qin*0.40
MGCons_FL2$ETR45 <- MGCons_FL2$PhiPS2*0.55*MGCons_FL2$Qin*0.45
MGCons_FL2$ETR50 <- MGCons_FL2$PhiPS2*0.55*MGCons_FL2$Qin*0.50
MGCons_FL2$ETR55 <- MGCons_FL2$PhiPS2*0.55*MGCons_FL2$Qin*0.55
MGCons_FL2$ETR60 <- MGCons_FL2$PhiPS2*0.55*MGCons_FL2$Qin*0.60
MGCons_FL2$ETR65 <- MGCons_FL2$PhiPS2*0.55*MGCons_FL2$Qin*0.65
MGCons_FL2$ETR70 <- MGCons_FL2$PhiPS2*0.55*MGCons_FL2$Qin*0.70
MGCons_FL2$ETR75 <- MGCons_FL2$PhiPS2*0.55*MGCons_FL2$Qin*0.75

Can you help me use a loop function to automate this?

Thank you

MGCons_FL2$PhiPS2 *0.55 * MGCons_FL2$Qin %o% seq(0.25, 0.75, 0.05) should give you all the columns you want — Onyambu
– Onyambu, Commented Aug 22, 2022 at 0:32

Parfait · Accepted Answer · 2022-08-21 22:21:36Z

1

Consider sapply or vapply across a sequence of multiples of 5 and assign to block of columns:

mult5 <- seq(25, 75, by=5)

MGCons_FL2[paste0("ETR", mult5)] <- sapply(
    mult5, \(x) with(MGCons_FL2, PhiPS2 * 0.55 * Qin * (x/100))
)

MGCons_FL2[paste0("ETR", mult5)] <- vapply(
    mult5, \(x) with(MGCons_FL2, PhiPS2 * 0.55 * Qin * (x/100)),
    numeric(nrow(MGCons_FL2))
)

answered Aug 21, 2022 at 22:21

Parfait

108k19 gold badges103 silver badges138 bronze badges

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

Comments

Jamie · Accepted Answer · 2022-08-21 22:23:31Z

0

# make a fake dataframe to test function
MGCons_FL2 <- tibble(PhiPS2 = rnorm(50),
                     Qin = rnorm(50))

# make a function that adds specified columns to the dataframe
column_maker <- function(col_name, number) {
  
  MGCons_FL2[ , col_name] <<- MGCons_FL2$PhiPS2*0.55*MGCons_FL2$Qin*number
  
}

# map the function over you column names and the multiplier that changes with each column
map2(.x = c("ETR25", "ETR30", "ETR35", "ETR40"), .y = seq(from= .25, to = .4, by = .05), .f = column_maker)

# check the object, the columns have been put there
MGCons_FL2

answered Aug 21, 2022 at 22:23

Jamie

5114 silver badges14 bronze badges

Comments

Jon Spring · Accepted Answer · 2022-08-21 22:24:22Z

0

library(dplyr); library(tidyr)
MGCons_FL2 %>%
  crossing(fracPSII = seq(0.25, 0.75, by = 0.05)) %>%
  mutate(col = paste0("ETR", fracPSII * 100),
         val = PhiPS2*0.55 + Qin*fracPSII) %>%
  select(-fracPSII) %>%
  pivot_wider(names_from = col, values_from = val)

answered Aug 21, 2022 at 22:24

Jon Spring

70.2k4 gold badges42 silver badges70 bronze badges

Collectives™ on Stack Overflow

How to loop in R to create multiple columns and populate with values

3 Answers 3

Comments

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

Comments

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related