Imanol-Mikel Barba Sabariego / DDS · Commits

Commit 2d7dd7f5a476195808e9670b036ba944c5e2719c

Authored by Imanol-Mikel Barba Sabariego
1 parent 9282ab31

First two graphs implemented

Inline Side-by-side
Showing 1 changed file with 13 additions and 0 deletions
ISO27001effectiveness/R/graphs.R 0 → 100644
  View file @2d7dd7f
  1 +#2014
  2 +qplot(x = country_short, y = X2014, data = Cert_PerCountry[Cert_PerCountry$X2014 > mean(Cert_PerCountry$X2014),])
  3 +attacks2k14 <- Attacks[Attacks$Date < "2015-01-01" & Attacks$Date >= "2014-01-01",]
  4 +frameAttacks2k14 <- as.data.frame(table(attacks2k14$Country))
  5 +colnames(frameAttacks2k14) <- c("Country","Attacks")
  6 +qplot(x = Country, y = Attacks, data = frameAttacks2k14[frameAttacks2k14$Attacks > mean(frameAttacks2k14$Attacks),])
  7 +
  8 +#2015
  9 +qplot(x = country_short, y = X2015, data = Cert_PerCountry[Cert_PerCountry$X2015 > mean(Cert_PerCountry$X2015),])
  10 +attacks2k15 <- Attacks[Attacks$Date < "2016-01-01" & Attacks$Date >= "2015-01-01",]
  11 +frameAttacks2k15 <- as.data.frame(table(attacks2k15$Country))
  12 +colnames(frameAttacks2k15) <- c("Country","Attacks")
  13 +qplot(x = Country, y = Attacks, data = frameAttacks2k15[frameAttacks2k15$Attacks > mean(frameAttacks2k15$Attacks),])
... ...