 # From the logistical point of view, the purpose of this assignment i...

## Question

Show transcribed text

## Solution Preview

These solutions may offer step-by-step problem-solving explanations or good writing examples that include modern styles of formatting and construction of bibliographies out of text citations and references. Students may use these solutions for personal skill-building and practice. Unethical use is strictly forbidden.

library(ggplot2)
library(jpeg)

shots_data <- read.csv("data/shots-data.csv", stringsAsFactors = FALSE)

andre <- shots_data[shots_data\$name == "Andre Iguodala",]
graymond <- shots_data[shots_data\$name == "Graymond Green",]
kevin <- shots_data[shots_data\$name == "Kevin Durant",]
klay <- shots_data[shots_data\$name == "Klay Thompson",]
stephen <- shots_data[shots_data\$name == "Stephen Curry",]

andre_scatterplot <- ggplot(data = andre) +
geom_point(aes(x = x, y = y, color = shot_made_flag))

graymond_scatterplot <- ggplot(data = graymond) +
geom_point(aes(x = x, y = y, color = shot_made_flag))

kevin_scatterplot <- ggplot(data = kevin) +
geom_point(aes(x = x, y = y, color = shot_made_flag))

klay_scatterplot <- ggplot(data = klay) +
geom_point(aes(x = x, y = y, color = shot_made_flag))

stephen_scatterplot <- ggplot(data = stephen) +
geom_point(aes(x = x, y = y, color = shot_made_flag))

# court image (to be used as background of plot)
court_file <- "images/nba-court.jpg"

# create raste object
width = unit(1, "npc"),
height = unit(1, "npc"))...

By purchasing this solution you'll be able to access the following files:
Solution.zip.

# 50% discount

Hours
Minutes
Seconds
\$10.00 \$5.00
for this solution

or FREE if you
register a new account!

PayPal, G Pay, ApplePay, Amazon Pay, and all major credit cards accepted.

### Find A Tutor

View available Statistics-R Programming Tutors

Get College Homework Help.

Are you sure you don't want to upload any files?

Fast tutor response requires as much info as possible.