MAIN CAUSES OF DEATHS, INJURIES AND COSTS
Since 1950 storms and other severe weather events have caused 1.514510^{4} deaths and 1.4052810^{5} injuries, with an approximate cost of 1.0884510^{7} dollars.
As can be seen in the following table, tornadoes are the leading cause of death, injury, and economic cost since 1950.
top10<- cbind(
db %>%
group_by(EVTYPE) %>%
summarize(totalF = sum(FATALITIES))%>%
arrange(desc(totalF)),
db %>%
group_by(EVTYPE) %>%
summarize(totalI = sum(INJURIES))%>%
arrange(desc(totalI)),
db %>%
group_by(EVTYPE) %>%
summarize(totalP = sum(PROPDMG))%>%
arrange(desc(totalP)))## `summarise()` ungrouping output (override with `.groups` argument)
## `summarise()` ungrouping output (override with `.groups` argument)
## `summarise()` ungrouping output (override with `.groups` argument)head(top10, 10)## EVTYPE totalF EVTYPE totalI EVTYPE totalP
## 1 TORNADO 5633 TORNADO 91346 TORNADO 3212258.2
## 2 EXCESSIVE HEAT 1903 TSTM WIND 6957 FLASH FLOOD 1420124.6
## 3 FLASH FLOOD 978 FLOOD 6789 TSTM WIND 1335965.6
## 4 HEAT 937 EXCESSIVE HEAT 6525 FLOOD 899938.5
## 5 LIGHTNING 816 LIGHTNING 5230 THUNDERSTORM WIND 876844.2
## 6 TSTM WIND 504 HEAT 2100 HAIL 688693.4
## 7 FLOOD 470 ICE STORM 1975 LIGHTNING 603351.8
## 8 RIP CURRENT 368 FLASH FLOOD 1777 THUNDERSTORM WINDS 446293.2
## 9 HIGH WIND 248 THUNDERSTORM WIND 1488 HIGH WIND 324731.6
## 10 AVALANCHE 224 HAIL 1361 WINTER STORM 132720.6Tornadoes were the cause of 37.1937933% (5633 / 1.514510^{4}) of deaths, 65.0019925% (9.134610^{4} / 1.4052810^{5}) of injuries and constituted 29.5122252% of total costs within what was reported in the database since 1950.
- By States
In this table you can see the top 10 states classified by number of fatalities, injuries or property damage cost.
top10states<- cbind(
db %>%
group_by(STATE) %>%
summarize(totalF = sum(FATALITIES))%>%
arrange(desc(totalF)),
db %>%
group_by(STATE) %>%
summarize(totalI = sum(INJURIES))%>%
arrange(desc(totalI)),
db %>%
group_by(STATE) %>%
summarize(totalP = sum(PROPDMG))%>%
arrange(desc(totalP)))## `summarise()` ungrouping output (override with `.groups` argument)
## `summarise()` ungrouping output (override with `.groups` argument)
## `summarise()` ungrouping output (override with `.groups` argument)head(top10states, 10)## STATE totalF STATE totalI STATE totalP
## 1 IL 1421 TX 17667 TX 937138.0
## 2 TX 1366 MO 8998 IA 685487.3
## 3 PA 846 AL 8742 OH 559834.4
## 4 AL 784 OH 7112 GA 485873.7
## 5 MO 754 MS 6675 MS 481811.8
## 6 FL 746 FL 5918 KS 387183.8
## 7 MS 555 OK 5710 FL 374428.0
## 8 CA 550 IL 5563 NY 373109.4
## 9 AR 530 AR 5550 AL 363606.7
## 10 TN 521 TN 5202 AR 361121.6In general, Texas is the most affected. Just Illinois exceeds it in the number of fatalities.
