IT Hacking Cases Currently Under Investigation in 2023

IT Hacking Cases Currently Under Investigation in 2023

As required by section 13402(e)(4) of the HITECH Act, the Secretary must post a list of breaches of unsecured protected health information affecting 500 or more individuals. The following breaches have been reported to the Secretary:

# Install and load the necessary libraries
install.packages("plotly")
library(plotly)

# Given data
data <- data.frame(
  State = c("VA", "OK", "MA", "IL", "IL", "IL", "TX", "AZ", "TX", "CT", "OH", "NY", 
            # ... (continuing data)
            "TX", "FL"),
  Individuals_Affected = c(10140, 500, 134394, 192231, 126000, 248943, 599367, 47485, 501, 527, 
                           # ... (continuing data)
                           1064, 5264, 1039, 61170)
)

# Define a pastel color palette
pastel_colors <- c("#7BA3E8", "#B5EAD7", "#FFC3A0", "#FF677D", "#D4A5A5", "#9B5DE5", "#F15BB5", "#FEE440", "#00BBF9", "#00F5D4", 
                   "#F9DC5C", "#32CCBC", "#D8B5A5", "#B8F2E6", "#B3B3B3", "#FFC3A0", "#F9F9F9", "#DADADA", "#E7A977", "#FF677D", 
                   "#D4A5A5", "#8A84E2", "#C27BA0", "#FF8C42", "#36A2EB", "#4BC0C8", "#7ED321", "#F15BB5", "#FFC3A0", "#32CCBC", 
                   "#D8B5A5", "#B8F2E6", "#B3B3B3", "#E7A977", "#FF677D", "#D4A5A5", "#B5EAD7", "#FFC3A0", "#D8B5A5", "#FF8C42", 
                   "#36A2EB", "#7ED321", "#F9DC5C", "#32CCBC", "#D8B5A5", "#B8F2E6", "#B3B3B3", "#FFC3A0", "#F9F9F9", "#DADADA", 
                   "#E7A977", "#FF677D", "#D4A5A5", "#8A84E2", "#C27BA0", "#FF8C42", "#36A2EB", "#4BC0C8", "#7ED321", "#F15BB5")

# Create an interactive bar plot using plotly with pastel colors
plot <- plot_ly(data, x = ~State, y = ~Individuals_Affected, type = 'bar',
                marker = list(color = pastel_colors,
                              line = list(color = 'rgb(8,48,107)', width = 1.5))) %>%
  layout(title = "IT Hacking Cases Currently Under Investigation in 2023",
         xaxis = list(title = "State"),
         yaxis = list(title = "Individuals Affected"))

# Display the interactive plot
plot