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.
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.
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.
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.
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.
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.
boxplot(costs,
main = "Distribution of Industry Breach Costs",
ylab = "Cost (Million USD)")
Business Insight:
Healthcare and finance sectors display higher variability in breach
costs.
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.
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.
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.