Quiz on Exploratory Data Analysis
Melissa Fonsea
- Q1 How many cases are there?
- Q2 List all values in District variable.
- Q3 How many HEALTH CARE / PHARM cases were filed in New Hampshire?
- Q4 What is the district that handles the largest number of civil cases?
- Q5 Revise the code as instructed below. Don’t be surprised if your chart doesn’t look right. Explain the reason why.
- Q6 Which district has the largest share of HEALTH CARE / PHARM cases?
Download the cv2010on.csv file from Moodle; save it in your computer; and upload it into the data folder of your RStudio. Revise the read.csv code line so that the code matches both the name and address of the data file. The data contains civil cases filed at the federal district courts in six New England States in 2011 and on. The row represents civil cases, and the column their characteristics. DEF stands for defendants; PLT plaintiffs; and nature_of_suit type of lawsuits. Change cv2010on to cv2010on.
Q1 How many cases are there?
There are 36,643 cases
# 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
cv2010on <- read.csv("/resources/rstudio/BusinessStatistics/Data/cv2010on.csv")
# Convert data to tbl_df
cv2010on <- tbl_df(cv2010on)
str(cv2010on)
## Classes 'tbl_df', 'tbl' and '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\n\nDECISION",..: 7 37 9 28 28 29 28 9 29 19 ...
summary(cv2010on)
## DISTRICT PLT DEF
## CT: 9718 SMITH : 185 FRESENIUS MEDICAL CARE , ET AL: 3590
## MA:18705 SEALED : 173 ATRIUM MEDICAL CORPORAT, ET AL: 617
## ME: 1988 BROWN : 165 GLAXOSMITHKLINE LLC : 439
## NH: 2556 JOHNSON : 154 FRESENIUS USA, INC., ET AL : 379
## RI: 2628 WILLIAMS: 149 DAVOL, INC., ET AL : 189
## VT: 1048 MARRADI : 146 BOSTON SCIENTIFIC CORP. : 179
## (Other) :35671 (Other) :31250
## FILEYEAR NOS nature_of_suit
## Min. :2011 Min. :110.0 HEALTH CARE / PHARM : 5145
## 1st Qu.:2013 1st Qu.:360.0 OTHER CIVIL RIGHTS : 4101
## Median :2014 Median :367.0 OTHER CONTRACT ACTIONS : 3945
## Mean :2014 Mean :422.1 CIVIL RIGHTS JOBS : 3026
## 3rd Qu.:2016 3rd Qu.:443.0 PERSONAL INJURY -PRODUCT LIABILITY: 2988
## Max. :2018 Max. :899.0 OTHER PERSONAL INJURY : 2035
## (Other) :15403Q2 List all values in District variable.
“CT”, “MA”, “ME”, “NH”, “RI”, “VT” Revise the level code below so that R returns all levels (values) in the id variable.
levels(cv2010on$DISTRICT)
## [1] "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.
445 HEALTH CARE/PHARM cases in NH
# Check the levels of gender
levels(cv2010on$nature_of_suit)
## [1] "ADMINISTRATIVE PROCEDURE ACT/REVIEW OR APPEAL OF AGENCY\n\nDECISION"
## [2] "ANTITRUST"
## [3] "ARBITRATION"
## [4] "ASSAULT, LIBEL, AND SLANDER"
## [5] "BANKS AND BANKING"
## [6] "CIVIL RIGHTS ACCOMMODATIONS"
## [7] "CIVIL RIGHTS ADA EMPLOYMENT"
## [8] "CIVIL RIGHTS ADA OTHER"
## [9] "CIVIL RIGHTS JOBS"
## [10] "CONSUMER CREDIT"
## [11] "CONTRACT FRANCHISE"
## [12] "CONTRACT PRODUCT LIABILITY"
## [13] "COPYRIGHT"
## [14] "FAIR LABOR STANDARDS ACT"
## [15] "FALSE CLAIMS ACT"
## [16] "FAMILY AND MEDICAL LEAVE ACT"
## [17] "FOOD AND DRUG ACTS"
## [18] "HEALTH CARE / PHARM"
## [19] "INSURANCE"
## [20] "INTERSTATE COMMERCE"
## [21] "LABOR/MANAGEMENT RELATIONS ACT"
## [22] "LABOR/MANAGEMENT REPORT & DISCLOSURE"
## [23] "MEDICAL MALPRACTICE"
## [24] "MOTOR VEHICLE PERSONAL INJURY"
## [25] "MOTOR VEHICLE PRODUCT LIABILITY"
## [26] "NEGOTIABLE INSTRUMENTS"
## [27] "OCCUPATIONAL SAFETY/HEALTH"
## [28] "OTHER CIVIL RIGHTS"
## [29] "OTHER CONTRACT ACTIONS"
## [30] "OTHER FRAUD"
## [31] "OTHER LABOR LITIGATION"
## [32] "OTHER PERSONAL INJURY"
## [33] "OTHER PERSONAL PROPERTY DAMAGE"
## [34] "OTHER REAL PROPERTY ACTIONS"
## [35] "OTHER STATUTORY ACTIONS"
## [36] "PERSONAL INJURY -PRODUCT LIABILITY"
## [37] "PROPERTY DAMAGE -PRODUCT LIABILTY"
## [38] "RENT, LEASE, EJECTMENT"
## [39] "SECURITIES, COMMODITIES, EXCHANGE"
## [40] "STOCKHOLDER'S SUITS"
## [41] "TORT PRODUCT LIABILITY"
## [42] "TORTS TO LAND"
## [43] "TRADEMARK"
## [44] "TRUTH IN LENDING"
# Create a 2-way contingency table
tab <- table(cv2010on$nature_of_suit, cv2010on$DISTRICT)
# Print tab
tab
##
## CT
## ADMINISTRATIVE PROCEDURE ACT/REVIEW OR APPEAL OF AGENCY\n\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\n\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\n\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\n\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\n\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\n\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.
MA District handles the largest number of civil cases.
# Create plot of align
ggplot(cv2010on, 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.
I honestly am not completely sure why the bar chart doesn’t look right, maybe because there are too many factors, or maybe there is too much data and it can’t fit everything properly because this is a very large data set. Or maybe it’s because it isn’t filtered, maybe we need to filter the information to make it clear and concise.
# Map district to the x-axis and nature of suit to color.
ggplot(cv2010on, 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:
MA District has the largest share of healthcare/pharm cases
- HEALTH CARE / PHARM
- OTHER CIVIL RIGHTS
- OTHER CONTRACT ACTIONS
- CIVIL RIGHTS JOBS
- PERSONAL INJURY -PRODUCT LIABILITY
Revise the filter code below.
# Filter
cv2010on_filtered <-
cv2010on %>%
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(cv2010on_filtered, aes(x = DISTRICT, fill = nature_of_suit)) +
geom_bar(position = "fill") #position = "fill", to have a stacked barchart