如何在 R 中创建一列数字现有数据？

Question

我有一个 22 列和 240 行的数据框。

我想根据列值创建一个包含李克特量表数值的新列。

我想要一个名为 Result 的新列，其中 Result == 2 如果秘书行的其中一列 >= 1 否则 Result == 0

and Result == -2 if the columns of driver rows == 0 else Result == 0

第二个数据框是我想要的结果的一个例子我的代码不起作用：

   profession ve.count.descrition euse.count.description ne.count.title
   secretary   0                      1                      2
   secretary   0                      2                      1
   driver      1                      1                      0
   driver      0                      0                      0

data <- data %>%
 for (Result in Profession){
   if(secretary [ve.count.description:ne.count.title] >= 1){
        Result == 2
   }else{Result == 0
   }
   if(driver[ve.count.description:ne.count.title] == 0){
     Result == -2
   }else{result == 0
   }
 }
mutate(result,data)

output : 
Error in for (. in result) Profession : 
 4 arguments passed to 'for' which requires 3

profession ve.count.descrition euse.count.description ne.count.title Result
secretary   0                      1                      2            2
secretary   0                      2                      1            2
driver      1                      1                      0            0
driver      0                      0                      0           -2

Answer 1

您可以使用 case_when，像这样：

    data %>%
     mutate(Result = case_when(
      profession == "secretary" & (e.count.descrition >= 1 |
                                   euse.count.description >=1 | 
                                   ne.count.title >= 1) ~ 2,
      profession == "driver" & (e.count.descrition == 0 |
                                euse.count.description == 0 | 
                                ne.count.title == 0) ~ -2,
      TRUE ~ 0
  ))

Answer 2

另一个选项：

library(tidyverse)

tribble(
  ~profession, ~ve.count.descrition, ~euse.count.description, ~ne.count.title,
  "secretary", 0, 1, 2,
  "secretary", 0, 2, 1,
  "driver", 1, 1, 0,
  "driver", 0, 0, 0
) |>
  rowwise() |> 
  mutate(result = case_when(
    profession == "secretary" & any(c_across(2:4) >= 1) ~ 2,
    profession == "driver" & any(c_across(2:4) == 0) ~ -2,
    TRUE ~ 0
  ))
#> # A tibble: 4 × 5
#> # Rowwise: 
#>   profession ve.count.descrition euse.count.description ne.count.title result
#>   <chr>                    <dbl>                  <dbl>          <dbl>  <dbl>
#> 1 secretary                    0                      1              2      2
#> 2 secretary                    0                      2              1      2
#> 3 driver                       1                      1              0     -2
#> 4 driver                       0                      0              0     -2

^{由 reprex package (v2.0.1)}

创建于 2022-05-16

如何在 R 中创建一列数字现有数据？

How do I create a column of numeric existing data in R?

r

dataframe

likert