fmf

[tajadebeljak]

pozdravljeni, zanima me zakaj mi ne dela funkcija: graf_potovanj <- graf_potovanj + geom_smooth(method = "lm", formula =y ~ x) Izriše mi namreč graf s pikicami, ne nariše pa premice skozi nijh.

[jaanos]

Problem je ta, da imaš na osi x nize. Četrtletja bo torej treba pretvoriti v števila, da lahko delaš modele z njimi.

[tajadebeljak]

sedaj sem hotela za vsako četrtletje posebaj spremeniti v števila s funkcijo: potovanja2$Četrtletje <- gsub("Q1", ".00", potovanja2$Četrtletje) %>% as.numeric(), a mi pretvori le za 1 četrtletje, pri vseh ostalih pa v tabeli izpiše NA

[tajadebeljak]

javi pa tole napako: Warning message: In function_list[k] : NAs introduced by coercion

[jaanos]

Problem je v tem, da si zamenjavo naredila samo za eno četrtletje, ostalih pa ni uspelo pretvoriti v števila. Pretvorbo lahko narediš tako:

potovanja2$Četrtletje <- potovanja2$Četrtletje %>%
  strapplyc("([0-9]+)Q([0-9])") %>% lapply(as.numeric) %>%
  sapply(. %>% {.[[1]] + (.[[2]]-1)/4})

Najprej torej pobereš številke, jih pretvoriš v števila, potem pa združiš.

[tajadebeljak]

super, najlepša hvala