PU
слушайте его меньше, в списки-то может и внес, но делать что-то ему будет лень %)
Size: a a a
2020 March 13
Ю
Друзья, это пятница так на всех действует?
ЕТ
Да, весна на дворе, распускаются пайпы.
Ю
Друзья, я начал вести канал по PeopleAnalytics (People analytics is a data-driven approach to managing people at work).Пока публикую свои старые заметки по hr аналитике или около того. Кому интересно, welcome: https://t.me/joinchat/AAAAAEcRj1VEpPowRLW1ig
AS
Ну раз мы тут все балагурим, то вот задачка, которая с высокой вероятностью может оказаться "детской".
Есть список услуг (srvc) следующего вида:
Есть список услуг (srvc) следующего вида:
AS
На основе этой таблицы с услугами и под-услугами, мне нужно произвести следующее преобразование в данных:
AS
Т.е. для каждого айдишника все subsrvc должны заменяться на пропуски и оставаться должны только "родительские" srvc.
AS
Вроде бы и просится какая-то помесь summarise() c group_by(), но что-то я туплю.
AS
Это вы так шутите штоль?
PU
но логика такая же
AS
но логика такая же
Это ты кому?
PU
датасет дай, хотя бы игрушечный, я не понимаю, чего ты хочешь
идея про is.na() вполне подходит, кажется, но надо тестировать
идея про is.na() вполне подходит, кажется, но надо тестировать
AS
asis <- data.frame(
id = c(1,1,1,2,2,2,2),
srvc = c("A","B","C","D","E","F","G")
)
tobe <- data.frame(
id = c(1,1,1,2,2,2,2),
srvc = c("A",NA,NA,"D",NA,NA,NA)
)
id = c(1,1,1,2,2,2,2),
srvc = c("A","B","C","D","E","F","G")
)
tobe <- data.frame(
id = c(1,1,1,2,2,2,2),
srvc = c("A",NA,NA,"D",NA,NA,NA)
)
AS
При этом есть таблица, где для каждого srvc (A, D) есть список subsrvc(B,C,E,F,G), которые к ним относятся.
AS
Соответственно мне нужно у каждого id оставить только "родительский" srvc, преобразовав все входящие в него subsrvc в пропуски, NA и т.д.
⌨
Соответственно мне нужно у каждого id оставить только "родительский" srvc, преобразовав все входящие в него subsrvc в пропуски, NA и т.д.
library(tibble)
library(tidyr)
library(dplyr)
library(vctrs)
library(purrr)
tbl_1 <- tibble(srvc = vec_c("A", "D"), subsrvc = list_of(vec_c("B", "C"), vec_c("E", "F", "G")))
tbl_1 %>% mutate(subsrvc = map(subsrvc, vec_c, NA_character_)) %>% unnest(subsrvc) %>% mutate(subsrvc2 = if_else(is.na(subsrvc), srvc, NA_character_), subsrvc = if_else(is.na(subsrvc), srvc, subsrvc)) -> tbl_1
tbl_2 <- tibble(id = vec_c(1, 1, 1, 2, 2, 2, 2), srvc = vec_c("A", "B", "C", "D", "E", "F", "G"))
tbl_2 %>% inner_join(tbl_1, by = c("srvc" = "subsrvc")) %>% transmute(id, srvc, subsrvc = subsrvc2) %>% print#> # A tibble: 7 x 3
#> id srvc subsrvc
#> <dbl> <chr> <chr>
#> 1 1 A A
#> 2 1 B <NA>
#> 3 1 C <NA>
#> 4 2 D D
#> 5 2 E <NA>
#> 6 2 F <NA>
#> 7 2 G <NA>AS
Спасибо. Видимо задачка действительно не совсем детская.
AS
Сходу мне тут не всё понятно, поэтому, возможно я ещё вернусь с вопросами.
PU
Спасибо. Видимо задачка действительно не совсем детская.
не?
> library(data.table)
> asis <- data.table(id = c(1, 1, 1, 2, 2, 2, 2),
+ srvc = c("A", "B", "C", "D", "E", "F", "G"))
> asis[, heads := c(srvc[1], rep(NA, .N - 1)), by = id]
> asis
id srvc heads
1: 1 A A
2: 1 B <NA>
3: 1 C <NA>
4: 2 D D
5: 2 E <NA>
6: 2 F <NA>
7: 2 G <NA>
AS
"Спасибо, но лучше вы к нам" (с).