Executive Summary

Cybersecurity threats have evolved into one of the most critical business risks for modern organizations. This project analyzes cybersecurity incidents, breach costs, industry exposure, and cyberattack patterns using data visualization techniques. The goal is to communicate complex cybersecurity trends using business-focused visual storytelling.

Data Sources

Load Libraries

Figure 1: Cybersecurity Breaches Over Time

years <- c(2018, 2019, 2020, 2021, 2022)
breaches <- c(1200, 1450, 2100, 2600, 3200)

plot(years, breaches, type = "o",
     main = "Cybersecurity Breaches Over Time",
     xlab = "Year",
     ylab = "Number of Breaches")

Business Insight:
The number of cybersecurity breaches increased significantly after 2020 due to accelerated digital adoption and remote work trends.

Figure 2: Average Breach Cost by Industry

industry <- c("Healthcare","Finance","Retail","Technology","Manufacturing")
costs <- c(10.2, 7.5, 5.1, 4.9, 4.3)

barplot(costs,
        names.arg = industry,
        main = "Average Breach Cost by Industry",
        ylab = "Cost (Million USD)")

Business Insight:
Healthcare and finance sectors face the highest financial impact because of sensitive customer data and regulatory exposure.

Figure 3: Detection Time vs Breach Cost

detect <- c(100,150,200,250,300)
breach_cost <- c(3,4.5,6,7.5,9)

plot(detect, breach_cost,
     main = "Detection Time vs Breach Cost",
     xlab = "Detection Days",
     ylab = "Cost (Million USD)",
     pch = 19)

Business Insight:
Delayed breach detection increases financial losses significantly.

Figure 4: Distribution of Cyberattack Types

attack <- c("Phishing","Ransomware","Malware","Insider","DDoS")
counts <- c(40,25,15,10,10)

pie(counts,
    labels = attack,
    main = "Distribution of Cyberattack Types")

Business Insight:
Phishing and ransomware remain the dominant cybersecurity threats globally.

Figure 5: Geographic Cyber Risk Heatmap

heat <- matrix(c(90,80,70,
                 75,95,85,
                 60,70,88),
               nrow = 3,
               byrow = TRUE)

image(1:3, 1:3, heat,
      main = "Geographic Cyber Risk Heatmap",
      xlab = "Industry",
      ylab = "Region")

Business Insight:
North America and Europe report higher cyber risk levels due to greater digital maturity.

Figure 6: Distribution of Industry Breach Costs

boxplot(costs,
        main = "Distribution of Industry Breach Costs",
        ylab = "Cost (Million USD)")

Business Insight:
Healthcare and finance sectors display higher variability in breach costs.

Figure 7: Industries Most Targeted

incidents <- c(320,280,240,180,150)

barplot(incidents,
        horiz = TRUE,
        names.arg = industry,
        main = "Industries Most Targeted",
        xlab = "Incident Count")

Business Insight:
Finance and healthcare remain primary targets because of valuable customer data.

Figure 8: Cybersecurity Correlation Matrix

corr <- matrix(c(1,0.82,0.76,
                 0.82,1,0.68,
                 0.76,0.68,1),
               nrow = 3,
               byrow = TRUE)

image(1:3, 1:3, corr,
      main = "Cybersecurity Correlation Matrix",
      xlab = "Metrics",
      ylab = "Metrics")

Business Insight:
There is a strong relationship between breach frequency, delayed detection, and financial impact.

Key Findings

  1. Cybersecurity breaches continue to increase globally.
  2. Healthcare and finance sectors experience the highest breach costs.
  3. Delayed breach detection significantly increases financial impact.
  4. Phishing and ransomware remain dominant cyberattack methods.
  5. Cybersecurity is now a strategic business issue rather than only a technical concern.

Conclusion

This project demonstrates how data visualization can transform complex cybersecurity data into meaningful business insights. The findings highlight the importance of proactive cybersecurity investments, rapid incident detection, and executive-level cyber risk management.