Michał Bojanowski mbojan
mbojan
/ nyt-spiral.R
Last active
April 29, 2022 10:30
Code behind https://twitter.com/mbojan/status/1483183854676582400. Adding an element of dynamism to https://www.nytimes.com/2022/01/06/opinion/omicron-covid-us.html.
This file contains hidden or 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(ggplot2) | |
| rawdata <- readr::read_csv( | |
| "https://github.com/CSSEGISandData/COVID-19/raw/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_deaths_global.csv", | |
| col_types = paste(rep(c("c", "d"), c(2, 790)), collapse="") | |
| ) | |
| dat <- rawdata |> | |
| filter(`Country/Region` == "Poland") |> |
mbojan
/ ical2csv.R
Last active
October 17, 2019 23:06
Parse (broken) iCal to CSV suitable for Google Calendar
This file contains hidden or 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(ical) | |
| library(dplyr) | |
| library(tidyr) | |
| library(lubridate) | |
| d <- list.files("~/Downloads", "^[0-9]+.ics$", full.names = TRUE) %>% | |
| lapply(ical::ical_parse_df) %>% | |
| lapply(mutate_if, is.factor, as.character) %>% | |
| bind_rows() %>% | |
| as_tibble() |
mbojan
/ rpm.R
Created
March 27, 2017 08:47
— forked from zhilongjia/rpm.R
rpm is revised to convert Rnw to Rmd for vignette, originally from https://github.com/leonawicz/ProjectManagement. Main function is convertDocs.
This file contains hidden or 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
| # @knitr template_objects | |
| # For package 'rpm' | |
| # data | |
| rmd.template <- | |
| '\n | |
| ## Introduction | |
| ADD_TEXT_HERE |
This file contains hidden or 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
| # Jako notebook w RStudio (Ctrl+Shift+K) | |
| suppressPackageStartupMessages({ | |
| library(MASS) | |
| library(dplyr) | |
| library(tidyr) | |
| library(ggplot2) | |
| library(mice) | |
| }) |
This file contains hidden or 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
| # zainstalować 'googlesheets' jeśli nie ma | |
| devtools::install_github("jennybc/googlesheets") | |
| library(googlesheets) | |
| library(igraph) | |
| library(scales) | |
| # autoryzacja | |
| gs_auth() |
mbojan
/ rcolorsheet.R
Last active
January 2, 2022 18:30
R color reference sheet inspired by http://gallery.r-enthusiasts.com/graph/List_of_colors_155
This file contains hidden or 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(RColorBrewer) | |
| library(colorRamps) | |
| pdf("rcolorsheet.pdf", paper="a4r", width=11.6, height=8.2, onefile=TRUE) | |
| ### page 1 | |
| # grDevices::colors | |
| m <- matrix(1:660, 60, 11) |