Imanol-Mikel Barba Sabariego / DDS · Commits

Commit 2d7dd7f5a476195808e9670b036ba944c5e2719c

Authored by Imanol-Mikel Barba Sabariego 2016-12-20 22:12:28 +0100

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),])