Данные взяты с сайта Global terrorism database.

Ссылка для скачивания файла (.xlsx, 70 мб):

http://apps.start.umd.edu/gtd/downloads/dataset/globalterrorismdb_0615dist.xlsx

dateDownloaded <- date()
dateDownloaded
## [1] "Tue Nov 24 06:27:33 2015"

Из базы данных извлечены переменные: iyear - год теракта (с 1972 по 2014 гг.), gname - имя террористической организации, country_txt - страна, в которой произошел теракт, region_txt - регион, к которому относится страна, nkill - количество убитых, nwound - количество раненных.

setwd("~/Документы/DATA")
GTD <- read.csv("Global terrorism database.csv", stringsAsFactors=FALSE)
GTD <- subset(GTD, select = c(iyear, gname, country_txt, region_txt, nkill, nwound))
GTD$nkill <- as.numeric(GTD$nkill)
## Warning: в результате преобразования созданы NA
GTD$nwound <- as.numeric(GTD$nwound)
## Warning: в результате преобразования созданы NA
GTD$country_txt <- as.factor(GTD$country_txt)
GTD$region_txt <- as.factor(GTD$region_txt)
GTD$gname <- as.factor(GTD$gname)
GTD <- subset(GTD, !is.na(nkill) & !is.na(nwound))

Разбивка количества терактов по регионам:

GTDregion <- as.data.frame(summary(GTD$region_txt))
GTDregion
##                             summary(GTD$region_txt)
## Australasia & Oceania                           231
## Central America & Caribbean                    7832
## Central Asia                                    512
## East Asia                                       700
## Eastern Europe                                 3834
## Middle East & North Africa                    31509
## North America                                  3065
## South America                                 16545
## South Asia                                    31643
## Southeast Asia                                 8835
## Sub-Saharan Africa                             9448
## Western Europe                                13130
sum(GTDregion)
## [1] 127284

Всего с 1970 по 2014 гг. во всём мире произошло свыше 127 тыс. терактов.

Наибольшее количество терактов произошло в Южной Азии - 32 тыс., на Ближнем Востоке и Северной Африке - 32 тыс., в Южной Америке - 17 тыс., в Западной Европе - 13 тыс.

Наименьшее: Австралия и Океания - 231, Центральная Азия - 512, Восточная Азия - 700, Северная Америка - 3 тыс., Восточная Европа - 4 тыс.

library(ggplot2)
ggplot(GTD, aes(x = iyear, fill = region_txt))+
    geom_histogram()+
    labs(x = " ", y = " ", fill = "Регионы")
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.
## Warning: position_stack requires constant width: output may be incorrect

Большое количество терактов пришлось на конец 80-х - начало 90-х. Основная активность происходила в Центральной и Южной Америке, Западной Европе.

Потом последовал спад до 2005 года. Затем произошел резкий рост. Активность сместилась на Ближний Восток и Южную Азию.

GTDwEU <- subset(GTD, region_txt == "Western Europe")
GTDwEUcountryTOP5 <- subset(GTDwEU, country_txt == "United Kingdom" | 
    country_txt == "Spain" | country_txt == "France" | country_txt == "Italy" | 
    country_txt == "Greece")
GTDwEUcountry <- as.data.frame(summary(GTDwEUcountryTOP5$country_txt))
head(GTDwEUcountry)
##                summary(GTDwEUcountryTOP5$country_txt)
## United Kingdom                                   3150
## Spain                                            2928
## France                                           2390
## Italy                                            1432
## Greece                                           1141
## Afghanistan                                         0

В Западной Европе больше всего пострадали Великобритания (3 тыс. терактов), Испания (3 тыс.), Франция (2 тыс.), Италия (1 тыс.), Греция (1 тыс.).

ggplot(GTDwEUcountryTOP5, aes(x = iyear, fill = country_txt))+
    geom_histogram()+
    labs(x = " ", y = " ", fill = "Страны")
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.
## Warning: position_stack requires constant width: output may be incorrect

Пик пришёлся на 80-е. Затем пошёл на убыль. В самой Франции - 80-е и конец 90-х.

Раньше в Западной Европе большинство терактов совершали местные сепаратисты. Чаще всего обходилось без жертв.

head(as.data.frame(summary(GTDwEUcountryTOP5$gname)))
##                                                       summary(GTDwEUcountryTOP5$gname)
## Unknown                                                                           3253
## Basque Fatherland and Freedom (ETA)                                               1861
## Irish Republican Army (IRA)                                                       1609
## Corsican National Liberation Front (FLNC)                                          615
## Red Brigades                                                                       206
## First of October Antifascist Resistance Group (GRAPO)                              199

Во Франции наибольшую активность проявил Корсиканский Национальный Освободительный Фронт.

GTDwFrance <- subset(GTDwEU, country_txt == "France")
head(as.data.frame(summary(as.factor(GTDwFrance$gname))))
##                                                      summary(as.factor(GTDwFrance$gname))
## Unknown                                                                               847
## Corsican National Liberation Front (FLNC)                                             613
## Corsican National Liberation Front- Historic Channel                                  128
## Separatists                                                                            83
## Resistenza                                                                             73
## Iparretarrak (IK)                                                                      57

Наибольшие человеческие жертвы страна понесла в результате атак ИГИЛ.