README.md

In jbkunst/jbkmisc: Own functions and nothing else

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.

jbkunst/jbkmisc documentation built on Nov. 8, 2019, 11:40 a.m.