Poročilo in grafi

[jaanos]

Poročila ti ne prevede, ker imaš dva bloka kode z istim imenom uvoz. Poleg tega imaš pri drugem parameter echo = razpredelnice - tukaj R potem pričakuje spremenljivko z imenom razpredelnice, ki pa je nimaš. Če hočeš bloku kode dati ime razpredelnice, potem napiši {r razpredelnice} - po potrebi pa lahko echo nastaviš na TRUE ali FALSE.

Graf poskušaš risati z barplot in aes, kar pa ne bo šlo, saj funkcija barplot ne prihaja iz knjižnice ggplot2. Za risanje grafov bo najbolje nekoliko preoblikovati razpredelnico osnovne_dobrine:

meseci <- names(osnovne_dobrine)
dobrine <- factor(row.names(osnovne_dobrine))
dobrine.meseci <- factor(meseci, levels = meseci, ordered = TRUE) %>%
  lapply(. %>% {data.frame(Dobrina = dobrine, Mesec = ., Indeks = osnovne_dobrine[[.]])}) %>%
  bind_rows()

Tako bo razpredelnica dobrine.meseci imela tri stolpce - sedaj lahko narišemo npr. gibanje indeksov skozi mesece (ki so urejen faktor - po potrebi lahko spremeniš imena, da se bo lepše izpisovalo):

ggplot(data = dobrine.meseci, aes(x = Mesec, y = Indeks, group = Dobrina, color = Dobrina)) +
  geom_line() + theme(axis.text.x = element_text(angle = 90, vjust = 0.5))

theme tukaj poskrbi, da se oznake izpišejo navpično. Če bi želela imeti stolpčni diagram z več stolpci za vsak mesec, bi potem lahko geom_line() nadomestila z geom_bar(stat="identity", position="dodge").

[jaanos]

Še to sem pozabil: # v Markdownu ni komentar, pač pa na začetku vrstice pomeni naslov. Zato raje dele poročila, ki so ostali iz vzorca, pobriši.