Matt Adams madams1

## visualizing_data_with_r.R
library(ggplot2)
library(dplyr)

lotr <- readr::read_tsv("https://raw.githubusercontent.com/jennybc/lotr-tidy/master/data/lotr_clean.tsv") %>%
  rename_all(tolower)

# bars ----------------------------------------------------------------------------------------

lotr_by_race <- lotr %>%
  group_by(race) %>%

## .block
height: 700

## .block
height: 730

## .block
license: mit
height: 700

## index.html
<html>

    <head>
        <title>Summary Tiles Example</title>
        <link href='https://fonts.googleapis.com/css?family=Lato:400,300,300italic,400italic,700,700italic' rel='stylesheet' type='text/css'>
        <script src="https://unpkg.com/axios/dist/axios.min.js"></script>
        <script type="text/javascript" src="https://d3js.org/d3-selection.v1.min.js"></script>
        <script src="https://unpkg.com/d3-summary-tiles/build/d3-summary-tiles.min.js"></script>
    </head>

## .block
license: mit

## .block
license: mit

## .block
license: mit

## .block
license: mit
height: 1000

## .block
license: mit
	library(ggplot2)
	library(dplyr)

	lotr <- readr::read_tsv("https://raw.githubusercontent.com/jennybc/lotr-tidy/master/data/lotr_clean.tsv") %>%
	rename_all(tolower)

	# bars ----------------------------------------------------------------------------------------

	lotr_by_race <- lotr %>%
	group_by(race) %>%
	<html>

	<head>
	<title>Summary Tiles Example</title>
	<link href='https://fonts.googleapis.com/css?family=Lato:400,300,300italic,400italic,700,700italic' rel='stylesheet' type='text/css'>
	<script src="https://unpkg.com/axios/dist/axios.min.js"></script>
	<script type="text/javascript" src="https://d3js.org/d3-selection.v1.min.js"></script>
	<script src="https://unpkg.com/d3-summary-tiles/build/d3-summary-tiles.min.js"></script>
	</head>