Create new variables based on variable names rule in R

Question

I want to create new variables based on the following rules:

Var doesn't start with "sym"
Var doesn't end with "pct"

And the new var is the previous var with a "_ln" string added. This is the dataset (My real dataset has 184 vars, that's why I want a function)

library(dplyr)
library(tidyr)

df <- data.frame(kg_chicken = c(1,2,3,4,5,6),
                 kg_chicken_pct = c(0.1,0.2,0.3,0.4,0.5,0.6),
                 sym_kg_chicken = c(-0.25,-0.15,-0.05,0.05,0.15,0.25))
df
  kg_chicken kg_chicken_pct sym_kg_chicken
1          1            0.1          -0.25
2          2            0.2          -0.15
3          3            0.3          -0.05
4          4            0.4           0.05
5          5            0.5           0.15
6          6            0.6           0.25

This is what I tried:

df_final <- df %>%
  mutate_if(!starts_with("sym") & !ends_with("pct"),~ paste0(.,"_ln") = log(.))

But I get this error:

Error: unexpected '=' in:
"df_final <- df %>%
  mutate_if(!starts_with("sym") & !ends_with("pct"),~ paste0(.,"_ln") ="

This is my expected result:

df_final
  kg_chicken kg_chicken_pct sym_kg_chicken kg_chicken_ln
1          1            0.1          -0.25         0.000
2          2            0.2          -0.15         0.693
3          3            0.3          -0.05         1.098
4          4            0.4           0.05         1.386
5          5            0.5           0.15         1.609
6          6            0.6           0.25         1.791

Any help will be greatly appreciated (even if it's on rbase).

Allan Cameron · Accepted Answer · 2021-10-15 13:43:17Z

5

mutate_if has been superseded by using across inside mutate, so the way to do this now would be:

df %>%
  mutate(across(!starts_with("sym") & !ends_with("pct"), .fns = log, .names = "{.col}_ln"))

#>   kg_chicken kg_chicken_pct sym_kg_chicken kg_chicken_ln
#> 1          1            0.1          -0.25     0.0000000
#> 2          2            0.2          -0.15     0.6931472
#> 3          3            0.3          -0.05     1.0986123
#> 4          4            0.4           0.05     1.3862944
#> 5          5            0.5           0.15     1.6094379
#> 6          6            0.6           0.25     1.7917595

answered Oct 15, 2021 at 13:43

Allan Cameron

178k7 gold badges70 silver badges118 bronze badges

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

3 Comments

Alexis Over a year ago

Thank you! That's a great answer @Allan Cameron, just a final question please: what if I want a custom function (like log((x - min(x))+1). Do I have to create the function outside to be called by .fns?

Allan Cameron Over a year ago

@Alexis no, you can use an anonymous / lamba function, so .fns = function(x) log((x - min(x))+1)

Alexis Over a year ago

Thank you very much for your time and answer @Allan Cameron. Have a great day!

Collectives™ on Stack Overflow

Create new variables based on variable names rule in R

1 Answer 1

3 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

3 Comments

Your Answer

Sign up or log in

Post as a guest

Related