Recoding same variable across multiple data frames

Question

I want to create a simplified way of recoding the same variable (the same way) across multiple data frames. For example, right now I'm re-coding an age variable from state datasets FL and GA. I'm currently coding them separately. How can I condense this code?

FL <- FL %>% 
  mutate(
    # Create categories
    age_group = dplyr::case_when(
                              age >= 18 & age <= 29 ~ "18-29",
                              age >= 30 & age <= 39 ~ "30-39",
                              age >= 40 & age <= 49 ~ "40-49",
                              age >= 50 & age <= 64 ~ "50-64", 
                              age >= 65 ~ "65+"),
    # Convert to factor
    age_group = factor(
      age_group,
      level = c("18-29", "30-39","40-49", "50-64","65+")
    )
  )

GA <- GA %>% 
  mutate(
    # Create categories
    age_group = dplyr::case_when(
                              age >= 18 & age <= 29 ~ "18-29",
                              age >= 30 & age <= 39 ~ "30-39",
                              age >= 40 & age <= 49 ~ "40-49",
                              age >= 50 & age <= 64 ~ "50-64", 
                              age >= 65 ~ "65+"),
    # Convert to factor
    age_group = factor(
      age_group,
      level = c("18-29", "30-39","40-49", "50-64","65+")
    )
  )

You can use cut(age, breaks = c(-Inf, 18, 29, 39, 49, 64, Inf)). Better would be to create a function i.e. age_grp_fn <- function(age) cut(age, breaks = c(-Inf, 18, 29, 39, 49, 64, Inf)) and reuse the function on each dataset — akrun
– akrun, Commented Feb 27, 2023 at 17:05
To avoid rewriting the code, you can put it into a function, then call it or apply it to all your data.frames — divibisan
– divibisan, Commented Feb 27, 2023 at 17:08

GuedesBF · Accepted Answer · 2023-02-27 18:36:19Z

0

We can call the same function as the argument to a loop-function

First, put all your data.frames in a list (several methods for that, hard to tell which is best without a proper reproducible example). An example:

my_dfs <- list(FL, GA)

Then define your function:

my_function <- function(x) x %>% 
  mutate(
    age_group = dplyr::case_when(
                              age >= 18 & age <= 29 ~ "18-29",
                              age >= 30 & age <= 39 ~ "30-39",
                              age >= 40 & age <= 49 ~ "40-49",
                              age >= 50 & age <= 64 ~ "50-64", 
                              age >= 65 ~ "65+"),
    age_group = factor(
      age_group,
      level = c("18-29", "30-39","40-49", "50-64","65+")
    )
  )

And finally call it in a loop:

lapply(my_dfs, my_function)

answered Feb 27, 2023 at 18:36

GuedesBF

9,9515 gold badges23 silver badges42 bronze badges

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

Collectives™ on Stack Overflow

Recoding same variable across multiple data frames

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related