frissítés: a 15 x 355 mL-es Bud Light frissített listája ide kattintva található.

Bevezetés

amikor az Italboltok privatizációja felmerül, Alberta mindig példaként szolgál arra, hogy milyen olcsó és könnyen beszerezhető. Bár nem tudok beszélni a rendelkezésre állásáról, úgy döntöttem, hogy gyorsan megvizsgálom egy általánosan elérhető sör árát Kanada minden tartományában. Ehhez egy 24 dobozos Budweiser csomagot választottak ki, az árakat pedig Kanada-szerte a kiskereskedők webhelyeiről szerezték be.

adatok

az adatokat a tartományi italellenőrzési webhelyről vagy a kiskereskedők weboldaláról gyűjtötték, ha nem állnak rendelkezésre.

b.avg.df <- ddply(b.df, .(Province), summarise, avg.Price=mean(Cost.cad))ggplot(b.avg.df, aes(x=Province, y=avg.Price)) + geom_bar(stat="identity") + ggtitle("Cost of 24 cans Budweiser\n$CAD") + ylab("Price ($CAD)") + xlab("Province or Territory") + theme(axis.text.x = element_text(angle = 90, hjust=1), plot.title=element_text(hjust=0.5))

eredeti adatok:

kable(b.df, align='c')

Edit (2018-12-26) frissített linkek kattinthatók, hogy csökkentsék a helyet a táblázatban, ahelyett, hogy a teljes url