Oddaja

[valentina2pucer]

Menim, da lahko zaključim s projektom. Imam samo še težavo, ker mi noče prevesti poročila, pa nevem zakaj.

[jaanos]

V analiza.r se pri definiciji razpredelnice tabela_4 sklicuješ na tabela_3 namesto tabela_4. Sicer pa, kot rečeno, bolje bi bilo, če bi to združevanje po državah naredila samo enkrat brez izbiranja stolpcev (torej brez končnega select), nato pa po potrebi izbereš samo želene stolpce iz te skupne razpredelnice.

[valentina2pucer]

ali ste tako mislili?... ker sedaj imam pri grafu zadnjem en error mi manjkajo pikice.

[jaanos]

Mislil sem tako, da npr. pri tabela_1 izpustiš zadnji select, oziroma poskrbiš le za to, da bodo v stolpcu Lokacija zvezne države:

tabela_1 <- lapply(tabelaBDP$State, function(x) {
  r <- grep(x, nesrece$Lokacija)
  return(data.frame(State = rep(x, length(r)), Row = r))
}) %>% bind_rows() %>% as.data.frame() %>%
  inner_join(nesrece, by = "Row") %>%
  inner_join(tabelaBDP, by = "State") %>%
  select(-Lokacija) %>% rename(Lokacija = State)

Sedaj ima tabela_1 vse stolpce, kar ne vpliva na izrisane grafe. Potem lahko razpredelnici tabela_3 in tabela_4 dobiš enostavno s filtriranjem:

tabela_3<-tabela_1 %>% filter(Tip.naravne.nesreče=="Flood")
tabela_4<-tabela_1 %>% filter(Tip.naravne.nesreče=="Tornado")

Tako dobljeni razpredelnici lahko potem uporabiš v grafih (trenutno pri zadnjem grafu uporabiš tabela_3, želiš pa seveda uporabiti tabela_4). Pazi na to, da so podatki sedaj nekoliko drugačni (prej združevanje ni bilo pravilno izvedeno, saj si številke vrstic v stolpcu Row, ki ustrezajo razpredelnici nesrece, primerjala s številkami vrstic iz tabela_3 in tabela_4, kot jih je vrnila funkcija grep) - potrebno bo popraviti razmerje med prikazanima podatkoma, da bosta grafa čitljiva.

[valentina2pucer]

sem popravila

[jaanos]

V redu, bom dodal povezavo na repozitorij za zagovore. Če boš še kaj spreminjala, mi javi, da jo posodobim.

S profesorjem se lahko domeniš za termin zagovora.