Оцените квантиль каждого значения по его вектору с помощью dplyr mutate_at - PullRequest
Новая
       35

Оцените квантиль каждого значения по его вектору с помощью dplyr mutate_at

0 голосов
/ 08 октября 2019

Я пытаюсь изменить мои числовые переменные в data.frame квантилем, связанным с его значением. На этот вопрос ответили дважды там и там . Тем не менее, у меня большой data.frame с несколькими переменными, и я хочу сделать их все с помощью вызова mutate_at.

Мне удалось сделать это с помощью простого вызова mutate: 

library(dplyr)    
dd <- data.frame(id = letters[1:10], v1 = runif(10), v2 = runif(10))
dd %>% 
  mutate(v1_quantile = ecdf(v1)(v1))

Что работает: 

   id         v1         v2 v1_quantile
1   a 0.08301544 0.77170687         0.1
2   b 0.40879466 0.85685036         0.6
3   c 0.51528499 0.75810797         0.8
4   d 0.39688235 0.85030203         0.5
5   e 0.22272271 0.40929666         0.2
6   f 0.29234964 0.05501699         0.4
7   g 0.58406590 0.57812295         0.9
8   h 0.49091149 0.74505186         0.7
9   i 0.92299912 0.88631354         1.0
10  j 0.27979485 0.03078879         0.3

Однако, если я пытаюсь сделать это в вызове mutate_at, я получаю сообщение об ошибке: 

dd %>% 
   mutate_at(vars(one_of("v1", "v2")), list(quantile = ~ecdf(.)(.)))
Error in `[.data.frame`(x, order(x, na.last = na.last, decreasing = decreasing)) : 
  undefined columns selected

Любое представление о том, что яя делаю не так и как это исправить?

Мой sessionInfo: 

R version 3.5.1 (2018-07-02)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows Server x64 (build 14393)

Matrix products: default

locale:
[1] LC_COLLATE=English_United States.1252
[2] LC_CTYPE=English_United States.1252
[3] LC_MONETARY=English_United States.1252
[4] LC_NUMERIC=C
[5] LC_TIME=English_United States.1252

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base

other attached packages:
[1] dplyr_0.8.0.1

loaded via a namespace (and not attached):
 [1] tidyselect_0.2.5      compiler_3.5.1        magrittr_1.5
 [4] assertthat_0.2.1      R6_2.4.0              pillar_1.4.2
 [7] glue_1.3.1            rstudioapi_0.8.0.9000 tibble_2.1.3
[10] crayon_1.3.4          Rcpp_1.0.2            pkgconfig_2.0.3
[13] rlang_0.4.0           purrr_0.3.0
...