Recode variable based on length

Question

I have a large dataframe with a structure like this:

id v1 v2 v3 v4 v5
1  1  1 98  1  1
2  1  1  1  1  1
3  4  1  0 22  1
4  5  1  1  1  1
5  1  1 90  1  1

I would like to move from v2 all the way to v5 and if the variable value is greater than 1 character in length then it gets recoded to 9, so the resulting df would be:

id v1 v2 v3 v4 v5
1  1  1  9  1  1
2  1  1  1  1  1
3  4  1  0  9  1
4  5  1  1  1  1
5  1  1  9  1  1

Note: All variables are stored as strings that's why I'm looking to incorporate length as part of the answer.

lovalery · Accepted Answer · 2022-03-13T23:57:42.673

If this is a large dataframe, using the data.table library, you could do:

Reprex

Code

library(data.table)

cols <- paste0("v", 2:5)
setDT(df)[, (cols) := lapply(.SD, function(x) fifelse(nchar(x) > 1, 9, x)), .SDcols = cols][]

Output

#>    id v1 v2 v3 v4 v5
#> 1:  1  1  1  9  1  1
#> 2:  2  1  1  1  1  1
#> 3:  3  4  1  0  9  1
#> 4:  4  5  1  1  1  1
#> 5:  5  1  1  9  1  1

^{Created on 2022-03-14 by the reprex package (v2.0.1)}

EDIT:

`dplyr` solution

Code

library(dplyr)

df %>% mutate(across(v2:v5, ~ ifelse(nchar(.x) > 1, 9, .x)))

Output

#>   id v1 v2 v3 v4 v5
#> 1  1  1  1  9  1  1
#> 2  2  1  1  1  1  1
#> 3  3  4  1  0  9  1
#> 4  4  5  1  1  1  1
#> 5  5  1  1  9  1  1

Base R solution

Code

cols <- paste0("v", 2:5)
df[, cols] <- apply(df[, cols], c(1,2), function(x) ifelse(nchar(x) > 1, 9, x))

Output

df
#>   id v1 v2 v3 v4 v5
#> 1  1  1  1  9  1  1
#> 2  2  1  1  1  1  1
#> 3  3  4  1  0  9  1
#> 4  4  5  1  1  1  1
#> 5  5  1  1  9  1  1

^{Created on 2022-03-14 by the reprex package (v2.0.1)}

Thanks for the answer, however due to the nature of the script I'm looking for a R base or tidyverse solution — EGM8686, Mar 13 '22 at 23:28
@EGM8686 sorry I missed you wanted a `tidyverse` solution. So please see my edit just above. Cheers. — lovalery, Mar 13 '22 at 23:35
@EGM8686 I also added a base R solution. Hope this helps. Cheers. — lovalery, Mar 13 '22 at 23:52

Peter · Answer 2 · 2022-03-13T23:54:07.560

A dplyr solution:

library(dplyr)

 df1 %>%   mutate(across(v2:v5, ~ifelse(nchar(.x)>1, 9, .x)))

#> # A tibble: 5 x 6
#>      id    v1    v2    v3    v4    v5
#>   <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1     1     1     1     9     1     1
#> 2     2     1     1     1     1     1
#> 3     3     4     1     0     9     1
#> 4     4     5     1     1     1     1
#> 5     5     1     1     9     1     1

^{Created on 2022-03-13 by the reprex package (v2.0.1)}

data

df1 <- structure(list(id = c(1, 2, 3, 4, 5), v1 = c(1, 1, 4, 5, 1), 
                      v2 = c("1", "1", "1", "1", "1"), v3 = c("98", "1", "0", "1", 
                                                              "90"), v4 = c("1", "1", "22", "1", "1"), v5 = c("1", "1", 
                                                                                                              "1", "1", "1")), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, 
                                                                                                                                                                                       -5L))

score 0 · Answer 3 · edited Mar 14 '22 at 17:32

0

df <- data.frame(id,v1,v2,v3,v4,v5)
n <- NROW(df)
m <- NCOL(df)

for (j in 1:m) {
 for (i in 1:n) { 
   ifelse(nchar(df[i,j]) > 1, df[i,j] <- 9, "")
    }
}

edited Mar 14 '22 at 17:32

user438383

5,716
8
28
43

answered Mar 13 '22 at 23:58

Jean Rodrigues

1

Recode variable based on length

3 Answers3

EDIT:

dplyr solution

Base R solution

`dplyr` solution