-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathcharts_alarms_by_type.R
66 lines (53 loc) · 2.67 KB
/
charts_alarms_by_type.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
#png("segovia_graph.png", width=1500, height=700, res=200)
#par(mfrow=c(1,3), mar=c(16,2,2,2))
png("graphs/segovia_graph.png", res=150, height=1000, width=700)
par(mar=c(16,2,2,2))
barplot(tabla<-prop.table(table(segovia$EVENT_TYPE)), col=rainbow(length(names(tabla))), main="", las=3)
dev.off()
#png("antequera_graph.png", width=1500, height=700, res=200)
#par(mfrow=c(1,3), mar=c(16,2,2,2))
png("graphs/antequera_graph.png", res=150, height=1000, width=700)
par(mar=c(16,2,2,2))
barplot(tabla<-prop.table(table(antequera$EVENT_TYPE)), col=rainbow(length(names(tabla))), main="", las=3)
dev.off()
#png("sevilla_graph.png", width=1500, height=700, res=200)
#par(mfrow=c(1,3), mar=c(16,2,2,2))
png("graphs/sevilla_graph.png", res=150, height=1000, width=700)
par(mar=c(16,2,2,2))
barplot(tabla<-prop.table(table(sevilla$EVENT_TYPE)), col=rainbow(length(names(tabla))), main="", las=3)
dev.off()
png("graphs/albacete_graph.png", res=150, height=1000, width=700)
par(mar=c(16,2,2,2))
barplot(tabla<-prop.table(table(albacete$EVENT_TYPE)), col=rainbow(length(names(tabla))), main="", las=3)
dev.off()
## VALORES ABSOLUTOS Y NO PORCENTAJES!!
#png("segovia_graph.png", width=1500, height=700, res=200)
#par(mfrow=c(1,3), mar=c(16,2,2,2))
png("graphs/segovia_graph.png", res=150, height=1400, width=700)
segovia <- segovia[segovia$EVENT_TYPE != "",]
segovia$EVENT_TYPE <- factor(segovia$EVENT_TYPE)
par(mar=c(16,2,7,2))
bp <- barplot(tabla<-table(segovia$EVENT_TYPE), col=rainbow(length(names(tabla))), main="", las=3)
text(x=bp,y=tabla+par("cxy")[2]/2,labels=tabla,cex=1.25,pos=4,xpd=TRUE,srt=90)
dev.off()
#png("antequera_graph.png", width=1500, height=700, res=200)
#par(mfrow=c(1,3), mar=c(16,2,2,2))
png("graphs/antequera_graph.png", res=150, height=1400, width=700)
par(mar=c(16,2,7,2))
bp <- barplot(tabla<-table(antequera$EVENT_TYPE), col=rainbow(length(names(tabla))), main="", las=3)
text(x=bp,y=tabla+par("cxy")[2]/2,labels=tabla,cex=1.25,pos=4,xpd=TRUE,srt=90)
dev.off()
#png("sevilla_graph.png", width=1500, height=700, res=200)
#par(mfrow=c(1,3), mar=c(16,2,2,2))
png("graphs/sevilla_graph.png", res=150, height=1400, width=700)
par(mar=c(16,2,7,2))
bp <- barplot(tabla<-table(sevilla$EVENT_TYPE), col=rainbow(length(names(tabla))), main="", las=3)
text(x=bp,y=tabla+par("cxy")[2]/2,labels=tabla,cex=1.25,pos=4,xpd=TRUE,srt=90)
dev.off()
png("graphs/albacete_graph.png", res=150, height=1400, width=700)
albacete <- albacete[albacete$EVENT_TYPE != "",]
albacete$EVENT_TYPE <- factor(albacete$EVENT_TYPE)
par(mar=c(16,2,7,2))
bp <- barplot(tabla<-table(albacete$EVENT_TYPE), col=rainbow(length(names(tabla))), main="", las=3)
text(x=bp,y=tabla+par("cxy")[2]/2,labels=tabla,cex=1.25,pos=4,xpd=TRUE,srt=90)
dev.off()