James Curley jalapic

## threegroups.csv

          
            Group
            id1
            id2
            value

            
              1
              A
              A
              0

            
              1
              A
              B
              15

            
              1
              A
              C
              11

            
              1
              A
              D
              8

            
              1
              B
              A
              3

            
              1
              B
              B
              0

            
              1
              B
              C
              4

            
              1
              B
              D
              2

            
              1
              C
              A
              0

## catcolor.csv
"animal_id","monthyear","name","color1","color2","sex","breed"
"A685067",2014-08-14 18:45:00,"Lucy","blue","white","Female","domestic shorthair"
"A678580",2014-06-29 17:45:00,"Frida","white","black","Female","domestic shorthair"
"A675405",2014-03-28 14:55:00,"Stella Luna","black","white","Female","domestic mediumhair"
"A684460",2014-08-13 15:04:00,"Elsa","brown",NA,"Female","domestic shorthair"
"A686497",2014-08-31 15:45:00,"Chester","black",NA,"Male","domestic shorthair"
"A687965",2014-10-31 18:29:00,"Oliver","orange",NA,"Male","domestic shorthair"
"A668547",2013-12-16 13:59:00,"Preston","black","white","Male","domestic mediumhair"
"A682393",2014-07-03 12:12:00,"Bumble","seal",NA,"Female","siamese"

## cheese.csv

          
            type
            sat_fat
            polysat_fat
            monosat_fat
            protein
            carb
            chol
            fiber
            kcal

            
              blue
              18.669
              0.8
              7.778
              21.4
              2.34
              75
              0
              353

            
              brick
              18.764
              0.784
              8.598
              23.24
              2.79
              94
              0
              371

            
              brie
              17.41
              0.826
              8.013
              20.75
              0.45
              100
              0
              334

            
              camembert
              15.259
              0.724
              7.023
              19.8
              0.46
              72
              0
              300

            
              caraway
              18.584
              0.83
              8.275
              25.18
              3.06
              93
              0
              376

            
              cheddar
              21.092
              0.942
              9.391
              24.9
              1.28
              105
              0
              403

            
              cheshire
              19.475
              0.87
              8.671
              23.37
              4.78
              103
              0
              387

            
              colby
              20.218
              0.953
              9.28
              23.76
              2.57
              95
              0
              394

            
              cottage,crmd,lrg or sml curd
              1.718
              0.123
              0.778
              11.12
              3.38
              17
              0
              98

## england2020.csv

          
            Date
            Season
            home
            visitor
            FT
            hgoal
            vgoal
            division
            tier
            totgoal
            goaldif
            result

            
              2020-09-12
              2020
              Crystal Palace
              Southampton
              1-0
              1
              0
              1
              1
              1
              1
              H

            
              2020-09-12
              2020
              Fulham
              Arsenal
              0-3
              0
              3
              1
              1
              3
              -3
              A

            
              2020-09-12
              2020
              Liverpool
              Leeds United
              4-3
              4
              3
              1
              1
              7
              1
              H

            
              2020-09-12
              2020
              West Ham United
              Newcastle United
              0-2
              0
              2
              1
              1
              2
              -2
              A

            
              2020-09-13
              2020
              Tottenham Hotspur
              Everton
              0-1
              0
              1
              1
              1
              1
              -1
              A

            
              2020-09-13
              2020
              West Bromwich Albion
              Leicester City
              0-3
              0
              3
              1
              1
              3
              -3
              A

            
              2020-09-14
              2020
              Brighton & Hove Albion
              Chelsea
              1-3
              1
              3
              1
              1
              4
              -2
              A

            
              2020-09-14
              2020
              Sheffield United
              Wolverhampton Wanderers
              0-2
              0
              2
              1
              1
              2
              -2
              A

            
              2020-09-19
              2020
              Arsenal
              West Ham United
              2-1
              2
              1
              1
              1
              3
              1
              H

## austin_trees.csv
"id","address","description","species","diameter"
"819539","1307 HILLSIDE AVENUE","Remove dead 21 inch Live Oak in the ROW.","Oak",21
"757396","6201 GLEN MEADOW DRIVE","Remove Arizona Ash in Front Yard at 6201 Glen Meadow.","Arizona Ash",28
"785768","2614 DELWOOD PLACE","remove fallen post oak backyard","Oak",28
"733765","1109 FLANAGAN COVE","Remove 25"" Hackberry","Hackberry",25
"768887","1000 WISTERIA CIRCLE","Full of cavities and in decline, fall hazard","Arizona Ash",35
"773451","11776 JOLLYVILLE ROAD","Cedar elm in parking lot is hollow at the base creating a hazardous situation. The tree is also suffering from girdling roots, canopy decline, an unbalanced crown, borer damage, and mistletoe infection. Tree is recommended for removal due to void beneath tree and lower stem decay.","Cedar Elm",23
"746882","3801-1/2 EMMA BROWNING AVENUE","Remove dead tree / species unknown","Hackberry",12
"718921","2912 CHERRY LANE","URGENT! Remove protected sized cedar elm that is currently leaning and is a hazard.  Tree i

## deadsix.txt
EURIPI
HEARIE
IDEATA
AEDINE
DEAWIE
EOCENE
FINITO
VEGETE
PEREIA
ACULEI

## half box
### Making half box/half point plot

# somewhat hackish solution to:
# https://twitter.com/EamonCaddigan/status/646759751242620928
# based mostly on copy/pasting from ggplot2 geom_violin source:
# https://github.com/hadley/ggplot2/blob/master/R/geom-violin.r

library(ggplot2)
library(dplyr)

## tiger_pga

library(tidyverse)
library(magrittr)
library(rvest)

webpage <- read_html("https://en.wikipedia.org/wiki/List_of_tournament_performances_by_Tiger_Woods")

l <- webpage %>% html_nodes("table.wikitable") %>% html_table()


## gist:a3ae8d96684efe847bfddeee1a256b85
## Drawing consonants in a row

tiles <- c(rep("V", 44), rep("C", 56))  # 42 vowels + 2 blanks,  56 consonants
# combined vowels and blanks into "V" as don't care about difference for this


# loop 1 million times
res<-NULL
for(i in 1:1000000){
draw <- sample(tiles, 17, F)

## gist:e9ede23a3849c2d012690842e98f09cc
library(engsoccerdata)
library(tidyverse)

england %>%
  filter(tier==1) %>%
  split(.$Season) %>%
  map(function(x) maketable_eng(x, Season = x$Season[1], tier=1, penalties=T) ) %>%
  map(~summarise(., diff = Pts[Pos==1] - Pts[Pos==2])) %>%
  bind_rows %>%
  ggplot(aes(x=diff))+geom_histogram(color='black', fill="gray62", binwidth = 1) + scale_x_continuous(breaks = seq(0,20,2)) +
	"animal_id","monthyear","name","color1","color2","sex","breed"
	"A685067",2014-08-14 18:45:00,"Lucy","blue","white","Female","domestic shorthair"
	"A678580",2014-06-29 17:45:00,"Frida","white","black","Female","domestic shorthair"
	"A675405",2014-03-28 14:55:00,"Stella Luna","black","white","Female","domestic mediumhair"
	"A684460",2014-08-13 15:04:00,"Elsa","brown",NA,"Female","domestic shorthair"
	"A686497",2014-08-31 15:45:00,"Chester","black",NA,"Male","domestic shorthair"
	"A687965",2014-10-31 18:29:00,"Oliver","orange",NA,"Male","domestic shorthair"
	"A668547",2013-12-16 13:59:00,"Preston","black","white","Male","domestic mediumhair"
	"A682393",2014-07-03 12:12:00,"Bumble","seal",NA,"Female","siamese"
type	sat_fat	polysat_fat	monosat_fat	protein	carb	chol	fiber	kcal
blue	18.669	0.8	7.778	21.4	2.34	75	0	353
brick	18.764	0.784	8.598	23.24	2.79	94	0	371
brie	17.41	0.826	8.013	20.75	0.45	100	0	334
camembert	15.259	0.724	7.023	19.8	0.46	72	0	300
caraway	18.584	0.83	8.275	25.18	3.06	93	0	376
cheddar	21.092	0.942	9.391	24.9	1.28	105	0	403
cheshire	19.475	0.87	8.671	23.37	4.78	103	0	387
colby	20.218	0.953	9.28	23.76	2.57	95	0	394
cottage,crmd,lrg or sml curd	1.718	0.123	0.778	11.12	3.38	17	0	98
Date	Season	home	visitor	FT	hgoal	vgoal	division	tier	totgoal	goaldif	result
2020-09-12	2020	Crystal Palace	Southampton	1-0	1	0	1	1	1	1	H
2020-09-12	2020	Fulham	Arsenal	0-3	0	3	1	1	3	-3	A
2020-09-12	2020	Liverpool	Leeds United	4-3	4	3	1	1	7	1	H
2020-09-12	2020	West Ham United	Newcastle United	0-2	0	2	1	1	2	-2	A
2020-09-13	2020	Tottenham Hotspur	Everton	0-1	0	1	1	1	1	-1	A
2020-09-13	2020	West Bromwich Albion	Leicester City	0-3	0	3	1	1	3	-3	A
2020-09-14	2020	Brighton & Hove Albion	Chelsea	1-3	1	3	1	1	4	-2	A
2020-09-14	2020	Sheffield United	Wolverhampton Wanderers	0-2	0	2	1	1	2	-2	A
2020-09-19	2020	Arsenal	West Ham United	2-1	2	1	1	1	3	1	H
	"id","address","description","species","diameter"
	"819539","1307 HILLSIDE AVENUE","Remove dead 21 inch Live Oak in the ROW.","Oak",21
	"757396","6201 GLEN MEADOW DRIVE","Remove Arizona Ash in Front Yard at 6201 Glen Meadow.","Arizona Ash",28
	"785768","2614 DELWOOD PLACE","remove fallen post oak backyard","Oak",28
	"733765","1109 FLANAGAN COVE","Remove 25"" Hackberry","Hackberry",25
	"768887","1000 WISTERIA CIRCLE","Full of cavities and in decline, fall hazard","Arizona Ash",35
	"773451","11776 JOLLYVILLE ROAD","Cedar elm in parking lot is hollow at the base creating a hazardous situation. The tree is also suffering from girdling roots, canopy decline, an unbalanced crown, borer damage, and mistletoe infection. Tree is recommended for removal due to void beneath tree and lower stem decay.","Cedar Elm",23
	"746882","3801-1/2 EMMA BROWNING AVENUE","Remove dead tree / species unknown","Hackberry",12
	"718921","2912 CHERRY LANE","URGENT! Remove protected sized cedar elm that is currently leaning and is a hazard. Tree i
	EURIPI
	HEARIE
	IDEATA
	AEDINE
	DEAWIE
	EOCENE
	FINITO
	VEGETE
	PEREIA
	ACULEI
	### Making half box/half point plot

	# somewhat hackish solution to:
	# https://twitter.com/EamonCaddigan/status/646759751242620928
	# based mostly on copy/pasting from ggplot2 geom_violin source:
	# https://github.com/hadley/ggplot2/blob/master/R/geom-violin.r

	library(ggplot2)
	library(dplyr)

	library(tidyverse)
	library(magrittr)
	library(rvest)

	webpage <- read_html("https://en.wikipedia.org/wiki/List_of_tournament_performances_by_Tiger_Woods")

	l <- webpage %>% html_nodes("table.wikitable") %>% html_table()
	## Drawing consonants in a row

	tiles <- c(rep("V", 44), rep("C", 56)) # 42 vowels + 2 blanks, 56 consonants
	# combined vowels and blanks into "V" as don't care about difference for this


	# loop 1 million times
	res<-NULL
	for(i in 1:1000000){
	draw <- sample(tiles, 17, F)
	library(engsoccerdata)
	library(tidyverse)

	england %>%
	filter(tier==1) %>%
	split(.$Season) %>%
	map(function(x) maketable_eng(x, Season = x$Season[1], tier=1, penalties=T) ) %>%
	map(~summarise(., diff = Pts[Pos==1] - Pts[Pos==2])) %>%
	bind_rows %>%
	ggplot(aes(x=diff))+geom_histogram(color='black', fill="gray62", binwidth = 1) + scale_x_continuous(breaks = seq(0,20,2)) +