search

1312Bravo / APPR-2018-19

Repozitorij z gradivi za predmet Analiza podatkov s programom R v študijskem letu 2018/19
MIT License
0 stars 0 forks source link

plotting #5

Open 1312Bravo opened 5 years ago

1312Bravo commented 5 years ago

Pri vizualizaciji, bi pri grafu 'Zemljevid igralcev glede na populacijo' rad pobarval vse, ki imajo 0 v sivo oz. enako barvo, tiste =! 0 bodo tako povsem druge barve. Iskal sem rešitev vendar je nisem našel. Hvala, Urh

MarvinHerzog commented 5 years ago

Če si imel v mislih ta zemljevid, potem lahko to narediš kar tako, da iz ujemanje odstraniš vse vnose, ki imajo število igralcev enako 0. Left join bo na teh mestih pri številu dodal NA, te bo pa ggplot pobarval sivo.

# Izrišem zemljevid Evrope, v katerem bo vsaka država pobarvana glede št. igralcev v ligi NBA
ggplot() + geom_polygon(data=left_join(Evropa, ujemanje %>% filter(Players>0), by=c("NAME"="Country")),
                        aes(x=long, y=lat, group=group, fill=Players)) +
  ggtitle("Števila NBA igralcev v posamezni evropski državi") + xlab("") + ylab("") +
  guides(fill=guide_colorbar(title="Število igralcev")) + 
  geom_point(aes(x=2, y=46)) + geom_text(aes(x=2, y=46), label = "Fra - 10") +
  geom_point(aes(x=2, y=46)) + geom_text(aes(x=14.4, y=46), label = "Slo- 1") +
  scale_fill_gradient2(low = "#008000", mid = "yellow", high = "red", midpoint = 4.5)