tjonesy10

THIS IS OUTDATED. PLEASE FOLLOW THE FOLLOWING LINK

Basic nflscrapR tutorial

I get a lot of questions about how to get nflscrapR up and running. This guide is intended to help new users build interesting tables or charts from the ground up, taking the raw nflscrapR data.

Quick word if you're new to programming: all of this is happening in R. Obviously, you need to install R on your computer to do any of this. Make sure you save what you're doing in a script (in R, File --> New script) so you can save your work and run multiple lines of code at once. To run code from a script, highlight what you want, right click, and select Run line. As you go through your R journey, you might get stuck and have to google a bunch of things, but that's totally okay and normal. That's how I wrote this thing!

FWIW: I (@rondy) am not the creator of the content shared here, which is an excerpt from Edmond Lau's book. I simply copied and pasted it from another location and saved it as a personal note, before it gained popularity on news.ycombinator.com. Unfortunately, I cannot recall the exact origin of the original source, nor was I able to find the author's name, so I am can't provide the appropriate credits.

Effective Engineer - Notes

By Edmond Lau
Highly Recommended 👍
http://www.theeffectiveengineer.com/

What's an Effective Engineer?

Project title

A little info about your project and/ or overview that explains what the project is about.

Motivation

A short description of the motivation behind the creation and maintenance of the project. This should explain why the project exists.

Build status

Build status of continus integration i.e. travis, appveyor etc. Ex. -

Project Title

One Paragraph of project description goes here

Getting Started

These instructions will get you a copy of the project up and running on your local machine for development and testing purposes. See deployment for notes on how to deploy the project on a live system.

	# pkgs
	pacman::p_load(tidyverse, polite, scales, ggimage, ggforce,
	rvest, glue, extrafont, ggrepel, magick)
	loadfonts()

	## add_logo function from Thomas Mock
	add_logo <- function(plot_path, logo_path, logo_position, logo_scale = 10){

	# Requires magick R Package https://github.com/ropensci/magick

	events$pass.goal_assist <- ifelse(is.na(events$pass.goal_assist), 0, 1)

	xA <- list()
	for (a in 1:nrow(events)) {
	print(a)
	if(events[a,]$pass.goal_assist == 1){
	xA <- append(unlist(xA),
	as.numeric(events[which(events$id == events[a,]$pass.assisted_shot_id),]$shot.statsbomb_xg)
	)}else{
	xA <- append(unlist(xA), 0)