index.Rmd

--- 
title: Practical Data Science
subtitle: Doing more with your data
author:  |
  <span class="noem">Michael Clark</span><br>
  https://m-clark.github.io/ <span></span>
date: "`r Sys.Date()`"
site: bookdown::bookdown_site
output:
  bookdown::gitbook
always_allow_html: yes
documentclass: book
bibliography: refs.bib
biblio-style: apalike
nocite: | 
  @xie2018b @hadley2018 @hadley2018b @wilke2018
link-citations: yes
description: "The focus of this document is on data science tools and techniques in R, including basic programming knowledge, visualization practices, modeling, and more, along with exercises to practice further. In addition, the demonstrations of most content in Python is available via Jupyter notebooks."
cover-image: 'img/nineteeneightyR.png'
url: 'https\://m-clark.github.io/data-processing-and-visualization/'  # evidently the \: is required or you'll get text in the title/toc area
favicon: 'img/R.ico'
github-repo:  'm-clark/data-processing-and-visualization/'
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(
  # code
  echo      = T,
  message   = F,
  warning   = F,
  error     = F,
  comment   = NA,
  R.options = list(width = 220),
  # viz
  dev.args  = list(bg = 'transparent'),
  dev       = 'svglite',
  fig.align = 'center',
  out.width = '75%',
  fig.asp   = .75,
  # cache
  cache.rebuild = F,
  cache         = T
)

kable_df = function(data, digits=3, ...) {
  kableExtra::kable(
    data,
    digits = digits,
    format = 'html',
    booktabs = T,
    # longtable = F,
    linesep = "",
    ...,
  ) %>% 
    kableExtra::kable_styling(full_width = F)
}

perc = function(x, digits = 1) paste(rnd(x*100, digits = digits), '%')
```


```{r load_common_packages, echo=FALSE, cache=FALSE, eval=TRUE, cache=FALSE}
library(tidyverse)
library(tidyext)

library(visibly)
library(patchwork)

library(mgcv) 
library(ggplot2movies) 
library(kableExtra)
```


##### {-}



```{r rimg, fig.align='center',  out.width=300, echo=FALSE, cache=FALSE}
knitr::include_graphics('img/198R.png', dpi = NA)
```

```{r ccimg, fig.align='center', out.width=0, fig.show='hide', echo=FALSE}
# knitr::include_graphics('img/ccbysa.png', dpi = NA)
# knitr::include_graphics('img/mc_logo.png', dpi = NA)
```