Plot Gallery
Stat 341 -- Spring 2019
Create a new slide and add 2 things to it:
If it fits, add the code as well.
R Pruim -- I couldn’t resist, stay warm everyone
gf_linerange(temp_lo + temp_hi ~ date, data = GR, color = ~ temp_mid, size = 2) %>%
gf_hline(yintercept = c(0, 32), color = c("red", "orange")) %>%
gf_refine(scale_color_viridis_c()) %>%
gf_labs(title = "Grand Rapids high and low temperatures (Nov 2018 - Jan 2019)",
y = "temperature (F)", caption = "source: NOAA", color = "degrees F")
Elizabeth Koning
gf_point(weight ~ Time | Chick, color = ~ Diet, data = ChickWeight)
Jesse Kuntz
gf_bar( ~ State, data = museums, color = ~ State, show.legend = FALSE)%>%�gf_labs(title = "Museum Totals by State", caption = "Source: Kaggle")%>%�gf_theme(theme_fivethirtyeight())
Catherine DeJager
gf_linerange(Late + Early ~ YR1, data = ftcollinssnow, color = ~ Late, size = 2) %>%
gf_refine(scale_color_viridis_c()) %>%
gf_labs(title = "Ft. Collins snowfall Sep-Dec and Jan-Jun (1900-01 to 1992-93)",
y = "snowfall (in)", caption = "source: http://www.ulysses.atmos.colostate.edu", color = "Jan-Jun snowfall (in)")
Mark Wissink
gf_count(domhand ~ biggerfoot, color = ~ sex, data = KidsFeet) + geom_jitter(width = 0.1, height = 0.2)
Joyce Chew
gf_line(Total ~ SeasonStart, data = SnowGR, color = ~Total, show.legend = FALSE) %>% gf_theme(theme = theme_stata()) %>% gf_labs(title = "Grand Rapids total snowfall (July-June), 1893-2011", y = "Total snowfall (inches)", x = "Year", caption = "source: NOAA")
Hannah VanZanten
gf_point(width ~ length, color =~ sex, shape = 15, data = KidsFeet) %>%
gf_spline(width ~ length, color =~ sex, data = KidsFeet) %>%
gf_labs(title = "Kids Feet: length vs. width, sorted by gender")
Morgan Buis
Music <- read_csv("music.csv")
gf_bar(~Genre, data = Music, color = ~Genre, shape = 50, show.legend = FALSE) %>%
gf_labs(title = "Genre Popularity from 2017 Top 100 Songs")
Source: Kaggle
Myungha Kim
gf_bar(~ agegp, color = ~alcgp, fill = ~alcgp, data =esoph)%>%
gf_labs(title = "Alcohol, Smoking and Esophageal Cancer", x = "Age Group", y = "Number of Cases")
gf_bar (~agegp, color = ~tobgp, fill = ~tobgp, data = esoph)%>%
gf_labs(x = "Age Group", y = "Number of Cases")
Ian Adams
gf_tile(daysanysub ~ sex, data = HELPrct, fill = ~ sex)
Sarah Samuel
gf_boxplot(Topspeed ~ GPA | Gender, data = studentdrivers) %>%
gf_lims(y=c(50,100)) %>%
gf_jitter(color = ~GPA, width = 0.25, alpha = 0.3)
Sarah Hendriksen
gf_point(Dive.Depth..m. ~ Dive.Duration..sec., data = whales_data, color = ~Descent.Rate..m.sec.)%>%
gf_labs(title = "Whales: Dive Depth vs. Dive Duration", y = "Dive Depth (m)", x = "Dive Duration (sec)", color = "Decent Rate (m/sec)")
Matthew Bone
gf_line(Cases ~ Year, data = data1, colour = ~Disease) %>%
gf_labs(title = "Number of Cases of Hepatitis in California",
subtitle = "2001-2013 Data",
caption = "Source: HealthData.gov") %>%
gf_refine(scale_x_continuous(breaks = round(seq(min(data1$Year), max(data1$Year), by = 1),1)))
Mitchell Brill
gf_bar(~Education, data = NHANES, color = ~Education)%>%
gf_labs(title = 'Level of Education')
Roy Adams
gf_point(fouls ~ appearances, data=player_data) %>%� gf_point(yellow_card ~ appearances, data=player_data, color = "yellow") %>%� gf_point(red_card ~ appearances, data=player_data, color = "red") %>%� gf_labs(title = "EPL Infringements", x = "Appearances", y = "Incidents")
Emily Gunderson
gf_point(Sepal.Length ~ Sepal.Width | Species, color = ~ Petal.Length, data = iris) %>%�gf_labs(title = "Sepal Length versus Sepal Width in Three Different Species", �x = "Sepal Width", y = "Sepal Length", color = "Petal Length")
Hyeong Gyu Jang
gf_smooth(uptake ~ conc | Type, color = ~Type, se = TRUE, data = CO2) %>%
gf_labs(title = "Rate of CO2 Uptake of Two Types of Plant Under Varied Atmospheric CO2 Concentration",
y = "CO2 Uptake Rate (umol/m^2sec)",
x = "Atmostpheric CO2 Concentration (mL/L)")
Jonathan Suzio
HRcount <- subset(Batting, HR > 1)
gf_histogram(~ HR, data = HRcount)
Yukun Tu(Gordon)
p1 <- gf_point(Topspeed ~ Sleep, data=students)
p2 <- gf_boxplot(Topspeed ~ Heartrate, data=students)
p3 <- gf_point(Topspeed ~ Height, data=students)
p4 <- gf_point(Topspeed ~ GPA, data=students)
Rmisc::multiplot(p1, p2, p3, p4, cols=2)
Matthew Nykamp
gf_point(price ~ carat , data = diamonds, color =~ color, size =~ cut, alpha = .2, shape = 18)
Ivanna Rodríguez
gf_boxplot(rate~group, data=PetStress, xlab = "Group", ylab = "Avg Heart Rate", title = "Pets and Stress", subtitle = "Does having a friend or a pet cause more stress?")
Jinsung (Simon) Dho
gf_bar( ~ substance | sex, color = ~homeless, fill = ~homeless, data = HELPrct) %>%
gf_labs(title = 'Number of People Addicted to Alcohol, Cocaine, or Heroine',
x = "Type of Substance", y= "Number of People")
Brad Benson
gf_point(AVG~AGE, data = RunningBacksByAge, color = "dark red") %>% gf_labs(title = "Elite Fantasy Football Running Back Averages by Age", caption = "By Brad Benson")
Janelle Bellamy
gf_line(Jan ~ SeasonEnd, data = SnowGR) %>%
gf_labs(title = "Grand Rapids, MI Snowfall in January by Year", subtitle = "1890 - 2010 Data - Recorded in Inches", caption = "Source Noaa.gov")
Taek Soo Nam
gf_boxplot(length ~ birthyear, data = KidsFeet) %>%
gf_facet_wrap( ~ sex) %>%
gf_labs(title = "Length by Birthyear", x = "Birth Year", y = "Length")
Taylor Smith
> gf_dhistogram(~carat | color, data = diamonds, fill = ~cut)
Grace Johnecheck
gf_jitter(len ~ dose, data = ToothGrowth, width = 0.15)
Length of guinea pig teeth vs. dosage of vitamin c received
Luke Chen
gf_col(Jul~SeasonStart, data = SnowGR, position = "stack") %>%
gf_col(Aug~SeasonStart, data = SnowGR, position = "stack") %>%
gf_col(Sep~SeasonStart, data = SnowGR, position = "stack", fill = "sky blue") %>%
gf_col(Oct~SeasonStart, data = SnowGR, position = "stack", fill = "white") %>%
gf_col(Nov~SeasonStart, data = SnowGR, position = "stack", fill = "purple") %>%
gf_col(Dec~SeasonStart, data = SnowGR, position = "stack", fill = "green") %>%
gf_col(Jan~SeasonStart, data = SnowGR, position = "stack", fill = "red") %>%
gf_col(Feb~SeasonStart, data = SnowGR, position = "stack", fill = "blue") %>%
gf_col(Mar~SeasonStart, data = SnowGR, position = "stack", fill = "yellow") %>%
gf_col(Apr~SeasonStart, data = SnowGR, position = "stack", fill = "black") %>%
gf_col(May~SeasonStart, data = SnowGR, position = "stack", fill = "maroon") %>%
gf_col(Jun~SeasonStart, data = SnowGR, position = "stack") %>%
gf_line(Total~SeasonStart, data = SnowGR) %>%
gf_labs(title = "Snowfall Data for Grand Rapids",
x = "Year",
y = "Snowfall (inchs)")
Diego Galvan
treeHeight <- gf_point(Volume ~ Height, data = trees) %>% gf_spline(Volume ~ Height, data = trees)
treeGirth <- gf_point(Volume ~ Girth, data = trees) %>% gf_spline(Volume ~ Girth, data = trees)
multiplot(treeHeight, treeGirth, cols = 2)