## ---- include = FALSE--------------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, warning = FALSE, message = FALSE, eval = FALSE, comment = "#>" ) ## ----setup, eval=FALSE-------------------------------------------------------- # library(tvthemes) # library(ggplot2) # library(gapminder) # library(scales) # library(glue) # library(png) # library(dplyr) # library(cowplot) # library(extrafont) # loadfonts(quiet = TRUE) ## ----b99header, eval=FALSE---------------------------------------------------- # ggplot(mpg, aes(displ)) + # geom_histogram(aes(fill = class), # col = "black", size = 0.1, # binwidth = 0.1) + # scale_fill_brooklyn99(palette = "Dark") + # labs(title = "Do you know what it means to 'clap back', Raymond?", # subtitle = glue::glue("BE- {emo::ji('clap')} -CAUSE {emo::ji('clap')} I {emo::ji('clap')} DO {emo::ji('clap')} !"), # x = "Titles of Your Sex Tape", # caption = "Pizza bagels? Pizza rolls? Pizza poppers? Pizzaritos? Pizza pockets?") + # theme_brooklyn99(title.font = "Titillium Web", # text.font = "Calibri Light", # subtitle.size = 14) ## ----b99-light, eval=FALSE---------------------------------------------------- # ggplot(mpg, aes(displ)) + # geom_histogram(aes(fill = class), col = "black", size = 0.1) + # scale_fill_brooklyn99() + # labs(title = "Captain Wuntch. Good to see you.", # subtitle = "But if you're here, who's guarding Hades?", # caption = "Terry LOVES ggplot2!") + # theme_brooklyn99(text.font = "Calibri Light", # title.font = "Roboto Condensed", # legend.font = "Calibri Light") ## ----bobspog, eval=FALSE------------------------------------------------------ # bobspog_plot <- ggplot(mpg, aes(displ)) + # geom_histogram(aes(fill = class), col = "black", size = 0.1) + # scale_fill_spongeBob() + # labs(title = "F is for Fire that burns down the whole town!", # subtitle = "U is for Uranium... bombs! N is for No survivors when you're-", # caption = "Plankton, those things aren't what fun is about!") + # theme_spongeBob(title.font = "Some Time Later", # text.font = "Some Time Later", # title.size = 22, # subtitle.size = 16, # axis.title.size = 16, # axis.text.size = 14, # legend.title.size = 14) # # bobspog_plot ## ----bobspog-bkg, eval=FALSE-------------------------------------------------- # ## use a themed background! Inspired by ggpomological::paint_pomological()! # paintBikiniBottom(plot = bobspog_plot, # background = "background") ## ----StarkTullyTargaryen, fig.width=15, fig.height = 10, message=FALSE, eval=FALSE---- # ggplot(mpg, aes(displ)) + # geom_histogram(aes(fill = class), col = "black", size = 0.1) + # labs(title = "The winters are hard, but the Starks will endure.", # subtitle = "We always have...", # caption = "Winter Is Coming...") + # scale_y_continuous(expand = c(0,0)) + # scale_x_continuous(expand = c(0,0)) + # scale_fill_westeros(palette = "Stark") + # theme_minimal() + # theme(text = element_text(family = "Cinzel", size = 14)) -> stark # # ggplot(diamonds, aes(price, fill = cut)) + # geom_histogram(binwidth = 500) + # scale_fill_westeros(palette = "Tully", n = 5) + # labs(title = "I've seen wet shits I like better than Walder Frey.", # subtitle = "Pardon my lord, my lady. I need to find a tree to piss on.", # caption = "- The Blackfish") + # theme_minimal() + # theme(text = element_text(family = "Cinzel", size = 10), # title = element_text(family = "Cinzel", size = 14)) -> tully # # ggplot(gapminder::gapminder, # aes(x = log10(gdpPercap), y = lifeExp)) + # geom_point(aes(color = continent)) + # scale_x_log10() + # scale_color_westeros(palette = "Targaryen") + # labs(title = "I am the blood of the dragon. I must be strong.", # subtitle = "I must have fire in my eyes when I face them, not tears.", # caption = "- Fire & Blood.") + # theme_minimal() + # theme(text = element_text(family = "Cinzel", size = 10), # title = element_text(family = "Cinzel", size = 14)) -> targaryen # # ## patchwork together: # stark + tully - targaryen + plot_layout(ncol = 1) ## ----TyrellLannisterGreyjoy, fig.width=15, fig.height = 10, eval=FALSE-------- # data <- gapminder::gapminder %>% # filter(country %in% c("France", "Germany", "Ireland", "Italy", "Japan", "Norway", "Belarus")) %>% # mutate(year = as.Date(paste(year, "-01-01", sep = "", format = '%Y-%b-%d'))) # # ggplot(data = data, aes(x = year, y = gdpPercap, fill = country)) + # geom_area(alpha = 0.8) + # scale_x_date(breaks = data$year, date_labels = "%Y") + # scale_y_continuous(expand = c(0, 0), labels = scales::dollar) + # scale_fill_westeros(palette = "Tyrell") + # labs(title = "All men are fools, if truth be told, but", # subtitle = "the ones in motley are more amusing than ones with crowns.", # caption = "- The Queen of Thorns") + # theme_minimal() + # theme(text = element_text(family = "Cinzel", size = 10), # plot.title = element_text(family = "Cinzel", size = 16), # plot.subtitle = element_text(family = "Cinzel", size = 12)) -> tyrell # # ggplot(diamonds, aes(price, fill = cut)) + # geom_histogram(binwidth = 500) + # labs(title = "You are done with whores.", # subtitle = "The next one I find in your bed, I'll hang.", # caption = "Rains of Castamere") + # scale_fill_westeros(palette = "Lannister", n = 5, reverse = TRUE) + # theme_minimal() + # theme(text = element_text(family = "Cinzel", size = 14)) -> lannister # # airquality %>% # mutate(Month = as.factor(Month)) %>% # ggplot(aes(x = Day, y = Temp, group = Month, color = Month)) + # geom_line(size = 1.5) + # scale_color_westeros(palette = "Greyjoy") + # labs(title = "I am the storm, my lord.", # subtitle = "The first storm, and the last.", # caption = "- Euron 'The Crow's Eye' Greyjoy") + # theme_minimal() + # theme(text = element_text(family = "Cinzel", size = 10), # title = element_text(family = "Cinzel", size = 14)) -> greyjoy # # ## patchwork together: # tyrell + lannister - greyjoy + plot_layout(ncol = 1) ## ----ArrynManderlyMartell, fig.width=15, fig.height = 10, eval=FALSE---------- # ggplot(mpg, aes(displ)) + # geom_histogram(aes(fill = class), col = "black", size = 0.1) + # scale_fill_westeros(palette = "Arryn", n = 7) + # labs(title = "The Seed is Strong.", # subtitle = "The bad little man. Mother, can I make him fly?", # caption = "I want to see him fly.") + # theme_minimal() + # theme(text = element_text(family = "Cinzel", size = 14), # plot.title = element_text(family = "Cinzel", size = 18), # legend.position = "none") -> arryn # # airquality %>% # mutate(Month = as.factor(Month)) %>% # ggplot(aes(x = Day, y = Temp, group = Month, color = Month)) + # geom_line(size = 1.5) + # scale_color_westeros(palette = "Manderly", n = 6) + # labs(title = "The North remembers Lord Davos. The North remembers...", # subtitle = "The mummer's farce is almost done, my son is coming home.", # caption = "When treating with liars, even an honest man must lie.") + # theme_minimal() + # theme(text = element_text(family = "Cinzel", size = 12), # plot.title = element_text(family = "Cinzel", size = 14), # legend.position = "none") -> manderly # # data <- gapminder::gapminder %>% # filter(country %in% c("France", "Germany", "Ireland", "Italy", "Japan", "Norway", "Belarus", "Canada", "Mexico")) %>% # mutate(year = as.Date(paste(year, "-01-01", sep = "", format = '%Y-%b-%d'))) # # ggplot(data = data, aes(x = year, y = gdpPercap, fill = country)) + # geom_area(alpha = 0.8) + # scale_x_date(expand = c(0, 0), # breaks = data$year, date_labels = "%Y") + # scale_y_continuous(expand = c(0, 0), labels = scales::dollar) + # scale_fill_westeros(palette = "Martell", n = 8) + # labs(title = "What is our heart's desire? - Ariane Martell", # subtitle = "Vengeance. Justice. Fire And Blood. - Doran Martell", # caption = "Hiss with me Sand Snakes, HISSS!") + # theme_minimal() + # theme(text = element_text(family = "Cinzel", size = 10), # plot.title = element_text(family = "Cinzel", size = 24), # plot.subtitle = element_text(family = "Cinzel", size = 26), # legend.position = "none") -> martell # # ## patchwork together: # arryn + manderly - martell + plot_layout(ncol = 1) ## ----Stannis, fig.width=13, fig.height = 10----------------------------------- # ggplot(mpg, aes(displ)) + # geom_histogram(aes(fill = class), col = "black", size = 0.1) + # scale_fill_westeros(palette = "Stannis", n = 7, reverse = TRUE) + # scale_x_continuous(expand = c(0, 0)) + # scale_y_continuous(expand = c(0, 0)) + # labs(title = glue(" # We do not choose our destinies. # Yet we must... we must do our duty, no? # Great or small, we must do our duty."), # subtitle = "I will have no burnings. Pray Harder.", # caption = glue(" # The Iron Throne is Mine by Right. # - Stannis Baratheon"), # x = "Bent Knees", y = "Lightbringer") + # theme_minimal() + # theme(text = element_text(family = "Cinzel", size = 20), # plot.title = element_text(family = "Cinzel", size = 26), # plot.subtitle = element_text(size = 18), # plot.caption = element_text(size = 16), # axis.text = element_text(size = 18), # legend.position = "none") ## ----Simpsons, eval=FALSE----------------------------------------------------- # data <- gapminder::gapminder %>% # filter(country %in% c("France", "Germany", "Ireland", "Italy", "Japan", "Norway", "Belarus")) %>% # mutate(year = as.Date(paste(year, "-01-01", sep = "", format='%Y-%b-%d'))) # # ggplot(data = data, aes(x = year, y = gdpPercap, fill = country)) + # geom_area(alpha = 0.8) + # scale_x_date(breaks = data$year, date_labels = "%Y") + # scale_y_continuous(expand = c(0, 0), labels = scales::dollar) + # scale_fill_simpsons() + # labs(title = "The Simpsons", # subtitle = "Theme inspired in part by @nathancunn's blog posts", # caption = glue(" # A 'Bake 'em Away, Toys!' Production # Location: Sector 7G"), # x = "Wel-diddly-elcome neighborino!", # y = "Price of Duff Beer") + # theme_simpsons(title.font = "Akbar", # text.font = "Akbar", # axis.text.size = 8) ## ----R&M---------------------------------------------------------------------- # ggplot(diamonds, aes(price, fill = cut)) + # geom_histogram(binwidth = 500) + # scale_fill_rickAndMorty() + # labs(title = "Dammit Morty, You Know Diamonds Aren't Forever Right?", # subtitle = "They're blood diamonds, Morty **burp**", # caption = "Wubbalubbadubdub!") + # theme_rickAndMorty(title.font = "Get Schwifty", # text.font = "Get Schwifty", # title.size = 14) ## ----ATLA, fig.width=15, fig.height = 10, message=FALSE, eval=FALSE----------- # ggplot(mpg, aes(displ)) + # geom_histogram(aes(fill = class), col = "black", size = 0.1) + # scale_fill_avatar(palette = "FireNation") + # labs(title = "Flameo, Hotman!", # subtitle = "Fire. Wang Fire. This is my wife, Sapphire.", # x = "Lion Vultures Owned", # y = "Agni Kai Participation") + # theme_avatar(title.font = "Slayer", # text.font = "Slayer") -> firenation # # airquality %>% # mutate(Month = as.factor(Month)) %>% # ggplot(aes(x = Day, y = Temp, group = Month, color = Month)) + # geom_line(size = 1.5) + # scale_color_avatar(palette = "AirNomads") + # labs(title = "Let's head to the Eastern Air Temple!", # subtitle = "Appa, Yip Yip!") + # theme_avatar(title.font = "Slayer", # text.font = "Slayer", # title.size = 10) -> airnomads # # ggplot(gapminder::gapminder, # aes(x = log10(gdpPercap), y = lifeExp)) + # geom_point(aes(color = continent)) + # scale_x_log10() + # scale_color_avatar(palette = "WaterTribe") + # labs(title = "I am thinking maybe we could... do an activity together?", # subtitle = "... Do an activity?", # x = "GDP per Otter-Penguins", # y = "Life Expectancy of Arctic Camels") + # theme_avatar(title.font = "Slayer", # text.font = "Slayer", # title.size = 8, # subtitle.size = 8) -> watertribe # # ggplot(mpg, aes(displ)) + # geom_histogram(aes(fill = class), col = "black", size = 0.1) + # scale_fill_avatar(palette = "EarthKingdom") + # labs(title = "There is no war in Ba Sing Se", # subtitle = "(Welcome to Lake Laogai)") + # theme_avatar(title.font = "Slayer", # text.font = "Slayer", # title.size = 14) -> earthkingdom # # ## plot together: # plot_grid(firenation, airnomads, watertribe, earthkingdom, ncol = 2) ## ----P&R, fig.width=14, fig.height = 6, message=FALSE, eval=FALSE------------- # airquality %>% # mutate(Month = as.factor(Month)) %>% # ggplot(aes(x = Day, y = Temp, group = Month, color = Month)) + # geom_point(size = 4.5) + # labs(title = "Calzones are pointless.", subtitle = "They're just pizza that's harder to eat!", # caption = "No one likes them. Good day, sir.") + # scale_color_parksAndRec() + # theme_minimal() + # theme_parksAndRec(text.font = "Titillium Web", # title.font = "Titillium Web Black", # legend.font = "Titillium Web") -> parksandrec # # ggplot(mpg, aes(displ)) + # geom_histogram(aes(fill = class), col = "black", size = 0.1) + # labs(title = "Parks & Recreation", # subtitle = "Gotta Spend Money To Make Money!", # caption = "And I spent... all of my money!") + # scale_fill_parksAndRec() + # scale_x_continuous(expand = c(0, 0)) + # scale_y_continuous(expand = c(0, 0)) + # theme_minimal() + # theme_parksAndRecLight(title.font = "Titillium Web Black", # text.font = "Titillium Web") -> parksandreclight # # ## plot together: # plot_grid(parksandrec, parksandreclight, ncol = 2) ## ----AoT,fig.width=10, fig.height = 6, eval=FALSE----------------------------- # img <- png::readPNG(system.file("backgrounds/aot-titan.png", # package = "tvthemes")) # # ggplot(mpg, aes(displ)) + # geom_histogram(aes(fill = rev(class)), col = "black", size = 0.1) + # scale_fill_attackOnTitan(reverse = FALSE) + # scale_x_continuous(expand = c(0, 0)) + # scale_y_continuous(expand = c(0, 0)) + # annotation_raster(img, xmin = 4.75, xmax = 7.75, # ymin = 7, ymax = 33) + # labs(title = "On That Day, Mankind Received A Grim Reminder.", # subtitle = "Well, Sweet Mother Theresa on the Hood of a Mercedes Benz!", # caption = "W-Well I'll Just Bertell You What I Berthold Him..") + # theme_parksAndRec(text.font = "Roboto Condensed", # title.font = "Roboto Condensed") ## ----KimPossible, fig.width=10, fig.height = 6, eval=FALSE-------------------- # data <- gapminder::gapminder %>% # filter(country %in% c("France", "Germany", "Ireland", "Italy", # "Japan", "Norway", "Belarus", "United Kingdom", # "Peru", "Spain")) %>% # mutate(year = as.Date(paste(year, "-01-01", sep = "", format = '%Y-%b-%d'))) # # ggplot(data = data, aes(x = year, y = gdpPercap, fill = country)) + # geom_area(alpha = 0.9) + # scale_x_date(expand = c(0, 0), # breaks = data$year, # date_labels = "%Y") + # scale_y_continuous(expand = c(0, 0), labels = scales::dollar) + # scale_fill_kimPossible() + # labs(title = "What's The Sitch, Wade?", # subtitle = glue("Call Me {emo::ji('call')} Beep Me {emo::ji('pager')} If You Wanna Reach Me {emo::ji('clap')} !"), # caption = "Stoppable... What Are You Doing In My House??", # x = "Year", y = "GDP per Capita") + # theme_spongeBob(title.font = "Roboto Condensed", # text.font = "Roboto Condensed", # title.size = 24, # subtitle.size = 20, # text.size = 18, # legend.title.size = 14, # legend.text.size = 12, # ticks = TRUE) ## ----BH6, fig.width=15, fig.height = 6, message=FALSE, warning=FALSE, eval=FALSE---- # data <- gapminder::gapminder %>% # filter(country %in% c("France", "Germany", "Ireland", "Italy", # "Japan", "Norway", "Finland", "United Kingdom")) %>% # mutate(year = as.Date(paste(year, "-01-01", sep = "", format = '%Y-%b-%d'))) # # ggplot(data = data, aes(x = year, y = gdpPercap, fill = country)) + # geom_area(alpha = 0.9) + # scale_x_date(expand = c(0, 0), breaks = data$year, date_labels = "%Y") + # scale_y_continuous(expand = c(0, 0), labels = scales::dollar) + # scale_fill_bigHero6() + # labs(title = stringr::str_wrap("Welcome To The Nerd Lab.", width = 50), # subtitle = "Villains Love Exposed Pipes, Beams, and Plastic Tarps!", # caption = "*Fist Bump* Falalalalalala~", # x = "Year", y = "GDP per Capita") + # theme_spongeBob(title.font = "Roboto Condensed", # text.font = "Roboto Condensed", # title.size = 24, # subtitle.size = 20, # text.size = 18, # legend.position = "none") -> bigherobar # # airquality %>% # mutate(Month = as.factor(Month)) %>% # ggplot(aes(x = Day, y = Temp, group = Month, fill = Month)) + # geom_point(size = 4, stroke = 1.25, shape = 21) + # labs(title = "Hiro, I Will Always Be With You.", # subtitle = "I'm Satisfied With My Care, Baymax.", # caption = "Stop Whining, Woman Up!") + # scale_fill_bigHero6() + # theme_minimal() + # theme(text = element_text(family = "Roboto Condensed"), # plot.title = element_text(size = 20), # plot.subtitle = element_text(size = 16), # plot.caption = element_text(size = 14)) -> bigherodot # # ## plot together: # plot_grid(bigherobar, bigherodot, ncol = 2) ## ----Hilda, fig.width=17, fig.height = 10, message=FALSE, eval=FALSE---------- # airquality %>% # mutate(Month = as.factor(Month)) %>% # ggplot(aes(x = Day, y = Temp, group = Month, color = Month)) + # geom_line(size = 1.5) + # scale_x_continuous(expand = c(0, 0)) + # scale_y_continuous(expand = c(0, 0)) + # scale_color_hilda(palette = "Day") + # labs(title = "Well, that was pretty traumatic...", # subtitle = "but such is the life of an adventurer!", # caption = "I don't even have hands!!") + # theme_hildaDay(ticks = TRUE, # legend.position = "none") -> hildaday # # ggplot(mpg, aes(displ)) + # geom_histogram(aes(fill = rev(class)), col = "black", size = 0.1) + # scale_x_continuous(expand = c(0, 0)) + # scale_y_continuous(expand = c(0, 0)) + # scale_fill_hilda(palette = "Dusk", reverse = TRUE) + # labs(title = stringr::str_wrap("If you ask me all houses are basically the same. Roof, floors, walls...", width = 50), # subtitle = "people saying STOP WALKING IN LIKE THAT WOODMAN!", # caption = "I'm more of a writer than a fighter!") + # theme_hildaDusk(ticks = TRUE, # legend.position = "none") -> hildadusk # # airquality %>% # mutate(Month = as.factor(Month)) %>% # ggplot(aes(x = Day, y = Temp, group = Month, fill = Month)) + # geom_point(size = 3, stroke = 1.25, shape = 21) + # labs(title = "Could someone close that door,", # subtitle = "it's a little drafty in here...", # caption = "I'm quite tall for an elf, actually.") + # scale_fill_hilda(palette = "Night", reverse = TRUE) + # scale_x_continuous(expand = c(0.05, 0.02)) + # scale_y_continuous(expand = c(0.05, 0.02)) + # theme_hildaNight(ticks = TRUE) -> hildanight # # plot_grid(hildaday, hildadusk, hildanight, ncol = 2) ## ----gravityfalls, fig.width=14, fig.height = 6, message=FALSE, eval=FALSE---- # data <- gapminder::gapminder %>% # filter(country %in% c("Ireland", "Italy", "Turkey", "France", "Germany", # "Brazil", "Mexico", "Sweden", "Netherlands", # "Greece", "Spain", "Finland", "United Kingdom")) %>% # mutate(year = as.Date(paste(year, "-01-01", sep = "", format = '%Y-%b-%d')), # image = "") # # ggplot(data = data, aes(x = year, y = gdpPercap, fill = country)) + # geom_area(alpha = 0.9) + # scale_x_date(expand = c(0, 0), breaks = data$year, date_labels = "%Y") + # scale_y_continuous(expand = c(0, 0), labels = scales::dollar) + # scale_fill_gravityFalls(reverse = FALSE) + # labs(title = stringr::str_wrap("Well, Duck-tective, it seems you've really... quacked the case!", width = 70), # subtitle = "Quack-quack Quack-quack-quack (Don't patronize me!)", # caption = "Schmebulock!!", # x = "Years That Stanford Was Gone", y = "# of Sham Total sold") + # theme_avatar(title.font = "Gravitation Falls", # text.font = "Gravitation Falls", # title.size = 24, # subtitle.size = 20, # text.size = 18, # legend.position = "none") ## ----stevenUniverse, fig.width=14, fig.height = 6, message=FALSE, eval=FALSE---- # data <- gapminder::gapminder %>% # filter(country %in% c("Ireland", "Italy", "Turkey", "France", "Germany", # "Brazil", "Mexico", "Sweden")) %>% # mutate(year = as.Date(paste(year, "-01-01", sep = "", format = '%Y-%b-%d')), # image = "") # # ggplot(data = data, aes(x = year, y = gdpPercap, fill = country)) + # geom_area(alpha = 0.9) + # scale_x_date(expand = c(0, 0), breaks = data$year, date_labels = "%Y") + # scale_y_continuous(expand = c(0, 0), labels = scales::dollar) + # scale_fill_stevenUniverse(palette = "Steven", reverse = FALSE) + # labs(title = stringr::str_wrap("I just can't believe you guys are like a bazillion years old! How do you find a cake big enough for all that many candles?", width = 70), # subtitle = "Square pizza!? What's wrong with this crazy state!?", # caption = "Yay, Lion!", # x = "Years Since The Gem War", y = "Revenue (in $) from COOKIE CAT sold!") + # theme_avatar(title.size = 24, # subtitle.size = 20, # text.font = "Titillium Web", # text.size = 20, # legend.position = "none") ## ----CrystalGems, fig.width=11, fig.height = 8, eval=FALSE, message=FALSE----- # ggplot(diamonds, aes(price, fill = cut)) + # geom_histogram(binwidth = 500) + # scale_fill_stevenUniverse(palette = "CrystalGems") + # labs(title = stringr::str_wrap("We... Are The Crystal Gems! We'll Always Save The Day! And If You Think We Can't, We'll Always Find A Way!", width = 70), # subtitle = stringr::str_wrap("That's Why The People Of This World... Believe In: Garnet, Amethyst... Aaand Pearl!", width = 70), # caption = "... AND STEVEN!") + # theme_spongeBob(title.size = 24, # subtitle.size = 20, # text.font = "Titillium Web", # text.size = 18, # legend.position = "none")