Graph options
Seongho An
9/12/2017
load(file="beer.RData")
library(ggplot2)To see how the variable ‘Be’ looks like
table(beer$Brewery)##
## A.B. Pripps Bryggerier (Sweden)
## 1
## Adolph Coors
## 5
## Amstel Brouwerij B.V. (Holland)
## 1
## Anchor
## 1
## Anheuser Busch
## 13
## Asahi (Japan)
## 1
## Bard's Tale Beer Co
## 1
## Bass (England)
## 1
## Beamish - Crawford (Ireland)
## 1
## Beer Pilsener Urquell Pilzen (Czech.)
## 1
## Big Sky Brewing
## 4
## Blatz
## 1
## Boston Beer
## 5
## Brauerei Beck (Germany)
## 3
## Breckenridge Brewery
## 2
## Budweiser
## 10
## Carlton & United (Australia)
## 1
## Cauhtemoc (Mexico)
## 1
## Cereveria Modela SA (Mexico)
## 1
## Cerveceria Cauhtemoc (Mexico)
## 1
## Cerveceria Moctezuma (Mexico)
## 1
## Cerveceria Montezuma (Mexico)
## 2
## Cervecerla Cauhtemoc (Mexico)
## 1
## Cooper & Sons (Australia)
## 3
## D.G. Yuengilng
## 2
## D.G. Yuengling
## 3
## Deschutes Brewery
## 2
## Desnoes - Goeddes (Jamaica)
## 1
## Desnoes & Geddes (Jamaica)
## 1
## Flying Dog Brewery
## 17
## Fustlich Ferstenbergische
## 1
## G. Heileman
## 2
## Garlton & United (Australia)
## 1
## Green Bamboo (China)
## 1
## Greenall Whitley (England)
## 1
## Greenall Whitley PLC (England)
## 1
## Grolsch Bierbrouweri (Holland)
## 1
## Guinness (Ireland)
## 1
## Harp (Ireland)
## 1
## Heineken (Holland)
## 3
## High Falls Brewing
## 5
## Kirin (Japan)
## 1
## Kronenbourg (France)
## 2
## Labatt's
## 1
## Latrobe
## 2
## Leinenkugel
## 8
## MillerCoors
## 40
## Molson (Canada)
## 3
## Moosehead (Canada)
## 1
## New Belgium
## 8
## O'Keefe (Canada)
## 1
## Old Milwaukee
## 2
## Pabst
## 4
## Red Hook
## 2
## Samuel Smith's Brewery
## 1
## Scottish & Newcastle (Scotland)
## 1
## Sierra Nevada
## 13
## Spaten-Brau (Germany)
## 1
## St. Pauli (Germany)
## 2
## Stag (England)
## 1
## Straub Brewery
## 3
## Stroh's
## 2
## Summit Brewing
## 2
## Suntory (Japan)
## 1
## Tollei-ache & Cobbold (England)
## 1
## Tsingtao (China)
## 1
## Wurtzburger Hofbrau Ag (Germany)
## 1
## Wurtzburger Hofbrauag (Germany)
## 1head(beer$Brewery, 10)## [1] Straub Brewery Straub Brewery Straub Brewery
## [4] Anchor Anheuser Busch Anheuser Busch
## [7] Adolph Coors Bard's Tale Beer Co Big Sky Brewing
## [10] Big Sky Brewing
## 68 Levels: A.B. Pripps Bryggerier (Sweden) ... Wurtzburger Hofbrauag (Germany)Bar graph
ggplot(beer) +
geom_bar(mapping=aes(x=Brewery, y = ..count.., group =1)) # ..count..
#To make the y axis proportion
ggplot(beer) +
geom_bar(mapping=aes(x=Brewery, y = ..prop.., group =1)) #..prop..
For vertical labels
ggplot(beer) +
geom_bar(mapping=aes(x=Brewery, y = ..prop.., group =1)) +
theme_bw(base_size = 10) + #To control the room for the labels at the bottom
theme(axis.text.x=element_text(angle=45,hjust=1)) #To control the angle of the text
ggplot(beer) +
geom_bar(mapping=aes(x=Brewery, y = ..prop.., group =1)) +
theme_bw(base_size = 10) +
theme(axis.text.x=element_text(angle=90,hjust=1)) 
Or to switch the x and y axes. Try ‘zoom-in’ when your graph looks ugly.
ggplot(beer) +
geom_bar(mapping=aes(x=Brewery, y = ..count.., group =1)) +
coord_flip()
You can also pick selected categories to display
Source_order <- c("MillerCoors", "Flying Dog Brewery", "Sierra Nevada", "Anheuser Busch", "Budweiser", "Leinenkugel")
ggplot(beer) +
geom_bar(mapping=aes(x=Brewery, y = ..count.., group =1)) + scale_x_discrete(limits=Source_order) ## Warning: Removed 111 rows containing non-finite values (stat_count).
Or you can recode the variable into fewer categories to facilitate display.
beer$country <- NA # creat a new variable
#Then recode the old categories into the new categories
beer$country[beer$Brewery=="A.B. Pripps Bryggerier (Sweden)"] <- "Sweden"
beer$country[beer$Brewery=="Adolph Coors"] <- "US"
beer$country[beer$Brewery=="Amstel Brouwerij B.V. (Holland)"] <- "Holland"
beer$country[beer$Brewery=="Anchor"] <- "US"
beer$country[beer$Brewery=="Anheuser Busch"] <- "US"
beer$country[beer$Brewery=="Asahi (Japan)"] <- "Japan"
beer$country[beer$Brewery=="Bard's Tale Beer Co"] <- "US"
beer$country[beer$Brewery=="Bass (England)"] <- "England"
beer$country[beer$Brewery=="Beamish - Crawford (Ireland)"] <- "Ireland"
beer$country[beer$Brewery=="Beer Pilsener Urquell Pilzen (Czech.)"] <- "Czech"
beer$country[beer$Brewery=="Big Sky Brewing"] <- "US"
beer$country[beer$Brewery=="Blatz"] <- "US"
beer$country[beer$Brewery=="Boston Beer"] <- "US"
beer$country[beer$Brewery=="Brauerei Beck (Germany)"] <- "Germany"
beer$country[beer$Brewery=="Breckenridge Brewery"] <- "US"
beer$country[beer$Brewery=="Budweiser"] <- "US"
beer$country[beer$Brewery=="Carlton & United (Australia)"] <- "Australia"
beer$country[beer$Brewery=="Cereveria Modela SA (Mexico)"] <- "Mexico"
beer$country[beer$Brewery=="Cauhtemoc (Mexico)"] <- "Mexico"
beer$country[beer$Brewery=="Cerveceria Cauhtemoc (Mexico)"] <- "Mexico"
beer$country[beer$Brewery=="Cerveceria Moctezuma (Mexico)"] <- "Mexico"
beer$country[beer$Brewery=="Cerveceria Montezuma (Mexico)"] <- "Mexico"
beer$country[beer$Brewery=="Cervecerla Cauhtemoc (Mexico)"] <- "Mexico"
beer$country[beer$Brewery=="Cooper & Sons (Australia)"] <- "Australia"
beer$country[beer$Brewery=="D.G. Yuengilng"] <- "US"
beer$country[beer$Brewery=="D.G. Yuengling"] <- "US"
beer$country[beer$Brewery=="Deschutes Brewery"] <- "US"
beer$country[beer$Brewery=="Desnoes - Goeddes (Jamaica)"] <- "Jamaica"
beer$country[beer$Brewery=="Desnoes & Geddes (Jamaica)"] <- "Jamaica"
beer$country[beer$Brewery=="Flying Dog Brewery"] <- "US"
beer$country[beer$Brewery=="Fustlich Ferstenbergische"] <- "US"
beer$country[beer$Brewery=="G. Heileman"] <- "US"
beer$country[beer$Brewery=="Green Bamboo (China)"] <- "China"
beer$country[beer$Brewery=="Garlton & United (Australia)"] <- "Australia"
beer$country[beer$Brewery=="Greenall Whitley (England)"] <- "England"
beer$country[beer$Brewery=="Greenall Whitley PLC (England)"] <- "England"
beer$country[beer$Brewery=="Guinness (Ireland)"] <- "Ireland"
beer$country[beer$Brewery=="Grolsch Bierbrouweri (Holland)"] <- "Holland"
beer$country[beer$Brewery=="Harp (Ireland)"] <- "Ireland"
beer$country[beer$Brewery=="Heineken (Holland)"] <- "Holland"
beer$country[beer$Brewery=="High Falls Brewing"] <- "US"
beer$country[beer$Brewery=="Kirin (Japan)"] <- "Japan"
beer$country[beer$Brewery=="Kronenbourg (France)"] <- "France"
beer$country[beer$Brewery=="Labatt's"] <- "US"
beer$country[beer$Brewery=="Labatt's"] <- "US"
beer$country[beer$Brewery=="Latrobe"] <- "US"
beer$country[beer$Brewery=="Leinenkugel"] <- "US"
beer$country[beer$Brewery=="MillerCoors"] <- "US"
beer$country[beer$Brewery=="Molson (Canada)"] <- "Canada"
beer$country[beer$Brewery=="Moosehead (Canada)"] <- "Canada"
beer$country[beer$Brewery=="New Belgium"] <- "US"
beer$country[beer$Brewery=="O'Keefe (Canada)"] <- "Canada"
beer$country[beer$Brewery=="Old Milwaukee"] <- "US"
beer$country[beer$Brewery=="Pabst"] <- "US"
beer$country[beer$Brewery=="Red Hook"] <- "US"
beer$country[beer$Brewery=="Samuel Smith's Brewery"] <- "US"
beer$country[beer$Brewery=="Scottish & Newcastle (Scotland)"] <- "Scotland"
beer$country[beer$Brewery=="Sierra Nevada"] <- "US"
beer$country[beer$Brewery=="Spaten-Brau (Germany)"] <- "Germany"
beer$country[beer$Brewery=="St. Pauli (Germany)"] <- "Germany"
beer$country[beer$Brewery=="Stag (England)"] <- "England"
beer$country[beer$Brewery=="Straub Brewery"] <- "US"
beer$country[beer$Brewery=="Stag (England)"] <- "England"
beer$country[beer$Brewery=="Stroh's"] <- "US"
beer$country[beer$Brewery=="Summit Brewing"] <- "US"
beer$country[beer$Brewery=="Suntory (Japan)"] <- "Japan"
beer$country[beer$Brewery=="Tollei-ache & Cobbold (England)"] <- "England"
beer$country[beer$Brewery=="Tsingtao (China)"] <- "China"
beer$country[beer$Brewery=="Wurtzburger Hofbrau Ag (Germany)"] <- "Germany"
beer$country[beer$Brewery=="Wurtzburger Hofbrauag (Germany)"] <- "Germany"
#check if the new categories are well made
table(beer$country)##
## Australia Canada China Czech England France Germany
## 5 5 2 1 5 2 8
## Holland Ireland Jamaica Japan Mexico Scotland Sweden
## 5 3 2 3 7 1 1
## US
## 162make a bargraph on country
ggplot(beer) +
geom_bar(mapping=aes(x=country, y = ..count.., group =1), fill = "#FF6666") + # "#FF6666" is color code for the bar. You can find other code from Hexadecimal RGB triplet chart
theme_bw(base_size = 10) +
theme(axis.text.x=element_text(angle=60,hjust=1)) +
labs(title ="Beer Brewery by countries", subtitle= "Money can't buy happiness but it can buy beer") + #add title and subtitle
labs(x="Country", y="Frequency") + #add axis titles
labs(caption ="(based on data from MSSP630)") #add caption at the bottom
Boxplot by using ggplot function
boxplot(subset(beer, Type=="Domestic")$Calories, main="Domestic", ylab="Calories", range=1.5)
boxplot(subset(beer, Type=="Imported")$Calories, main="Imported", ylab="Calories", range=1.5)
# you can use the following code to compare domestic and imported beers
ggplot(beer, aes(x = Type, y = Calories)) + geom_boxplot()
ggplot(beer, aes(x = Type, y = Calories, fill=Type)) + geom_boxplot() +
coord_flip()
Pie Chart
ggplot(beer) +
geom_bar(mapping = aes(x="", fill=country), position ="fill", width=1) +
coord_polar("y", start=0)
Adding title and changing size & font
ggplot(beer) +
geom_bar(mapping = aes(x="", fill=country), position ="fill", width=1) +
coord_polar("y", start=0) +
labs(title = "Beer Brewery by Countries") +
theme(plot.title = element_text(hjust = 0.5, face="bold", size = 20), legend.title = element_text(hjust =0.5, face="bold", size =10)) 