Final Business Statsistics
Samantha O’Loughlin, Sarah Sargent, Tyler Stoever,and Jailen Lindsey
Import data
# Load package
library(dplyr)
library(ggplot2)
# Import data
data <- read.csv("data/NH.csv") # 1st row is the description of variables
# Convert to factors: some are imported as integers
data <-
data %>%
mutate_if(is.integer, factor)
# Basic descriptive statistics of data
summary(data)
## County DoNo CaseType FileDate
## BCDD : 58 211-2015-CV-00001: 1 2 :113 42492 : 8
## Belknap:351 211-2015-CV-00003: 1 37 : 38 42060 : 7
## 211-2015-CV-00004: 1 38 : 37 42510 : 6
## 211-2015-CV-00012: 1 4 : 29 42138 : 5
## 211-2015-CV-00013: 1 35 : 24 42620 : 5
## 211-2015-CV-00014: 1 47 : 22 42639 : 5
## (Other) :403 (Other):146 (Other):373
## PNames
## Discover Bank : 14
## Paugus Bay Plaza Condominium Association: 8
## Barcklay Bank Delaware : 7
## American Express Centurion Bank : 6
## Concord Hospital : 6
## Bank of New Hampshire : 5
## (Other) :363
## DNames ProSe
## Town of Gilford : 6 Both : 23
## Barry K. Meyers; Brenda M. Stowe: 2 Defendant:131
## Barry Myers : 2 Neither :216
## Brazilian Resources, Inc. : 2 Plaintiff: 19
## City of Laconia : 2 Some DF : 20
## LRG Healthcare : 2
## (Other) :393
## PLaw PFirm
## 9 : 42 9 : 42
## Robert L. O'Brien : 24 Schlee & Stillman, LLC : 24
## Michael J. Fontaine: 9 Welts, White, & Fontaine, P.C.: 16
## Benjamin R. Roberge: 8 Zwicker & Associates, P.C. : 16
## Edward D. Philpot : 8 Donais Law Offices, PLLC : 8
## Harvey J. Garod : 6 Martin, Lord, & Osman, P.A. : 8
## (Other) :312 (Other) :295
## EqReq MonReq LoC DLaw
## : 1 Min. : 0 0 :332 9 :156
## 9 : 2 1st Qu.: 1 15 : 7 Joseph D. Becher : 5
## No : 55 Median : 1 3 : 6 Daniel J. Orroth : 4
## Unknown: 4 Mean : 11819 8 : 6 Gary M. Burt : 4
## Yes :346 3rd Qu.: 1670 10 : 6 Laura Spector-Morgan: 4
## NA's : 1 Max. :1118000 11 : 6 (Other) :235
## (Other): 46 NA's : 1
## DFirm
## 9 :156
## Getman, Schulthess, Steere, & Poulin, P.A.: 11
## Mitchell Municipal Group, P.A. : 8
## Primmer, Piper, Eggleston, & Cramer, P.C. : 8
## Wescott Law, P.A. : 8
## (Other) :217
## NA's : 1
## X3d X3dLaw
## 0 :392 0 :397
## Andrew Howe; Martina Howe : 4 Ethan G. Wood : 4
## Donald A. Kennedy : 3 Donald A. Kennedy : 3
## Angela Pearl : 2 David W. Johnston : 1
## Belknap County Superior Court: 1 Frank P. Spinella, Jr.: 1
## Brenda Stowe : 1 Gregg M. Charest : 1
## (Other) : 6 (Other) : 2
## X3dFirm CtrCl CrsCl
## 0 :397 0:369 0:404
## Patrick Wood Law Office, PLLC : 4 1: 39 1: 4
## Law Office of Donald A. Kennedy: 2 2: 1 2: 1
## Devine, Millimet & Branch, P.A.: 1
## Frasca & Frasca Law Offices : 1
## Law Office of Gregg M. Charest : 1
## (Other) : 3
## Rec
## Ignatius : 4
## MacLeod; Borenstein: 1
## Na : 1
## O'Neill : 5
## NA's :398
##
##
## Rem
## HRC : 1
## Made the appeal and then withdrew, so NA (thought you'd like to know\x85 the guy sued NH and won!): 1
## Removed : 13
## Transfer : 4
## Transferred : 2
## NA's :388
##
## Judge OthMot
## O'Neill :260 None :125
## McNamara : 32 Motion for Entry of Final Judgment: 24
## O'Neill; Fauver : 5 Motion for Voluntary Nonsuit : 16
## Anderson; McNamara: 4 Assented to Motion to Continue : 10
## Colburn; McNamara : 4 Motion to Strike : 6
## (Other) : 52 Motion for Entry of Final Decree : 5
## NA's : 52 (Other) :223
## MTime MTA MTD DSJ PSJ DMIL
## 0 :284 0 :353 0 :342 0 :378 0 :384 0 :400
## 1 : 18 1 : 51 1 : 22 1 : 4 1 : 13 1; 10: 1
## 1; 2: 5 2 : 4 3 : 16 10 : 17 1;3: 1 1; 3 : 1
## 1;2 : 1 NA's: 1 10 : 11 2 : 1 10 : 4 10 : 4
## 2 :101 2 : 6 2; 4: 1 3 : 6 2; 4 : 1
## 1; 3 : 5 3 : 7 6 : 1 3; 10: 1
## (Other): 7 4 : 1 4 : 1
## PMIL Stp Arb TrialType DISP JMent
## 0 :403 0:236 No : 66 0: 14 3 :184 1 : 93
## 6 : 1 1:131 Yes : 55 1: 1 8 : 74 2 : 64
## 10: 5 2: 42 NA's:288 2: 4 7 : 42 9 : 15
## 8: 1 1 : 38 0 : 3
## 9:389 6 : 37 1; NA : 1
## (Other): 33 (Other): 2
## NA's : 1 NA's :231
## NOJ Award Eq TermDate Enforce
## 0 :260 Min. : 0 0 : 73 Open : 19 0 :377
## 1 : 73 1st Qu.: 0 1 : 3 42093 : 5 1 : 11
## 1; 0: 1 Median : 1 2 : 2 42263 : 5 1; 2: 3
## 2 : 3 Mean : 11170 3 : 6 42619 : 5 1; 3: 1
## 3 : 8 3rd Qu.: 1 9 :324 42579 : 4 2 : 4
## 9 : 62 Max. :1700000 34000: 1 (Other):370 3 : 13
## NA's: 2 NA's : 1
# Sturecture of data
str(data)
## 'data.frame': 409 obs. of 40 variables:
## $ County : Factor w/ 2 levels "BCDD","Belknap": 2 2 2 2 2 2 2 2 2 2 ...
## $ DoNo : Factor w/ 409 levels "211-2015-CV-00001",..: 136 137 138 139 140 141 142 143 144 145 ...
## $ CaseType : Factor w/ 41 levels "1","10","10; 26",..: 9 13 28 28 22 11 11 11 11 11 ...
## $ FileDate : Factor w/ 269 levels "2015-07031","41073",..: 133 133 134 134 135 136 136 137 138 138 ...
## $ PNames : Factor w/ 344 levels "A.O. Phaneuf & Son Funeral Home and Crematorium, Inc.; Cremation Society of New Hampshire, Inc.; Arthur Phaneuf",..: 21 236 259 259 15 71 72 157 207 12 ...
## $ DNames : Factor w/ 398 levels "223 D.W. Highway, LLC",..: 347 374 208 239 123 358 149 285 1 66 ...
## $ ProSe : Factor w/ 5 levels "Both","Defendant",..: 3 3 2 2 2 3 2 3 3 3 ...
## $ PLaw : Factor w/ 228 levels "9","A. Gerard O'Neil, Jr.",..: 209 118 16 16 84 151 151 62 202 190 ...
## $ PFirm : Factor w/ 171 levels "9","Abrahamsen Ratchford, P.C.",..: 156 94 45 45 121 168 168 123 83 136 ...
## $ EqReq : Factor w/ 5 levels "","9","No","Unknown",..: 5 5 5 5 5 5 5 5 5 5 ...
## $ MonReq : num 1 1 1436 2159 4928 ...
## $ LoC : Factor w/ 25 levels "0","2","3","4",..: 1 1 1 1 1 1 1 1 1 1 ...
## $ DLaw : Factor w/ 212 levels "9","Allison M. Ambrose",..: 107 110 1 1 1 172 1 156 1 1 ...
## $ DFirm : Factor w/ 162 levels "9","Azarian Law Office, PLLC",..: 132 99 1 1 1 81 1 148 1 1 ...
## $ X3d : Factor w/ 12 levels "0","Andrew Howe; Martina Howe",..: 1 2 1 1 1 1 1 1 1 1 ...
## $ X3dLaw : Factor w/ 8 levels "0","David W. Johnston",..: 1 4 1 1 1 1 1 1 1 1 ...
## $ X3dFirm : Factor w/ 9 levels "0","Devine, Millimet & Branch, P.A.",..: 1 7 1 1 1 1 1 1 1 1 ...
## $ CtrCl : Factor w/ 3 levels "0","1","2": 1 1 1 1 1 1 1 1 1 1 ...
## $ CrsCl : Factor w/ 3 levels "0","1","2": 1 1 1 1 1 1 1 1 1 1 ...
## $ Rec : Factor w/ 4 levels "Ignatius","MacLeod; Borenstein",..: NA NA NA NA NA NA NA NA NA NA ...
## $ Rem : Factor w/ 5 levels "HRC","Made the appeal and then withdrew, so NA (thought you'd like to know\x85 the guy sued NH and won!)",..: NA NA NA NA NA NA NA NA NA NA ...
## $ Judge : Factor w/ 37 levels "Abramson; Brown; McNamara",..: NA 26 NA 26 26 26 36 26 26 NA ...
## $ OthMot : Factor w/ 216 levels "Assented Motion to Continue",..: 216 172 216 216 13 43 44 139 216 216 ...
## $ MTime : Factor w/ 5 levels "0","1","1; 2",..: 1 1 1 2 1 1 1 5 1 1 ...
## $ MTA : Factor w/ 3 levels "0","1","2": 1 1 1 1 1 2 2 1 2 1 ...
## $ MTD : Factor w/ 11 levels "0","1","1; 3",..: 1 2 1 1 2 1 1 2 1 1 ...
## $ DSJ : Factor w/ 7 levels "0","1","10","2",..: 1 1 1 1 1 1 1 1 1 1 ...
## $ PSJ : Factor w/ 6 levels "0","1","1;3",..: 1 1 1 1 1 2 1 1 1 1 ...
## $ DMIL : Factor w/ 7 levels "0","1; 10","1; 3",..: 1 1 1 1 1 1 1 1 1 1 ...
## $ PMIL : Factor w/ 3 levels "0","6","10": 1 1 1 1 1 1 1 1 1 1 ...
## $ Stp : Factor w/ 3 levels "0","1","2": 1 1 1 1 1 1 1 1 1 1 ...
## $ Arb : Factor w/ 2 levels "No","Yes": NA NA NA NA NA NA NA NA NA NA ...
## $ TrialType: Factor w/ 5 levels "0","1","2","8",..: 5 5 5 5 3 5 5 5 5 5 ...
## $ DISP : Factor w/ 12 levels "1","10","2","2; 3",..: 5 1 10 10 1 2 9 1 10 10 ...
## $ JMent : Factor w/ 7 levels "0","1","1; NA",..: NA 4 NA NA NA NA 2 4 NA NA ...
## $ NOJ : Factor w/ 6 levels "0","1","1; 0",..: 6 6 6 6 6 6 4 6 6 6 ...
## $ Award : num 1 0 0 0 0 0 34000 0 0 0 ...
## $ Eq : Factor w/ 6 levels "0","1","2","3",..: 5 5 5 5 5 5 6 5 5 5 ...
## $ TermDate : Factor w/ 296 levels "41186","41402",..: 122 122 103 111 138 296 296 151 130 105 ...
## $ Enforce : Factor w/ 6 levels "0","1","1; 2",..: 1 1 1 1 1 1 2 1 1 1 ...Visualize Nature of Judgment
Nature of Judgment: is the final decision made by a court regarding the rights and liabilities of parties in a legal action or proceeding.
This data displays what type of award was given to the winning party.
Key Terms to know for this presentation:
Monetary Award: An order from the court giving one party a financial award.
Equity Award: Court ordered action to do or stop doing something.
Tort: a wrongful act or an infringement of a right leading to civil legal liability
Tort-automobile: A tort automobile is a wrong against another involving a vehicle, for example a car accident.
Contract: A contract is an agreement between two parties who trade promises that they will do something or not do something
Complaint for injunction/to enjoin foreclosure: when the court joins one of the parties in the case by ordering to do or not to do something to prevent permanent loss of the other party.
Understanding of data:
“1” is if the court awarded a monetary award only,“2” is if the court awarded a monetary award and equity, “3” is if the court awarded just equity, and “0” is if neither money nor equity was awarded
Chart 1- Total NOJ
Chart 1 shows that 73 cases were awarded money only, 3 cases were awarded money and equity, and 8 cases were awarded just equity, 260 cases did not award money or equity. N/A were cases awarded something not within those four categories.
data$NOJ <- factor(data$NOJ,
levels = c("1","2","3","0"))
ggplot(data, aes(x = NOJ)) +
geom_bar()
Chart 2 & 3- NOJ By County
Chart 2 and 3 break down Nature of Judgement based on county. The data is split between counties Belknap and Concord. This chart displays that the majority of cases in Belknap did not award money or equity and the majority of cases in Concord also did not award money or equity.
ggplot(data,aes(x = NOJ))+
geom_bar()+
facet_wrap(~ County)
# Plot proportion
data %>%
# Filter out
filter(NOJ %in% c("0","1","2","3")) %>%
ggplot(aes(x = County, fill = NOJ)) +
geom_bar(position = "fill") + #position = "fill", to have a stacked barchart
coord_flip()
Chart 4 & 5- NOJ By CaseType
Charts 4 and 5 look at what types of cases awarded what nature of judgement. The first chart shows all cases by nature of judgement and the second chart filters out the least common case types.
The second chart displays the awards given to case types 38, 37, and 2. 38 being complaint for injunction/to enjoin foreclosure, 37 being tort- automobile and 2 being contract-collection.
Case type 37 receieved no money or equity in all final decisions, case type 38 had a majority final decision of no money or equity with some awarded just equity and some awarded just money. Case type 2 was the only case in this chart to have cases awarded money and equity together.
# Add 2nd variable to color
data %>%
# Filter out
filter(NOJ %in% c("0","1","2","3")) %>%
ggplot(aes(x = CaseType, fill = NOJ)) +
geom_bar() +
coord_flip()
library(forcats)
# Narrow down to top categories
data %>%
# Filter out
filter(NOJ %in% c("0","1","2","3")) %>%
# Lump together least common factor levels into "other"
mutate(CaseType = fct_lump(CaseType, 3)) %>%
filter(CaseType != "Other") %>%
ggplot(aes(x = CaseType, fill = NOJ)) +
geom_bar() +
coord_flip()
Chart 6- NOJ By Judge
Chart 6 displays the type of award given by what judge. This chart filters out the least common judges leaving O’Neil, McNamara, and cases with judges O’Neil and Fauver.
All three judges mostly did not award money or equity.
library(forcats)
# Plot proportion
data %>%
# Filter out
filter(NOJ %in% c("0","1","2","3")) %>%
# Lump together least common factor levels into "other"
mutate(Judge = fct_lump(Judge, 3)) %>%
filter(Judge != "Other") %>%
ggplot(aes(x = Judge, fill = NOJ)) +
geom_bar(position = "fill") + #position = "fill", to have a stacked barchart
coord_flip()