Konec projektne naloge

[juresternad]

Pozdravljeni,

končal sem projektno nalogo.

[katarinabrilej]

Graf1 in graf2 sta nekoliko ozka, ker je legenda precej široka, zato bi bilo bolje omejiti širino legende na manj kot 40 in raje narediti razmik med posameznimi točkami legende. Nekako tako:

graf2 <- ggplot(data=slovenijabeta, aes(x=Kvartal, y=Stevilo, color=str_wrap(Panoge,20)))+
  geom_point()+geom_line() + ylab('Sredstva za zaposlene v mio €') + facet_wrap(facets = vars(Leto)) + 
  scale_x_continuous(breaks =c(1,2,3),labels=c("1.", "2.", "3."))  + 
  theme(legend.key.height=unit(2, "cm"))+ labs(colour="Panoga")
  ggtitle("Panoge s sredstvi nad 5 milijard €")

Pri grafu Rast BDP naj v legendi ne bo podčrtajev. Enako pri grafu Gostota rasti BDP.

Pri Shiny aplikaciji se v drugem in tretjem zavihku ne odpre možnost izbire države.

Tudi pri zemljevidu naj v legendi ne bo podčrtajev.

[juresternad]

Hvala, sem popravil graf 1 in 2, ter podčrtaje v legendah. S problemom pri Shiny-u sem se že pred oddajo veliko ukvarjal, vendar mi ga ne uspe popraviti. Poskušal sem tudi, da bi bilo možno izbrati državo samo na prvem page-u, vendar mi tudi to ni uspelo narediti tako, da bi delovalo.

[jaanos]

Glede na to, da poročilo deluje, bom dodal povezavo do projekta na repozitorij za zagovore. Če se še nisi, se lahko z @alenFMF domeniš za termin zagovora. Če boš do takrat še kaj spreminjal, mi javi (najbolje kar tukaj), da posodobim povezavo.

Do težave z izbirniki v aplikaciji Shiny pride zato, ker si vse tri poimenoval enako. Treba bo torej vsakemu podati svoje ime, potem pa še popraviti posamezne grafe, da se sklicujejo na ustrezen izbirnik. Lahko pa enostavno imaš en skupen izbirnik izven zavihkov, npr.

shinyUI(
  fluidPage(
    sidebarLayout(
      sidebarPanel(
        selectizeInput(
          'drzave', 'Država',
          choices=list(
            Eastern=c('Latvija', 'Litva', 'Estonija'),
            Western=c('Velika Britanija', 'Portugalska', 'Francija', 'Irska', 'Španija'),
            Middle=c('Madžarska', 'Poljska', 'Češka', 'Italija', 'Slovenija', 'Belgija', 'Nemčija', 'Avstrija', 'Luksemburg', 'Švica'),
            Northern=c('Švedska', 'Finska', 'Nemčija', 'Danska', 'Norveška'),
            Southern=c('Bolgarija', 'Romunija', 'Hrvaška', 'Grčija', 'Ciper', 'Srbija')
          ),
          selected='Slovenija', multiple=TRUE
        ),
      ),
      mainPanel(
        navbarPage(
          "Kategorija",
          tabPanel(titlePanel(title=h5("BDP", align="center")),
                   mainPanel(plotOutput(outputId="grafdrzav"))),
          tabPanel(titlePanel(title=h5("Potrošnja gospodinjstev", align="center")),
          mainPanel(plotOutput(outputId="grafpotrosnja"))),
          tabPanel(titlePanel(title=h5("Državni izdatki", align="center")),
          mainPanel(plotOutput(outputId="grafdrzava")))
        )
      )
    )
  )
)

Naj opomnim, da sem seznam držav premaknil kar sem (glede na to, da se ne spreminja, ni nobene potrebe, da ga osvežuješ v server.R), poleg tega pa sem dodal še parameter multiple=TRUE, da bo izbirnik omogočal izbiro več držav. Da bo to delovalo, bo potrebno pri filtriranju namesto == uporabiti operator %in%.

Imam še sledeče pripombe:

• V grafu sestave BDP imaš postavko, poimenovano BDP, kar bralca zmede. Iz besedila gre razbrati, da gre tukaj za del BDP-ja, ki ni predstavljen z ostalima postavkama - če je tako, predlagam, da torej to postavko preimenuješ v ostalo.
• Rast BDP bi bilo bolje predstaviti kot stolpčni diagram (pri geom_bar uporabi parameter position="dodge", da dobiš dva stolpca za vsako državo).
• Pri napovedi uporabiš drugačen model (linearen) kot pri izrisovanju krivulje (polinom 9. stopnje) - ta naj tudi ne sloni na napovedanih podatkih. Poskrbi torej, da uporabiš obakrat enak model - lahko je linearen, če se pa odločiš za polinom višje stopnje, pa bo 9. stopnja zagotovo previsoka, saj je to več kot število podatkov (polinom 3. stopnje je morda še smiseln, a bo morda prehitro začel rasti glede na trenutni trend). Da se črta ne bo izrisala na podlagi napovedanih podatkov, teh ne dodajaj v data, pač pa pri geom_smooth dodaj parameter fullrange=TRUE, da se črta izriše čez celotno širino grafa.

[juresternad]

Najlepša hvala za vse pripombe in nasvete. Nalogo sem popravil in mislim, da bi zdaj moralo vse biti v redu.

[jaanos]

V redu, sem posodobil povezavo.