This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# Get v0.5.6 of cancensus for FSA geography | |
# remotes::install_github("mountainMath/cancensus", ref = "v0.5.6") | |
library(cancensus) | |
library(tongfen) | |
library(dplyr) | |
library(sf) | |
library(ggplot2) | |
dataset <- "CA21" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
I am attesting that this GitHub handle sharlagelfand is linked to the Tezos account tz1eRpQwGZrxvot1hVTgSdAEg6KU23q6h9Jg for tzprofiles | |
sig:edsigtp4UvziQ5wFYXgk8GuPNWGmf7ekasd8DH11jrfJEG92sRsSJa2vw6HV3gFVKtWL1M2sdmsjciytUGCMciFhpzfFP7D1Bks |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(ggplot2) | |
library(tibble) | |
df <- tribble( | |
~x, ~y, ~label, | |
1, 2, "A super long label oh god how am I going to deal with this", | |
2, 1, "A shorter one" | |
) | |
# Default - text is cut off |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(dplyr) | |
library(tidyr) | |
initial <- tibble( | |
name = c("name_1", "name_2"), | |
value = list( | |
tibble(name = c("subname_1", "subname_2"), value = c(1, 2)), | |
tibble(name = c("subname_3", "subname_4"), value = c(3, 4)) | |
) | |
) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(ggkeyboard) | |
library(ggplot2) | |
extrafont::loadfonts() | |
# More adventurous | |
ggkeyboard(tkl, | |
palette = c( | |
background = "#FFFFFF", | |
keyboard = "#272530", |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(rtweet) | |
library(dplyr) | |
library(tidytext) | |
library(stringr) | |
library(ggplot2) | |
library(ggwordcloud) | |
dc <- search_tweets( | |
"datacamp", | |
n = 1000, include_rts = FALSE |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(gt) | |
library(tibble) | |
acnh_bugs_n <- tribble( | |
~name, ~price, ~location, ~time, ~months, ~image, | |
"Yellow butterfly", 160, "Flying", "4 AM - 7 PM", "Mar - Jun, Sep - Oct", "https://vignette.wikia.nocookie.net/animalcrossing/images/f/fa/NH-Icon-yellowbutterfly.png", | |
"Peacock butterfly", 2500, "Flying by Hybrid Flowers", "4 AM - 7 PM", "Mar - June", "https://vignette.wikia.nocookie.net/animalcrossing/images/8/8f/NH-Icon-peacockbutterfly.png", | |
"Atlas moth", 3000, "On Trees", "7 PM - 4 AM", "Apr - Sep", "https://vignette.wikia.nocookie.net/animalcrossing/images/6/6a/NH-Icon-atlasmoth.png", | |
"Centipede", 300, "Hitting Rocks", "4 PM - 11 PM", "Sep - June", "https://vignette.wikia.nocookie.net/animalcrossing/images/3/30/NH-Icon-centipede.png", | |
"Snail", 250, "On Rocks and Bushes (Rain) ", "All Day", "Jan - Dec", "https://vignette.wikia.nocookie.net/animalcrossing/images/b/b1/NH-Icon-snail.png", |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(tidyr) | |
library(dplyr) | |
library(forcats) | |
library(purrr) | |
library(magick) | |
items <- readr::read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2020/2020-05-05/items.csv") | |
flowers <- items %>% | |
filter(category == "Flowers") %>% |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(ggplot2) | |
library(dplyr) | |
library(tidytext) | |
nintendo <- tribble( | |
~console, ~sales_type, ~sales_million, | |
"Nintendo Switch", "Hardware", 52.48, | |
"Nintendo Switch", "Software", 310.65, | |
"Nintendo 3DS", "Hardware", 75.71, | |
"Nintendo 3DS", "Software", 382.22, |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(tidyr) | |
df <- tribble( | |
~Date, ~Fruit, ~Sold, | |
"2020-02-01", "Apple", 5, | |
"2020-02-01", "Banana", 1, | |
"2020-02-02", "Apple", 2 | |
) | |
df_complete <- df %>% |
NewerOlder