在MARICATE和IFELSE中使用已排序变量的名称 [英] Using names of sorted variables within mutate and ifelse

问题描述

我有以下示例数据：

id <- c(1, 2, 3)
ex3 <- c(0.8,   0.2, 0.3)
ex2 <- c(0.1,   0.4, 0.04)
ex1 <- c(0.04,  0.3, 0.5)
ex <- c(1, 1, 1)
ran <- c(0.5, 0.7, 0.6)
dat <- data.frame(id, ex1, ex2, ex3, ex, ran)

dat

  id  ex1  ex2 ex3 ex ran
1  1 0.04 0.10 0.8  1 0.5
2  2 0.30 0.40 0.2  1 0.7
3  3 0.50 0.04 0.3  1 0.6

我要使用以下dplyr/tidyr代码修改变量&q；ex&q；：

library(dplyr)
library(tidyr)

dat %>% 
  pivot_longer(
    cols = ex1:ex3
  ) %>% 
  arrange(id, desc(value)) %>% 
  group_by(id) %>% 
  mutate(ex = ifelse(ran <= value[1] & ran > sum(value[2], value[3]), 5, ex)) %>% 
  pivot_wider(
    names_from=name
  )

# A tibble: 3 x 6
# Groups:   id [3]
     id    ex   ran   ex3   ex2   ex1
  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
1     1     5   0.5   0.8  0.1   0.04
2     2     1   0.7   0.2  0.4   0.3 
3     3     1   0.6   0.3  0.04  0.5

是否可以使用"；ex1"；-"；ex3"；的名称作为"；ex"；的新值，而不是将"；5"；的名称用作Mutate中的ifElse-语句中的新值？示例：使用ex$-变量的名称作为新值将导致以下输出：

  id ex3  ex2  ex1  ex ran
1  1 0.8 0.10 0.04 ex3 0.5
2  2 0.2 0.40 0.30   1 0.7
3  3 0.3 0.04 0.50   1 0.6

或使用ex$-变量的数量会导致以下输出：

  id ex3  ex2  ex1  ex ran
1  1 0.8 0.10 0.04   3 0.5
2  2 0.2 0.40 0.30   1 0.7
3  3 0.3 0.04 0.50   1 0.6

或者我是否希望将最小值作为"；ex"；的新值(因为它是"；EX2"；)：

  id ex3  ex2  ex1  ex ran
1  1 0.8 0.10 0.04   1 0.5
2  2 0.2 0.40 0.30   1 0.7
3  3 0.3 0.04 0.50   1 0.6

总结：我要引用已排序的值的变量名，以便在Mariate中为If Else中的"；ex"；创建新值。

推荐答案

一种方法是使用parse_number从EX1、EX2、EX3提取数字的readr包。根据您可以执行的逻辑：

parse_number(name[1])此处1是列中的位置，您可以使用2或3来挖掘最符合您的逻辑的位置。

library(dplyr)
library(tidyr)
library(readr)

dat %>% 
  pivot_longer(
    cols = ex1:ex3
  ) %>% 
  arrange(id, desc(value)) %>% 
  group_by(id) %>% 
  mutate(ex = ifelse(ran <= value[1] & ran > sum(value[2], value[3]), parse_number(name[3]), ex)) %>% 
  pivot_wider(
    names_from=name
  )

   id    ex   ran   ex1   ex2   ex3
  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
1     1     3   0.5   0.8  0.1   0.04
2     2     1   0.7   0.2  0.4   0.3 
3     3     1   0.6   0.3  0.04  0.5 

全名：

mibrary(dplyr)
library(tidyr)
library(readr)

dat %>% 
  pivot_longer(
    cols = ex1:ex3
  ) %>% 
  arrange(id, desc(value)) %>% 
  group_by(id) %>% 
  mutate(ex = ifelse(ran <= value[1] & ran > sum(value[2], value[3]), name[1], as.character(ex))) %>% 
  pivot_wider(
    names_from=name
  )

     id ex      ran   ex1   ex2   ex3
  <dbl> <chr> <dbl> <dbl> <dbl> <dbl>
1     1 ex1     0.5   0.8  0.1   0.04
2     2 1       0.7   0.2  0.4   0.3 
3     3 1       0.6   0.3  0.04  0.5 

这篇关于在MARICATE和IFELSE中使用已排序变量的名称的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！