循环遍历数据框以生成新列

Question

I have 10 data frames (Shape1,Shape 2,Shape 3 etc.), each containing the same the column names. How do i for loop this command through the 10 data frames so each contains a new column called integration?

Shape1$Integration<-cumtrapz(Shape1$Time, Shape1$CA) 

many thanks

Answer 1

In base R, you can create a list of dataframe using mget , loop over each and create a new column with transform .

lapply(mget(paste0("Shape", 1:10)), function(x) 
        transform(x, Integration = cumtrapz(Time, CA)))

---

In tidyverse that can be done as

library(tidyverse)
map(mget(paste0("Shape", 1:10)), ~.x %>% mutate(Integration = cumtrapz(Time, CA)))