“Quiz on Exploratory Data Analysis”
Keegan Flynn
10/24/2018
Q1 How many cases are there?
36643 obs.
# Load dplyr package
library(dplyr) #for use of dplyr functions such as glimpse(), mutate(), and filter()
library(ggplot2) #for use of ggplot2 functions such ggplot()
# Import data
civilCases <- read.csv("/resources/rstudio/Buisnessstatistcs/Data/cv2010on.csv")
# Convert data to tbl_df
comics <- tbl_df(civilCases)
str(civilCases)
## 'data.frame': 36643 obs. of 6 variables:
## $ DISTRICT : Factor w/ 6 levels "CT","MA","ME",..: 3 3 3 3 3 3 3 3 3 3 ...
## $ PLT : Factor w/ 19900 levels "-8",":WALKER EL: VENUS-ANTOINETTE",..: 6393 3300 5130 19442 7175 3482 6269 4384 12436 13162 ...
## $ DEF : Factor w/ 19496 levels "-8","'47 BRAND, LLC",..: 8018 11968 5576 10445 5251 14988 7759 1510 8210 13180 ...
## $ FILEYEAR : int 2011 2011 2011 2011 2011 2011 2011 2011 2011 2011 ...
## $ NOS : int 445 385 442 440 440 190 440 442 190 110 ...
## $ nature_of_suit: Factor w/ 44 levels "ADMINISTRATIVE PROCEDURE ACT/REVIEW OR APPEAL OF AGENCY\nDECISION",..: 7 37 9 28 28 29 28 9 29 19 ...```
Q2 List all values in District variable.
Revise the level code below so that R returns all levels (values) in the id variable. “CT” “MA” “ME” “NH” “RI” “VT”
Q3 How many HEALTH CARE / PHARM cases were filed in New Hampshire?
Revise the table code below so that R returns the answer for the question. There were 445 HEALTH CARE/ PHARM cases filed in New Hampshire.
# Check the levels of gender
levels(civilCases$DISTRICT)
## [1] "CT" "MA" "ME" "NH" "RI" "VT"
# Create a 2-way contingency table
tab <- table(civilCases$nature_of_suit, civilCases$DISTRICT)
# Print tab
tab
##
## CT
## ADMINISTRATIVE PROCEDURE ACT/REVIEW OR APPEAL OF AGENCY\nDECISION 21
## ANTITRUST 38
## ARBITRATION 37
## ASSAULT, LIBEL, AND SLANDER 51
## BANKS AND BANKING 15
## CIVIL RIGHTS ACCOMMODATIONS 59
## CIVIL RIGHTS ADA EMPLOYMENT 312
## CIVIL RIGHTS ADA OTHER 75
## CIVIL RIGHTS JOBS 1389
## CONSUMER CREDIT 943
## CONTRACT FRANCHISE 60
## CONTRACT PRODUCT LIABILITY 12
## COPYRIGHT 273
## FAIR LABOR STANDARDS ACT 365
## FALSE CLAIMS ACT 47
## FAMILY AND MEDICAL LEAVE ACT 168
## FOOD AND DRUG ACTS 0
## HEALTH CARE / PHARM 53
## INSURANCE 645
## INTERSTATE COMMERCE 8
## LABOR/MANAGEMENT RELATIONS ACT 26
## LABOR/MANAGEMENT REPORT & DISCLOSURE 0
## MEDICAL MALPRACTICE 70
## MOTOR VEHICLE PERSONAL INJURY 244
## MOTOR VEHICLE PRODUCT LIABILITY 17
## NEGOTIABLE INSTRUMENTS 22
## OCCUPATIONAL SAFETY/HEALTH 0
## OTHER CIVIL RIGHTS 1513
## OTHER CONTRACT ACTIONS 1066
## OTHER FRAUD 202
## OTHER LABOR LITIGATION 80
## OTHER PERSONAL INJURY 675
## OTHER PERSONAL PROPERTY DAMAGE 93
## OTHER REAL PROPERTY ACTIONS 74
## OTHER STATUTORY ACTIONS 316
## PERSONAL INJURY -PRODUCT LIABILITY 240
## PROPERTY DAMAGE -PRODUCT LIABILTY 69
## RENT, LEASE, EJECTMENT 10
## SECURITIES, COMMODITIES, EXCHANGE 109
## STOCKHOLDER'S SUITS 31
## TORT PRODUCT LIABILITY 30
## TORTS TO LAND 15
## TRADEMARK 209
## TRUTH IN LENDING 36
##
## MA
## ADMINISTRATIVE PROCEDURE ACT/REVIEW OR APPEAL OF AGENCY\nDECISION 84
## ANTITRUST 105
## ARBITRATION 71
## ASSAULT, LIBEL, AND SLANDER 117
## BANKS AND BANKING 35
## CIVIL RIGHTS ACCOMMODATIONS 132
## CIVIL RIGHTS ADA EMPLOYMENT 201
## CIVIL RIGHTS ADA OTHER 388
## CIVIL RIGHTS JOBS 843
## CONSUMER CREDIT 745
## CONTRACT FRANCHISE 36
## CONTRACT PRODUCT LIABILITY 53
## COPYRIGHT 338
## FAIR LABOR STANDARDS ACT 378
## FALSE CLAIMS ACT 111
## FAMILY AND MEDICAL LEAVE ACT 112
## FOOD AND DRUG ACTS 0
## HEALTH CARE / PHARM 4493
## INSURANCE 625
## INTERSTATE COMMERCE 24
## LABOR/MANAGEMENT RELATIONS ACT 127
## LABOR/MANAGEMENT REPORT & DISCLOSURE 1
## MEDICAL MALPRACTICE 122
## MOTOR VEHICLE PERSONAL INJURY 196
## MOTOR VEHICLE PRODUCT LIABILITY 21
## NEGOTIABLE INSTRUMENTS 88
## OCCUPATIONAL SAFETY/HEALTH 2
## OTHER CIVIL RIGHTS 1455
## OTHER CONTRACT ACTIONS 1991
## OTHER FRAUD 250
## OTHER LABOR LITIGATION 209
## OTHER PERSONAL INJURY 804
## OTHER PERSONAL PROPERTY DAMAGE 259
## OTHER REAL PROPERTY ACTIONS 296
## OTHER STATUTORY ACTIONS 803
## PERSONAL INJURY -PRODUCT LIABILITY 2044
## PROPERTY DAMAGE -PRODUCT LIABILTY 90
## RENT, LEASE, EJECTMENT 28
## SECURITIES, COMMODITIES, EXCHANGE 270
## STOCKHOLDER'S SUITS 87
## TORT PRODUCT LIABILITY 162
## TORTS TO LAND 21
## TRADEMARK 450
## TRUTH IN LENDING 38
##
## ME
## ADMINISTRATIVE PROCEDURE ACT/REVIEW OR APPEAL OF AGENCY\nDECISION 18
## ANTITRUST 3
## ARBITRATION 7
## ASSAULT, LIBEL, AND SLANDER 28
## BANKS AND BANKING 2
## CIVIL RIGHTS ACCOMMODATIONS 13
## CIVIL RIGHTS ADA EMPLOYMENT 114
## CIVIL RIGHTS ADA OTHER 38
## CIVIL RIGHTS JOBS 300
## CONSUMER CREDIT 65
## CONTRACT FRANCHISE 8
## CONTRACT PRODUCT LIABILITY 5
## COPYRIGHT 16
## FAIR LABOR STANDARDS ACT 50
## FALSE CLAIMS ACT 20
## FAMILY AND MEDICAL LEAVE ACT 20
## FOOD AND DRUG ACTS 0
## HEALTH CARE / PHARM 72
## INSURANCE 98
## INTERSTATE COMMERCE 7
## LABOR/MANAGEMENT RELATIONS ACT 7
## LABOR/MANAGEMENT REPORT & DISCLOSURE 0
## MEDICAL MALPRACTICE 39
## MOTOR VEHICLE PERSONAL INJURY 44
## MOTOR VEHICLE PRODUCT LIABILITY 11
## NEGOTIABLE INSTRUMENTS 10
## OCCUPATIONAL SAFETY/HEALTH 2
## OTHER CIVIL RIGHTS 352
## OTHER CONTRACT ACTIONS 201
## OTHER FRAUD 25
## OTHER LABOR LITIGATION 15
## OTHER PERSONAL INJURY 144
## OTHER PERSONAL PROPERTY DAMAGE 20
## OTHER REAL PROPERTY ACTIONS 25
## OTHER STATUTORY ACTIONS 68
## PERSONAL INJURY -PRODUCT LIABILITY 78
## PROPERTY DAMAGE -PRODUCT LIABILTY 18
## RENT, LEASE, EJECTMENT 1
## SECURITIES, COMMODITIES, EXCHANGE 2
## STOCKHOLDER'S SUITS 0
## TORT PRODUCT LIABILITY 1
## TORTS TO LAND 5
## TRADEMARK 33
## TRUTH IN LENDING 3
##
## NH
## ADMINISTRATIVE PROCEDURE ACT/REVIEW OR APPEAL OF AGENCY\nDECISION 11
## ANTITRUST 2
## ARBITRATION 6
## ASSAULT, LIBEL, AND SLANDER 15
## BANKS AND BANKING 9
## CIVIL RIGHTS ACCOMMODATIONS 9
## CIVIL RIGHTS ADA EMPLOYMENT 77
## CIVIL RIGHTS ADA OTHER 42
## CIVIL RIGHTS JOBS 200
## CONSUMER CREDIT 110
## CONTRACT FRANCHISE 3
## CONTRACT PRODUCT LIABILITY 9
## COPYRIGHT 29
## FAIR LABOR STANDARDS ACT 29
## FALSE CLAIMS ACT 4
## FAMILY AND MEDICAL LEAVE ACT 15
## FOOD AND DRUG ACTS 0
## HEALTH CARE / PHARM 445
## INSURANCE 95
## INTERSTATE COMMERCE 3
## LABOR/MANAGEMENT RELATIONS ACT 6
## LABOR/MANAGEMENT REPORT & DISCLOSURE 0
## MEDICAL MALPRACTICE 33
## MOTOR VEHICLE PERSONAL INJURY 65
## MOTOR VEHICLE PRODUCT LIABILITY 2
## NEGOTIABLE INSTRUMENTS 7
## OCCUPATIONAL SAFETY/HEALTH 1
## OTHER CIVIL RIGHTS 266
## OTHER CONTRACT ACTIONS 237
## OTHER FRAUD 56
## OTHER LABOR LITIGATION 21
## OTHER PERSONAL INJURY 153
## OTHER PERSONAL PROPERTY DAMAGE 36
## OTHER REAL PROPERTY ACTIONS 52
## OTHER STATUTORY ACTIONS 138
## PERSONAL INJURY -PRODUCT LIABILITY 255
## PROPERTY DAMAGE -PRODUCT LIABILTY 16
## RENT, LEASE, EJECTMENT 8
## SECURITIES, COMMODITIES, EXCHANGE 18
## STOCKHOLDER'S SUITS 4
## TORT PRODUCT LIABILITY 28
## TORTS TO LAND 11
## TRADEMARK 27
## TRUTH IN LENDING 3
##
## RI
## ADMINISTRATIVE PROCEDURE ACT/REVIEW OR APPEAL OF AGENCY\nDECISION 11
## ANTITRUST 27
## ARBITRATION 11
## ASSAULT, LIBEL, AND SLANDER 15
## BANKS AND BANKING 9
## CIVIL RIGHTS ACCOMMODATIONS 15
## CIVIL RIGHTS ADA EMPLOYMENT 66
## CIVIL RIGHTS ADA OTHER 49
## CIVIL RIGHTS JOBS 234
## CONSUMER CREDIT 122
## CONTRACT FRANCHISE 4
## CONTRACT PRODUCT LIABILITY 6
## COPYRIGHT 22
## FAIR LABOR STANDARDS ACT 114
## FALSE CLAIMS ACT 16
## FAMILY AND MEDICAL LEAVE ACT 29
## FOOD AND DRUG ACTS 1
## HEALTH CARE / PHARM 67
## INSURANCE 210
## INTERSTATE COMMERCE 3
## LABOR/MANAGEMENT RELATIONS ACT 19
## LABOR/MANAGEMENT REPORT & DISCLOSURE 0
## MEDICAL MALPRACTICE 30
## MOTOR VEHICLE PERSONAL INJURY 47
## MOTOR VEHICLE PRODUCT LIABILITY 2
## NEGOTIABLE INSTRUMENTS 11
## OCCUPATIONAL SAFETY/HEALTH 0
## OTHER CIVIL RIGHTS 314
## OTHER CONTRACT ACTIONS 296
## OTHER FRAUD 40
## OTHER LABOR LITIGATION 17
## OTHER PERSONAL INJURY 149
## OTHER PERSONAL PROPERTY DAMAGE 25
## OTHER REAL PROPERTY ACTIONS 66
## OTHER STATUTORY ACTIONS 111
## PERSONAL INJURY -PRODUCT LIABILITY 347
## PROPERTY DAMAGE -PRODUCT LIABILTY 15
## RENT, LEASE, EJECTMENT 8
## SECURITIES, COMMODITIES, EXCHANGE 4
## STOCKHOLDER'S SUITS 12
## TORT PRODUCT LIABILITY 21
## TORTS TO LAND 10
## TRADEMARK 42
## TRUTH IN LENDING 11
##
## VT
## ADMINISTRATIVE PROCEDURE ACT/REVIEW OR APPEAL OF AGENCY\nDECISION 6
## ANTITRUST 9
## ARBITRATION 0
## ASSAULT, LIBEL, AND SLANDER 14
## BANKS AND BANKING 4
## CIVIL RIGHTS ACCOMMODATIONS 6
## CIVIL RIGHTS ADA EMPLOYMENT 17
## CIVIL RIGHTS ADA OTHER 15
## CIVIL RIGHTS JOBS 60
## CONSUMER CREDIT 15
## CONTRACT FRANCHISE 0
## CONTRACT PRODUCT LIABILITY 6
## COPYRIGHT 7
## FAIR LABOR STANDARDS ACT 18
## FALSE CLAIMS ACT 10
## FAMILY AND MEDICAL LEAVE ACT 3
## FOOD AND DRUG ACTS 0
## HEALTH CARE / PHARM 15
## INSURANCE 68
## INTERSTATE COMMERCE 5
## LABOR/MANAGEMENT RELATIONS ACT 3
## LABOR/MANAGEMENT REPORT & DISCLOSURE 0
## MEDICAL MALPRACTICE 39
## MOTOR VEHICLE PERSONAL INJURY 57
## MOTOR VEHICLE PRODUCT LIABILITY 3
## NEGOTIABLE INSTRUMENTS 6
## OCCUPATIONAL SAFETY/HEALTH 0
## OTHER CIVIL RIGHTS 201
## OTHER CONTRACT ACTIONS 154
## OTHER FRAUD 18
## OTHER LABOR LITIGATION 8
## OTHER PERSONAL INJURY 110
## OTHER PERSONAL PROPERTY DAMAGE 17
## OTHER REAL PROPERTY ACTIONS 10
## OTHER STATUTORY ACTIONS 46
## PERSONAL INJURY -PRODUCT LIABILITY 24
## PROPERTY DAMAGE -PRODUCT LIABILTY 14
## RENT, LEASE, EJECTMENT 1
## SECURITIES, COMMODITIES, EXCHANGE 9
## STOCKHOLDER'S SUITS 7
## TORT PRODUCT LIABILITY 4
## TORTS TO LAND 11
## TRADEMARK 27
## TRUTH IN LENDING 1Q4 What is the district that handles the largest number of civil cases?
Revise the barchart code below to find the answer. ### Massachusetts handles the largest number of civil cases.
# Create plot of align
ggplot(civilCases, aes(x = DISTRICT)) +
geom_bar()
Q5 Revise the code as instructed below. Don’t be surprised if your chart doesn’t look right. Explain the reason why.
The chart had too many variables on the x-axis, it was not useful nor informative because you aren’t able to pinpointcertain statistics.
# Plot proportion of gender, conditional on align
ggplot(civilCases, aes(x = DISTRICT, fill = nature_of_suit)) +
geom_bar(position = "fill") #position = "fill", to have a stacked barchart
Q6 Which district has the largest share of HEALTH CARE / PHARM cases?
Simplify the chart in Q5 by filtering for the top five categories in the nature of suit: ### Massachusetts
# Filter
civilCases_filtered <-
civilCases %>%
filter(nature_of_suit %in% c("HEALTH CARE/ PHARM", "OTHER CIVIL RIGHTS", "OTHER CONTRACT ACTIONS", "CIVIL RIGHTS JOBS", "PERSONAL INJURY -PRODUCT LIABILITY"))
# Plot proportion of gender, conditional on align
ggplot(civilCases_filtered, aes(x = DISTRICT, fill = nature_of_suit)) +
geom_bar(position = "fill") #position = "fill", to have a stacked barchart