jbkmisc

• Why? What?
• Installation
• Date helpers
  • ym_to_date
  • ym_diff
  • ym_add_months
  • ym_format
  • ym_div
• dplyr
  • countp
  • ccount
  • clean
• dbplyr
  • dbRemoveTableIfExists
  • compute2
• ggplot2
  • theme_jbk
  • ggsav and filename_gen
• blog & presentations
  • spin_jekyll_post
  • blog_set_chunk
  • giphy
  • ico
• tictoc
• shiny
  • get_my_local_ip
• Report Helpers
  • format_tbl
• Stringr
  • str_clean
• Workflow
  • wf_create_folders

Why? What?

Idk:

• Just things I need sometimes.
• Just helpers and wrappers for my laziness.

Installation

source("https://install-github.me/jbkunst/jbkmisc")

Date helpers

ym_to_date

ym_to_date(ym = c(200902, 201912), day = 1)

## [1] "2009-02-01" "2019-12-01"

ym_diff

ym_diff(ym = c(200902, 201912), ym2 = c(200901, 201712))

## [1]  1 24

ym_add_months

ym_add_months(c(200902, 201912), months = c(1, -12))

## [1] "200903" "201812"

ym_format

ym_format(c(200902, 201912), "%B del %Y")

## [1] "febrero del 2009"   "diciembre del 2019"

ym_div

year <- format(ymd(20170101) + months(0:11), "%Y%m")
year

##  [1] "201701" "201702" "201703" "201704" "201705" "201706" "201707"
##  [8] "201708" "201709" "201710" "201711" "201712"

ym_div(year, ng = 3)

##  [1] "201701" "201701" "201701" "201701" "201705" "201705" "201705"
##  [8] "201705" "201709" "201709" "201709" "201709"

ym_div(year, ng = 4)

##  [1] "201701" "201701" "201701" "201704" "201704" "201704" "201707"
##  [8] "201707" "201707" "201710" "201710" "201710"

dplyr

countp

countp(mtcars, cyl)

cyl	n	p	pcum
4	11	0.34375	0.34375
6	7	0.21875	0.56250
8	14	0.43750	1.00000

countp(mtcars, cyl, am)

cyl	am	n	p	pcum
4	0	3	0.09375	0.09375
4	1	8	0.25000	0.34375
6	0	4	0.12500	0.46875
6	1	3	0.09375	0.56250
8	0	12	0.37500	0.93750
8	1	2	0.06250	1.00000

library(dplyr)

mtcars %>%
  group_by(cyl) %>% 
  countp(am)

## # A tibble: 6 x 5
## # Groups:   cyl [3]
##     cyl    am     n     p  pcum
##   <dbl> <dbl> <int> <dbl> <dbl>
## 1     4     0     3 0.273 0.273
## 2     4     1     8 0.727 1    
## 3     6     0     4 0.571 0.571
## 4     6     1     3 0.429 1    
## 5     8     0    12 0.857 0.857
## 6     8     1     2 0.143 1

ccount

ccount(iris, Species)

n	nn
50	3

clean

head(iris, 3)

Sepal.Length	Sepal.Width	Petal.Length	Petal.Width	Species
5.1	3.5	1.4	0.2	setosa
4.9	3.0	1.4	0.2	setosa
4.7	3.2	1.3	0.2	setosa

clean(head(iris, 3))

sepal_length	sepal_width	petal_length	petal_width	species
5.1	3.5	1.4	0.2	setosa
4.9	3.0	1.4	0.2	setosa
4.7	3.2	1.3	0.2	setosa

dbplyr

dbRemoveTableIfExists

dbRemoveTableIfExists(con, name)

compute2

compute2(con, name)

ggplot2

theme_jbk

Based on hrbrthemes::theme_ipsum, soft gridline color, legend at top for more horizontal space.

library(ggplot2)
library(dplyr)

data("diamonds")
d <- diamonds %>% 
  filter(color %in% c("E", "J", "H")) %>% 
  filter(cut %in% c("Ideal", "Premium", "Very Good")) %>% 
  sample_n(10000)
theme_set(theme_jbk())

ggplot(d, aes(carat, price)) + 
  geom_point(aes(color = clarity), size = 0.1) + 
  scale_y_continuous(labels = scales::dollar) + 
  scale_color_viridis_d() + 
  facet_grid(cut ~ color, scales = "free") + 
  labs(
    title = "This is a Title",
    subtutle = "This is a longer subtitle",
    caption = "A caption which nobody read but it looks important"
  )

ggsav and filename_gen

Automatic generation file names given a pattern to save without worry about names :D.

blog & presentations

spin_jekyll_post

My custom spin r file to md and move the widgets, etc.

blog_set_chunk

Set opt chunk with my preferences

giphy

Put a giphy image given the id.

ico

ico("tv", "red")

## [1] "<span style=\"color:red\">\n  <i class=\"fa fa-tv\"></i>\n</span>"

R()

## [1] "<span style=\"color:#2066B9;font-weight:500\">R</span>"

tictoc

jbk_tictoc_clear()

jbk_tic(msg = "Some sleep")

## 
## Some sleep - starting at: 15:42:22

Sys.sleep(2)

jbk_toc()

## Some sleep - finished in: 2.03 seconds

jbk_tic(msg = "Go to sleep again!")

## 
## Go to sleep again! - starting at: 15:42:24

Sys.sleep(1)

jbk_toc()

## Go to sleep again! - finished in: 1.03 seconds

jbk_tictoc_log()

tic	toc	msg	time_minutes
6.84	8.87	Some sleep	0.0338333
8.87	9.90	Go to sleep again!	0.0171667

shiny

get_my_local_ip

get_my_local_ip()

## [1] "172.20.134.208"

Report Helpers

format_tbl

data <- data.frame(
  a_value.e = c(NA, runif(3)),
  `another.vAlue__here` = c(NA, runif(3)) * 10000
  )

data

a_value.e	another.vAlue__here
NA	NA
0.3232697	3542.885
0.4877582	6136.252
0.7214735	9922.514

format_tbl(data)

A Value E Another Value Here ---------- ------------------- - - 32.3% 3,542.89 48.8% 6,136.25 72.1% 9,922.51

format_tbl(data, digits = 0, NA_symbol = "***", fun_title = toupper)

A_VALUE.E	ANOTHER.VALUE__HERE
***	***
32.3%	3,543
48.8%	6,136
72.1%	9,923

Stringr

str_clean

string <- c("name.with...points", "or_Under___scores")
string

## [1] "name.with...points" "or_Under___scores"

str_clean(string)

## [1] "Name With Points" "Or Under Scores"

str_clean(string, fun = toupper)

## [1] "NAME WITH POINTS" "OR UNDER SCORES"

Workflow

wf_create_folders

create data, code and output folder.