Open ajdastare opened 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.
Ali nameravaš danes predstaviti projekt? Če je tako, prosim uredi poročilo, da se bo prevedlo in ga boš lahko prikazala pri predstavitvi.
Pozdravleni! Se opravicujem ker nisem prej sporocila vendar mi ni uspelo naresti pravocasno. Bom pa dokoncala v tem izpitnem obdobju. Lp On Wed, 7 Jun 2017 at 12:09, Janoš Vidali notifications@github.com wrote:
Ali nameravaš danes predstaviti projekt? Če je tako, prosim uredi poročilo, da se bo prevedlo in ga boš lahko prikazala pri predstavitvi.
— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub https://github.com/idawitha/APPR-2017/issues/2#issuecomment-306751250, or mute the thread https://github.com/notifications/unsubscribe-auth/AWBEjB7RuL1hR5ubw9aoWddzeuJjEWvmks5sBna_gaJpZM4NsknP .
Današnja predstavitev ni mišljena kot zaključen projekt - je vmesna predstavitev, da malo pokažeš, kaj imaš in kaj še nameravaš narediti, pa da še malo pokomentiramo. Če ti uspe torej poročilo urediti v tolikšni meri, lahko torej danes predstaviš (bomo sicer še videli, kako bomo danes s časom - mogoče bomo naredili še kakšen termin).
Aha, skoda ker imam na racunalniku doma vse novo sharnjeno pa nisem se nalozila na git. Danes mi ne bo uspelo ce pa bo se en termin pa predstavim. On Wed, 7 Jun 2017 at 12:44, Janoš Vidali notifications@github.com wrote:
Današnja predstavitev ni mišljena kot zaključen projekt - je vmesna predstavitev, da malo pokažeš, kaj imaš in kaj še nameravaš narediti, pa da še malo pokomentiramo. Če ti uspe torej poročilo urediti v tolikšni meri, lahko torej danes predstaviš (bomo sicer še videli, kako bomo danes s časom
- mogoče bomo naredili še kakšen termin).
— You are receiving this because you authored the thread. Reply to this email directly, view it on GitHub https://github.com/idawitha/APPR-2017/issues/2#issuecomment-306758622, or mute the thread https://github.com/notifications/unsubscribe-auth/AWBEjBXdyzRsDWpck56wC7QcB-X644ylks5sBn76gaJpZM4NsknP .
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.