NYC Data Science Academy| Blog
Bootcamps
Lifetime Job Support Available Financing Available
Bootcamps
Data Science with Machine Learning Flagship ๐Ÿ† Data Analytics Bootcamp Artificial Intelligence Bootcamp New Release ๐ŸŽ‰
Free Lesson
Intro to Data Science New Release ๐ŸŽ‰
Find Inspiration
Find Alumni with Similar Background
Job Outlook
Occupational Outlook Graduate Outcomes Must See ๐Ÿ”ฅ
Alumni
Success Stories Testimonials Alumni Directory Alumni Exclusive Study Program
Courses
View Bundled Courses
Financing Available
Bootcamp Prep Popular ๐Ÿ”ฅ Data Science Mastery Data Science Launchpad with Python View AI Courses Generative AI for Everyone New ๐ŸŽ‰ Generative AI for Finance New ๐ŸŽ‰ Generative AI for Marketing New ๐ŸŽ‰
Bundle Up
Learn More and Save More
Combination of data science courses.
View Data Science Courses
Beginner
Introductory Python
Intermediate
Data Science Python: Data Analysis and Visualization Popular ๐Ÿ”ฅ Data Science R: Data Analysis and Visualization
Advanced
Data Science Python: Machine Learning Popular ๐Ÿ”ฅ Data Science R: Machine Learning Designing and Implementing Production MLOps New ๐ŸŽ‰ Natural Language Processing for Production (NLP) New ๐ŸŽ‰
Find Inspiration
Get Course Recommendation Must Try ๐Ÿ’Ž An Ultimate Guide to Become a Data Scientist
For Companies
For Companies
Corporate Offerings Hiring Partners Candidate Portfolio Hire Our Graduates
Students Work
Students Work
All Posts Capstone Data Visualization Machine Learning Python Projects R Projects
Tutorials
About
About
About Us Accreditation Contact Us Join Us FAQ Webinars Subscription An Ultimate Guide to
Become a Data Scientist
    Login
NYC Data Science Acedemy
Bootcamps
Courses
Students Work
About
Bootcamps
Bootcamps
Data Science with Machine Learning Flagship
Data Analytics Bootcamp
Artificial Intelligence Bootcamp New Release ๐ŸŽ‰
Free Lessons
Intro to Data Science New Release ๐ŸŽ‰
Find Inspiration
Find Alumni with Similar Background
Job Outlook
Occupational Outlook
Graduate Outcomes Must See ๐Ÿ”ฅ
Alumni
Success Stories
Testimonials
Alumni Directory
Alumni Exclusive Study Program
Courses
Bundles
financing available
View All Bundles
Bootcamp Prep
Data Science Mastery
Data Science Launchpad with Python NEW!
View AI Courses
Generative AI for Everyone
Generative AI for Finance
Generative AI for Marketing
View Data Science Courses
View All Professional Development Courses
Beginner
Introductory Python
Intermediate
Python: Data Analysis and Visualization
R: Data Analysis and Visualization
Advanced
Python: Machine Learning
R: Machine Learning
Designing and Implementing Production MLOps
Natural Language Processing for Production (NLP)
For Companies
Corporate Offerings
Hiring Partners
Candidate Portfolio
Hire Our Graduates
Students Work
All Posts
Capstone
Data Visualization
Machine Learning
Python Projects
R Projects
About
Accreditation
About Us
Contact Us
Join Us
FAQ
Webinars
Subscription
An Ultimate Guide to Become a Data Scientist
Tutorials
Data Analytics
  • Learn Pandas
  • Learn NumPy
  • Learn SciPy
  • Learn Matplotlib
Machine Learning
  • Boosting
  • Random Forest
  • Linear Regression
  • Decision Tree
  • PCA
Interview by Companies
  • JPMC
  • Google
  • Facebook
Artificial Intelligence
  • Learn Generative AI
  • Learn ChatGPT-3.5
  • Learn ChatGPT-4
  • Learn Google Bard
Coding
  • Learn Python
  • Learn SQL
  • Learn MySQL
  • Learn NoSQL
  • Learn PySpark
  • Learn PyTorch
Interview Questions
  • Python Hard
  • R Easy
  • R Hard
  • SQL Easy
  • SQL Hard
  • Python Easy
Data Science Blog > Student Works > Data Analyzing Malpractice Lawsuits in Shiny-R: 2004-2012

Data Analyzing Malpractice Lawsuits in Shiny-R: 2004-2012

reddysumanth
Posted on Jul 22, 2015

Project GitHub | LinkedIn:   Niki   Moritz   Hao-Wei   Matthew   Oren

The skills we demoed here can be learned through taking Data Science with Machine Learning bootcamp with NYC Data Science Academy.

You can play around with the app here: Visualization of Malpractice Lawsuits

Despite saving lives every day, medical professionals get sued by their patients quite often.  Over the nine year period spanning 2004 to 2012, over 123,000 patients successfully sued for malpractice. There is a broad spectrum of reasons as to why this happens, whether it be a mistake by a professional or an overly upset patient. While I acknowledge that doctors are going to make fatal mistakes on occasion, I wanted to test whether or not patients and malpractice lawyers have a tendency to exploit the system.

I began with a very large csv file I found on Enigma (source). Most of my initial work came in the form of data cleansing, as more than two thirds of the observations containing missing data. This made interpreting certain numerical columns a challenging exercise, as it wasn't always clear what caused missing data. For example, if the payout on a lawsuit was 'NA', did that mean that the data was missing? Or did the patient get paid nothing? There also was an overwhelming 71 columns to look at as potential variables!

Since this data-set was so rich, I made the decision to cherry pick the variables that I deemed most relevant. So initially, I asked myself the simplest filtering questions I could:

What does the distribution of malpractice payments look like?

Do certain medical professionals get sued more than others?

What type of patients are most likely to file a malpractice lawsuit?

Based on these questions, I decided my most important variables were 'Total Payment','Profession of the defendant','Allegation against the defendant', and 'Outcome of the Patient'.

After selecting the  variables,  I had to find a way to visualize and interpret them. The only numerical variable was 'Total Payment', while the rest were categorical with at least 10 levels. Rather than force my own direction on the application, I decided that allowing the user to subset and compare data from all of these categories was the best way to go. This was a relatively simple task using Shiny R.

Shiny in R:

library(shiny)
ma = readRDS("data/final.RDS")
shinyUI(navbarPage("Interpreting Malpractice Lawsuits",
  tabPanel("By Payment",
      sidebarPanel(      
        selectInput("outcome", "Choose what happened to the patient:",
           choices=c("All","Death","Unknown","Emotional Injury","Insignificant",
                                                  "Major Permanent Injury", "Major Temporary Injury",
                                                  "Minor Permanent Injury", "Minor Temporary Injury",
                                                  "Significant Permanent Injury","Quadriplegic Brain Damage Lifelong Care"
                                                  )),
        checkboxGroupInput('vars', 'Compare allegations against the professional:',
                           choices=levels(ma$allegation)[-(1:2)], selected = "Anesthesia Related"),
        hr(),
        helpText("Specify a range of total payment"),
        sliderInput("payrange",label = "Payment Range (millions):",min=0,max=30,value=c(0,1.5),step=0.5),
        submitButton("Update Density plot")
      ),
    mainPanel(h4("What is the distribution of malpractice payments?"),
            plotOutput("hist"),
            h4("Summary Statistics in millions of dollars:"),
            verbatimTextOutput("summary"))
            
    )
library(ggplot2)
library(dplyr)
library(shiny)
ma = readRDS("data/final.RDS")

ma$total_pay = ma$total_pay/(1e6)

result = ma$patient_outcome
shinyServer(
  function(input, output) {
#     output$imag1 = renderImage({
#       src="img/patient.gif"
#     })
    output$hist <- renderPlot({
      injury <<-  switch(input$outcome,
               "All" = ma,
               "Death" = ma[result == 'Death',],
               "Unknown" = ma[result == 'Cannot Be Determined from Available Records',],
               "Emotional Injury" = ma[result =='Emotional Injury Only',],
               "Insignificant" = ma[result =='Insignificant Injury',],
               "Major Permanent Injury" = ma[result =='Major Permanent Injury',], 
               "Major Temporary Injury" = ma[result =='Major Temporary Injury',],
               "Minor Permanent Injury" = ma[result =='Minor Permanent Injury',], 
               "Minor Temporary Injury" = ma[result =='Minor Temporary Injury',],
               "Significant Permanent Injury" = ma[result =='Significant Permanent Injury',],
               "Quadriplegic Brain Damage Lifelong Care" = ma[result =='Quadriplegic Brain Damage Lifelong Care',]       
               )
      payswitch <<- filter(injury, allegation %in% input$vars, total_pay<=input$payrange[2],total_pay>=input$payrange[1])
               
      qplot(total_pay, data = payswitch, geom = "density",color = allegation,xlab="Total Payment (millions of dollars)",main="Density of lawsuit payments by patient outcome") +
        coord_cartesian(xlim = c(input$payrange[1],input$payrange[2])) +
        scale_x_continuous(breaks=seq(0,input$payrange[2], input$payrange[2]/10))
    })

      output$summary = renderText({
        payswitch <<- filter(injury, allegation %in% input$vars, total_pay<=input$payrange[2],total_pay>=input$payrange[1])
        
        paste0(
          "Minimum: ", summary(payswitch$total_pay)[1],"n",
            "Maximum: ", summary(payswitch$total_pay)[6],"n",
            "Average: ", summary(payswitch$total_pay)[4],"n",
            "1st Quantile: ", summary(payswitch$total_pay)[2],"n",
            "Median: ", summary(payswitch$total_pay)[3],"n",
            
            "3rd Quantile: ", summary(payswitch$total_pay)[5]                    )
         })

While this may look overwhelming to someone without R experience, the code is actually fairly straightforward. On the user-interface side, a list of choices is given for each input. On the server side, each input choice selected by the user is fed into the switch function which appropriately filters the data. Once the user submits his/her choices, the graph is created and we can finally begin answering our questions!

Q1: What is the distribution of Malpractice Payments?

Screen Shot 2015-07-21 at 6.32.03 PM

 With so many ways to filter a rich data-set,  it was extremely important to be able to graphically compare specific categories. Thanks to Shiny, this can easily be accomplished with a few lines of code. The average successful malpractice lawsuit results in a payment of around $260,000, but this is highly influenced by some of the larger payments. The first quantile value is much more revealing, saying that the highest proportion of malpractice lawsuits result in a payment under $50,000.

Looking more closely at the density plot, we can see that many allegation curves share a similar density spike around $500,000, and $1 million. I believe this is reflective of an underlying structure in allegations against the defendant as they relate to total payment and look forward to analyzing this further.

Q2: Which medical professionals are found guilty of malpractice most often?

Screen Shot 2015-07-21 at 6.31.24 PM

I thought that comparing lawsuit counts by professional would be more fruitful, but unfortunately there isn't much beyond the superficial. Allopathic Physicians (M.D.) top the list of sued practitioners with dentists coming in a very distant second. While there were nearly 100 different types of professionals that have faced a malpractice lawsuit, the number of these less frequent types was so small in comparison to the the top 10 most-sued professions that it didn't make sense to include them.

The most interesting thing I found in this comparison plot was that hospitals seem to go out of their way to shield nurses and especially interns/residents from lawsuits. Their respective bars are shockingly small in comparison to MDs. Shouldn't these employees be making more mistakes than the experienced doctors?

In truth, they are. Interns and residents are guaranteed to experience plenty of growing pains, and will almost certainly make a mistake(s) that result in a patient's death. That said, the confidence of these interns and residents can be fragile, and it is important to protect them through their growing process. As a result, the attending physician almost always takes the heat.

Q3: Are certain types of patients more likely to sue than others?

Screen Shot 2015-07-21 at 6.30.59 PM

This was the question I was most interested in answering: Are certain patients exploiting the system to make off with a quick score? The summary statistics encompassing all categories paint a vague picture showing that women file 33% more lawsuits than men but are also awarded less money. This raises an important question: If women are filing more successful lawsuits, shouldn't they be getting paid more?

By Patient

Filtering the data by the patient outcomes of "Insignificant Injury", "Minor Temporary Injury", and "Emotional Injury" produced some interesting results. Female patients who suffered insignificant or minor temporary injury were 100% more likely to file a lawsuit than men, and those who suffered emotional injury were beyond 200% more likely to sue than men. Given this, it seems like women are more likely to file lawsuits of a minor nature.

However, it should be noted that insignificant or emotional injuries represent a very small fraction (6.4%) of the pool of successful lawsuits by female patients.

The exploratory nature of this project was a lot of fun, but as a Data Scientist, I feel my work is incomplete; these comparative graphs were my way of performing only a superficial analysis of the problem. I left out many potentially significant variables, and I feel that a data-set this rich demands some machine learning methods to provide more valuable insight. Check back soon for a more thorough analysis.

About Author

reddysumanth

View all posts by reddysumanth >

Leave a Comment

Cancel reply

You must be logged in to post a comment.

No comments found.

View Posts by Categories

All Posts 2399 posts
AI 7 posts
AI Agent 2 posts
AI-based hotel recommendation 1 posts
AIForGood 1 posts
Alumni 60 posts
Animated Maps 1 posts
APIs 41 posts
Artificial Intelligence 2 posts
Artificial Intelligence 2 posts
AWS 13 posts
Banking 1 posts
Big Data 50 posts
Branch Analysis 1 posts
Capstone 206 posts
Career Education 7 posts
CLIP 1 posts
Community 72 posts
Congestion Zone 1 posts
Content Recommendation 1 posts
Cosine SImilarity 1 posts
Data Analysis 5 posts
Data Engineering 1 posts
Data Engineering 3 posts
Data Science 7 posts
Data Science News and Sharing 73 posts
Data Visualization 324 posts
Events 5 posts
Featured 37 posts
Function calling 1 posts
FutureTech 1 posts
Generative AI 5 posts
Hadoop 13 posts
Image Classification 1 posts
Innovation 2 posts
Kmeans Cluster 1 posts
LLM 6 posts
Machine Learning 364 posts
Marketing 1 posts
Meetup 144 posts
MLOPs 1 posts
Model Deployment 1 posts
Nagamas69 1 posts
NLP 1 posts
OpenAI 5 posts
OpenNYC Data 1 posts
pySpark 1 posts
Python 16 posts
Python 458 posts
Python data analysis 4 posts
Python Shiny 2 posts
R 404 posts
R Data Analysis 1 posts
R Shiny 560 posts
R Visualization 445 posts
RAG 1 posts
RoBERTa 1 posts
semantic rearch 2 posts
Spark 17 posts
SQL 1 posts
Streamlit 2 posts
Student Works 1687 posts
Tableau 12 posts
TensorFlow 3 posts
Traffic 1 posts
User Preference Modeling 1 posts
Vector database 2 posts
Web Scraping 483 posts
wukong138 1 posts

Our Recent Popular Posts

AI 4 AI: ChatGPT Unifies My Blog Posts
by Vinod Chugani
Dec 18, 2022
Meet Your Machine Learning Mentors: Kyle Gallatin
by Vivian Zhang
Nov 4, 2020
NICU Admissions and CCHD: Predicting Based on Data Analysis
by Paul Lee, Aron Berke, Bee Kim, Bettina Meier and Ira Villar
Jan 7, 2020

View Posts by Tags

#python #trainwithnycdsa 2019 2020 Revenue 3-points agriculture air quality airbnb airline alcohol Alex Baransky algorithm alumni Alumni Interview Alumni Reviews Alumni Spotlight alumni story Alumnus ames dataset ames housing dataset apartment rent API Application artist aws bank loans beautiful soup Best Bootcamp Best Data Science 2019 Best Data Science Bootcamp Best Data Science Bootcamp 2020 Best Ranked Big Data Book Launch Book-Signing bootcamp Bootcamp Alumni Bootcamp Prep boston safety Bundles cake recipe California Cancer Research capstone car price Career Career Day ChatGPT citibike classic cars classpass clustering Coding Course Demo Course Report covid 19 credit credit card crime frequency crops D3.js data data analysis Data Analyst data analytics data for tripadvisor reviews data science Data Science Academy Data Science Bootcamp Data science jobs Data Science Reviews Data Scientist Data Scientist Jobs data visualization database Deep Learning Demo Day Discount disney dplyr drug data e-commerce economy employee employee burnout employer networking environment feature engineering Finance Financial Data Science fitness studio Flask flight delay football gbm Get Hired ggplot2 googleVis H20 Hadoop hallmark holiday movie happiness healthcare frauds higgs boson Hiring hiring partner events Hiring Partners hotels housing housing data housing predictions housing price hy-vee Income industry Industry Experts Injuries Instructor Blog Instructor Interview insurance italki Job Job Placement Jobs Jon Krohn JP Morgan Chase Kaggle Kickstarter las vegas airport lasso regression Lead Data Scienctist Lead Data Scientist leaflet league linear regression Logistic Regression machine learning Maps market matplotlib Medical Research Meet the team meetup methal health miami beach movie music Napoli NBA netflix Networking neural network Neural networks New Courses NHL nlp NYC NYC Data Science nyc data science academy NYC Open Data nyc property NYCDSA NYCDSA Alumni Online Online Bootcamp Online Training Open Data painter pandas Part-time performance phoenix pollutants Portfolio Development precision measurement prediction Prework Programming public safety PwC python Python Data Analysis python machine learning python scrapy python web scraping python webscraping Python Workshop R R Data Analysis R language R Programming R Shiny r studio R Visualization R Workshop R-bloggers random forest Ranking recommendation recommendation system regression Remote remote data science bootcamp Scrapy scrapy visualization seaborn seafood type Selenium sentiment analysis sentiment classification Shiny Shiny Dashboard Spark Special Special Summer Sports statistics streaming Student Interview Student Showcase SVM Switchup Tableau teachers team team performance TensorFlow Testimonial tf-idf Top Data Science Bootcamp Top manufacturing companies Transfers tweets twitter videos visualization wallstreet wallstreetbets web scraping Weekend Course What to expect whiskey whiskeyadvocate wildfire word cloud word2vec XGBoost yelp youtube trending ZORI

NYC Data Science Academy

NYC Data Science Academy teaches data science, trains companies and their employees to better profit from data, excels at big data project consulting, and connects trained Data Scientists to our industry.

NYC Data Science Academy is licensed by New York State Education Department.

Get detailed curriculum information about our
amazing bootcamp!

Please enter a valid email address
Sign up completed. Thank you!

Offerings

  • HOME
  • DATA SCIENCE BOOTCAMP
  • ONLINE DATA SCIENCE BOOTCAMP
  • Professional Development Courses
  • CORPORATE OFFERINGS
  • HIRING PARTNERS
  • About

  • About Us
  • Alumni
  • Blog
  • FAQ
  • Contact Us
  • Refund Policy
  • Join Us
  • SOCIAL MEDIA

    ยฉ 2025 NYC Data Science Academy
    All rights reserved. | Site Map
    Privacy Policy | Terms of Service
    Bootcamp Application