MATH2270 Assignment 1

Turning Tables

Student Details

• Chaitali Chaudhari (s3687120)

Data Table

The data table is taken from Wikipedia for Winter Olympics and contains the aggregated data for all the years Winter Olympics was held. The Medal count is derived from each year link of the data table as the count for each year and country were not available in one summarised table.

A .csv file was created based on the data from the table and contains below columns;
Year
Country
Medals Won(Each Year)
Duration

The link for data table;
https://en.wikipedia.org/wiki/Winter_Olympic_Games

Code

Trend <- read_csv("/Users/hemantgawande/Chaitali/Data Visualisation/Winter Olympic Medals Trend.csv")

Trend$Country <- factor(Trend$Country, levels = c("Norway", "United States", "Germany", "Austria", "Canada", "Soviet Nation"))

# Color Palette with Color Blind Friendly Colors from http://jfly.iam.u-tokyo.ac.jp/color/
cbPalette <- c("#999999", "#E69F00", "#56B4E9", "#009E73", "#0072B2", "#D55E00", "#CC79A7", "#F0E442")

df<-data.frame(Country = c("Norway", "United States", "Germany", "Austria", "Canada", "Soviet Nation"), Medals = c(368,305,408,232,199,384))
ggplot(Trend, aes(x = Year, y = Medals, colour = Country)) + labs(title = "Top Most 6 Countries in Winter Olympics (1924-2018)", subtitle = "Total Medals Won by these countries (1924-2018) are 1857 from 3217", x = "Years", y = "Medals Won (each Olympic Year)", caption = "Source: Wikipedia\nNotes: East Germany and West Germany are combined in Germany\nRussia, Belarus and Latvia are combined in Soviet Union\nIn year 1940 and 1944, no Winter Olympics were played due to World War II") + geom_line(size = 1) + facet_wrap(~ Country, scales = "free") + theme_bw() + theme(legend.position = "none", panel.border = element_blank(), strip.background = element_blank(), plot.title = element_text(face = "bold", size = 14), axis.title = element_text(face = "bold")) + scale_colour_manual(values=cbPalette) + geom_text(x = 1970, y = 40, aes(label = paste0("", Medals)), data = df) + scale_y_continuous(limits = c(0, 45))

Visualisation

Caption

The data visualisation shows the trend of most successful top six countries in the Winter Olympics.

The Winter Olympics were not held in the year 1940 and 1944 due to World War II is where a medal count of zero can be seen for all the countries.

The Soviet Nation started to play in the year 1956 till 1988 and due to dissolution of the Soviet Union, in 1992 Unified team representing all the countries participated and later on from 1994 Russia, Latvia and Belarus have participated as separate teams (These are added to the Soviet Union medal count).

The Germany participated as two different nations East Germany and West Germany from 1968 to 1988 due to partitions of the country.