jaanos
commented
7 years ago Najprej, v uvoz.r imaš nerazrešen konflkt. Ker gre samo za zakomentirano kodo iz vzorca, lahko vse vrstice od vključno <<<<<<< HEAD naprej pobrišeš. Poleg tega se sklicuješ na neobstoječo datoteko bitcoins_in_circulation.csv - v mapi podatki imaš datoteko z odvečnim presledkom v imenu, tako da jo preimenuj, da bo uvoz deloval. Pri pretvorbi podatkov iz JSON poskrbi še za ustrezno predstavitev podatkov:
data <- json_file$dataset$data %>% sapply(c) %>% t() %>% apply(2, unlist) %>%
data.frame() %>% transmute(datum = parse_date(X1), stevilo = parse_number(X2))Vodoravne črte lahko na graf dodajaš z geom_hline, npr.
graf <- ggplot(data = tabela, aes(x = datum, y = vrednost_v_USD)) + geom_line() +
geom_hline(aes(yintercept = max(vrednost_v_USD)), color = "red") +
geom_hline(aes(yintercept = mean(vrednost_v_USD)), color = "blue") +
theme(axis.text.x = element_text(angle = 90, vjust = 0.5))Tako ti ni potrebno predhodno izračunati teh vrednosti - v razpredelnico samo tako ali tako ne sodijo, saj gre za sumarne podatke (trenutno imaš v vseh vrsticah isti podatek).
Tabela na spletni strani se nahaja v JavaScriptu kot spremenljivka chartData4 - ustrezno tabelo lahko razumeš kar kot JSON, ki ga je treba še malo obdelati, da dobiš končno obliko:
atms_json <- GET("https://coinatmradar.com/charts/") %>% content(as = "text") %>%
strapplyc("var chartData4 = ([^;]*);") %>% unlist() %>% fromJSON()
atms <- atms_json %>%
lapply(function(x) names(x) %>%
lapply(. %>% { data.frame(. = x[.], stringsAsFactors = FALSE) }) %>%
bind_cols()) %>% bind_rows()Da boš pripravljena na predstavitev naslednji teden, prosim dodaj v poročilo grafe in zemljevide, ki jih boš takrat prikazala. Vključi torej še program grafi.R (morda bo bolje, da ga premakneš v mapo vizualizacija), potem pa grafe izriši vsakega v svojem bloku kode na želenem mestu v poročilu. S številom grafov in zemljevidov seveda ni potrebno pretiravati - za vsakega pa napiši, kaj prikazuje in kaj si se iz njega naučila. Da ti bo sezname v poročilu lepo prikazalo, pred vsakim pusti prazno vrstico.
Ko boš imela pripravljeno različico projekta za predstavitev (prijavi se še na termin predstavitve na spletni učilnici), odpri issue na repozitoriju za zagovore, da dodam povezavo - tam si preberi natančnejša navodila.
ajdastare
Prosila bi za malo pomoči pri grafu in zemljevidu. Graf : v datoteki graf.R sem naredila en graf. Ne znam dodati v isti graf še podatke iz tabele o maksimalni in povprečni vrednosti na y os.
Glede zemljevida pa imam precej problemov z iskanjem tabele podatkov po država, saj glede na izbrano temo je zelo malo takšnih podatkovv. Našla sem edino na tej strani (https://coinatmradar.com/charts/#by-country) , tabela : Bitcoin ATMs by Country, ki je ne znam uvoziti.