K

Size: a a a
K
PU
K
PU
ИП
tibble(element = str_c("el", c(1, 1, 2, 2, 3)),
sublvl = str_c("obj", c(1, 2, 1, 1, 1)),
value = str_c("val", c(1, 1, 1, 2, 1))) %>%
mutate(across(everything(), parse_number, .names = "{.col}_num")) %>%
pivot_longer(cols = element:value, names_to = "type") %>%
mutate(id = case_when(type == "element" ~ as.character(element_num),
type == "sublvl" ~ str_c(element_num, sublvl_num, sep = "."),
type == "value" ~ str_c(element_num, sublvl_num, value_num, sep = "."))) %>%
select(id, value, type)
ИП
K
K
K
a
ggplot()
:( Падает сессия. Но при этом если рендерить rmd — то все рисуетсяДВ
a
ДВ
ГД
ES
ДВ
ДВ
ГД
ГД
ДВ