根據長度重新編碼變量

Question

我有一個大的dataframe ，其結構如下：

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 

我想從v2一直移動到v5 ，如果變量值的長度大於 1 個字符，那么它會被重新編碼為 9，因此生成的df將是：

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 

• 注意：所有變量都存儲為字符串，這就是為什么我希望將長度納入答案的一部分。

Answer 1

如果這是一個大的dataframe ，使用data.table庫，你可以這樣做：

代表

• 代碼

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

^{由reprex package (v2.0.1) 創建於 2022-03-14}

---

編輯：

dplyr解決方案

• 代碼

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

基地R解決方案

• 代碼

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

^{由reprex package (v2.0.1) 創建於 2022-03-14}

Answer 2

一個dplyr解決方案：

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

^{由reprex package (v2.0.1) 創建於 2022-03-13}

數據

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))

Answer 3

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, "")
    }
}