在 R 的管道中为 mutate 函数传递一个字符串变量-解网

问：

我无法在下面 R 的 mutate 函数中获取 x 变量以成为浮点变量。有人可以帮我解决此代码的问题吗？

library(dplyr)
List<-c("Go","Rust")

env <- environment()

for (i in c(1:length(List))) {

   x=List[i]

   "x" %>% assign(List[i], envir = env)
   print(x)
   subData<-subData %>% 
      mutate(x = case_when( str_detect(ColumnName, "x") ~ 1, TRUE ~ 0))
}

Rust 和 Go 是在一列字符串中找到的单词，然后使用该单词创建一个新的列名。这就是 mutate 函数正在做的事情。

这两行代码在我运行它们时可以工作，但是当我尝试遍历列表时，它们不起作用。

 subData <- subData %>% 
 mutate(Rust = case_when(str_detect(LanguageWantToWorkWith, "Rust") ~ 1, 
  TRUE ~ 0))

subData <- subData %>% 
mutate(Go = case_when(str_detect(LanguageWantToWorkWith, "Go") ~ 1, TRUE 
~ 0))

谢谢凯莉·菲茨帕特里克

我无法让 mutate 函数中的变量遍历单词列表。x

r 循环变量浮动

这两行代码在我运行时有效。但是当我尝试为 Go 和 Rust 这两个词制作一个循环时，它在 mutate 函数中不起作用。subData <- subData %>% mutate（Rust = case_when（str_detect（LanguageWantToWorkWith， “Rust”） ~ 1， TRUE ~ 0）） subData <- subData %>% mutate（Go = case_when（str_detect（LanguageWantToWorkWith， “Go”） ~ 1， TRUE ~ 0））我没有像小数那样使用浮点数这个词我使用浮点变量这个词作为变量，在这种情况下，它是一个在 List 的循环中变化的字符串。

0赞 KellyF 10/23/2023

这个线程有我一直在寻找的答案！stackoverflow.com/questions/56917704/......谢谢

答：

1赞 AndS. 10/23/2023 #1

在我看来，您只想从一串变量中对变量进行热编码。这是我要做的：

library(tidyverse)

subData <- tibble(ColumnName = c("R;Python;Rust", "Go;R"))

List<-c("Go","Rust")

add_binary_col <- function(data, checks){
  data |>
    mutate(lang = str_split(ColumnName, ";"),
           cols = map(lang, ~checks[checks %in% .x]),
           v = 1) |>
    unnest(cols, keep_empty = TRUE) |>
    pivot_wider(names_from = cols, values_from = v, values_fill = 0) |>
    select(-lang, -starts_with("NA"))
}

add_binary_col(subData, List)
#> # A tibble: 2 x 3
#>   ColumnName     Rust    Go
#>   <chr>         <dbl> <dbl>
#> 1 R;Python;Rust     1     0
#> 2 Go;R              0     1
add_binary_col(subData, c("R", "Python", "Rust"))
#> # A tibble: 2 x 4
#>   ColumnName        R Python  Rust
#>   <chr>         <dbl>  <dbl> <dbl>
#> 1 R;Python;Rust     1      1     1
#> 2 Go;R              1      0     0
add_binary_col(subData, c("Python", "Rust"))
#> # A tibble: 2 x 3
#>   ColumnName    Python  Rust
#>   <chr>          <dbl> <dbl>
#> 1 R;Python;Rust      1     1
#> 2 Go;R               0     0

在 R 的管道中为 mutate 函数传递一个字符串变量

Pass a string variable in a loop within in a pipe in R for the mutate function

评论

评论