Closed tajadebeljak closed 8 years ago
Problem je ta, da imaš na osi x nize. Četrtletja bo torej treba pretvoriti v števila, da lahko delaš modele z njimi.
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
javi pa tole napako: Warning message: In function_list[k] : NAs introduced by coercion
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š.
super, najlepša hvala
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.