-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathui.R
372 lines (231 loc) · 18.7 KB
/
ui.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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
library(shiny)
library(rgdal)
library(leaflet)
library(raster)
library(colorRamps)
library(shiny)
library(dplyr)
library(ggplot2)
library(shinythemes)
library(car)
load("Entorno_general_completo_6")
shinyUI(
navbarPage(title = tags$b("Criminalidad"),id="navibar",
# ------------------------------------ tabulacion de Inducción------------------------------------------------------
tabPanel(title="Sobre la App",icon = icon("info-circle","fa-1x"),
#se agrega el tema de la pagina
fluidPage(theme = shinytheme("cerulean"),
fluidRow(
column(3,img(src="logo_u.png", height=150, width=250)),
column(8,tags$p(tags$h1("CRIMEN.STAT",align="center"),
tags$br(),
tags$p("La problemática sobre el orden público en el país ha sido de gran importancia para toda la comunidad en general, es por ello que se crea la necesidad de conocer más a fondo sobre todos estos flagelos. Sin embargo es un tema de gran extensión, es por ello que se decidió trabajar con tres conjuntos de datos alojados en la página de", tags$b("DATOS ABIERTOS"), "durante el mes de abril del año 2018 lo cuales nos permiten darle una mirada a un mundo nuevo de posibilidades que nos brindan el análisis de datos y las aplicaciones web y aprovechar todas estas herramientas e información para crear una cultura social, además de educar en las personas que desconocen el tema y adicionalmente permite a los entes gubernamentales encargados tomar mejores decisiones respecto a estas problemáticas. ",tags$br(),
tags$br("Esta aplicación fue desarrollada con el fin de proporcionar información clara y oportuna sobre algunos de los eventos delictivos del país o acciones realizadas por las autoridades judiciales, además de proporcionar una alternativa didáctica y dinámica para la divulgación de información a partir de estadísticas descriptivas interactuando con aplicaciones web"),tags$br(),
tags$p("Los departamentos que no cuentan con casos reportados no pueden ser mostrados por lo tanto solo se presentan las frecuencias en el resto de departamentos en el país. Cabe aclarar que la ausencia de estos reportes no significa que no se estén cometiendo, sino que no fueron reportados como tal. Adicionalmente aclaramos que los datos utilizados fueron utilizados en ",tags$b("mayo del 2018")," y es posible que se incorporen modificaciones a medida que se actualicen los conjuntos de datos es por ello que algunas de las principales características se presentan a continuación:.",HTML("<ul><li>Los datos utilizados en este trabajo son de libre acceso</li><li>Las pestañas que se presentan en esta aplicación son solo algunas de las consideradas de interés para toda la comunidad</li><li>Las variables utilizadas fueron escogidas cuidadosamente con el fin de que la comunidad pueda interactuar y sentirse relacionada</li><li>Los botones fueron seleccionados de manera que permita una fácil comprensión y manejo al usuario</li></ul>")),tags$br(),
tags$p("Respecto a su utilización es sencillo ya que posee botones que pueden ser precionados y mostrarán algunas de las principales opciones tales como:",HTML("<ul><li>Escoger el distinto tipo de delito en la parte superior, además de una acceso al repositorio donde se encuentran alojados los archivos</li><li>Cuenta con un botón sobre la escogencia en la unidad de frecuencia además podrás ver estos resultados al dar un click cobre el mapa interactivo.</li><li> En el costado izquierdo adicionalmente hay una serie de flitros diferentes en cada pestaña que permiten buscar o cconsultar sobras las variables que muestran el número de casos reportados con las características de interés.</li><li>Podrás observar el comportamiento de un departamento con respecto al resto del país para analizar proporciones a nivel nacional.</li></ul>")),
align="center"),
tags$p(tags$b("Brahian Cano Urrego"),tags$br(),tags$b("Yeison Yovany Ocampo Naranjo"),tags$br(),"en acompañamiento del profesor:",tags$b("Freddy Hernández Barajas"),align="center")))
),
#se agregan los correos de contacto con un separador de color del tema
tags$hr(size=20,style="border-color: #2FA4E7;"),
tags$p("correo1: ",tags$a(href="mailto:[email protected]", "[email protected]"),tags$br(),
"correo2:",tags$a(href="mailto:[email protected]", "[email protected]") ,align="center" )
)
),
# ------------------------------------Primera tabulacion ------------------------------------------------------
tabPanel(title= "Recuperacion de carros",icon=icon("car","fa-1x"),
#titulo de la app
fluidPage(theme = shinytheme("cerulean"),
#Titulo+imagen+e intruccion el app
fluidRow(
column(3,img(src="logo_u.png", height=150, width=250)),
column(8,tags$p(tags$h1("CRIMEN.STAT",align="center"),
tags$br(),
tags$p("En esta pestaña podrás encontrar información acerca de las recuperaciones de vehículos efectuada por la Policía Nacional, además podrás elaborar con algunos de los botones dispuestos para tu segmentación las características que te interesan.",tags$br(),
tags$b("Brahian Cano Urrego"),tags$br(),tags$b("Yeison Yovany Ocampo Naranjo"),align="center"),
tags$p("en acompañamiento del profesor:",tags$b("Freddy Hernández Barajas"),align="center")))
),
#CONTENIDO DEL MAPA
fluidRow(
sidebarLayout(
sidebarPanel(tags$style(".well {background-color: #2FA4E7;}"),
#Texto introductorio sobre las frecuencias
tags$p(tags$h4("Frecuencias",align="center",style="color:#FFFFFF"),tags$br(),
tags$b("Seleccione el recuadro para ver las frecuencias en forma relativa respecto a la cantidad de habitantes de cada departamento")),
#Creación de check box de frecuencias
checkboxInput(inputId="frecuencias1",label=tags$p("Frecuencia Relativa",align="center",style="color:#FFFFFF")),
#filtro
selectInput(inputId="franjacarros", label=tags$p(tags$h4("Franja",align="center",style="color:#FFFFFF"),tags$br(),
tags$p("Las franjas horarias te permiten observar la frecuencia de hurtos es determinada hora del día")),
choices= c("SIN FILTRO", levels(as.factor(datos.carros$franja))),
selected="SIN FILTRO")
),
#mapa1
mainPanel(
leafletOutput(outputId = "mapa1",height = 500,width = "90%")
)
)
),
#TEXTO SEPARATIVO
fluidRow(
column(3,""),
column(8,titlePanel(tags$p(tags$h2("ESTADISTICAS",align="center"),tags$p("A continuación se presentan algunas gráficas descriptivas con los ítem más relevantes de la recuperación de autos.",tags$br(),tags$br(),align="center"))))
),
#GRAFICOS DESCRIPTIVOS
fluidRow(
sidebarLayout(
sidebarPanel(
#filtro
selectInput(inputId="departamento1",label=tags$p(tags$h4("Departamento",align="center",style="color:#FFFFFF"),tags$br(),
tags$p("En esta opción podrás elegír que departamento usar para los gráficos descriptivos")),
choices=levels(datoshomit$Departamento),
selected="ANTIOQUIA")
),
mainPanel(
plotOutput("grafico1",width = "100%"),
plotOutput("grafico2",width = "100%"),
plotOutput("grafico3",width = "100%")
)
)
),
tags$hr(size=20,style="border-color: #2FA4E7;"),
tags$p("correo1: ",tags$a(href="mailto:[email protected]", "[email protected]"),tags$br(),
"correo2:",tags$a(href="mailto:[email protected]", "[email protected]") ,align="center" )
)
),
# ----------------------------------------Segunda tabulacion ------------------------------------------------------
tabPanel(title="Homicidios en accidentes de tránsito",icon=icon("motorcycle","fa-1x"),
fluidPage(
#Titulo+imagen+e intruccion el app
fluidRow(
column(3,img(src="logo_u.png", height=150, width=250)),
column(8,tags$p(tags$h1("CRIMEN.STAT",align="center"),
tags$br(),
tags$p("En esta pestaña se aborda la frecuencia de los homicidios en accidentes de tránsito en cada uno de los diferentes departamentos del país, adicionalmente encontrarás una serie de botones que te permitirán hacer una segmentación de los casos que te interesan. ",tags$br(),
tags$b("Brahian Cano Urrego"),tags$br(),tags$b("Yeison Yovany Ocampo Naranjo"),align="center"),
tags$p("en acompañamiento del profesor:",tags$b("Freddy Hernández Barajas"),align="center")))
),
#CONTENIDO DEL MAPA
fluidRow(
sidebarLayout(
sidebarPanel(
#Texto introductorio sobre las frecuencias
tags$p(tags$h4("Frecuencias",align="center",style="color:#FFFFFF"),tags$br(),
tags$b("Seleccione el recuadro para ver las frecuencias en forma relativa respecto a la cantidad de habitantes de cada departamento")),
#Creación de check box de frecuencias
checkboxInput(inputId="frecuencias2",label=tags$p("Frecuencia Relativa",align="center",style="color:#FFFFFF")),
#Filtro por franja horaria
selectInput(inputId="franjahomit", label=tags$p(tags$h4("Franja",style="color:#FFFFFF",align="center"),tags$br(),
tags$p("Las franjas horarias te permiten observar la frecuencia de hurtos es determinada hora del día")),
choices= c("SIN FILTRO", levels(as.factor(datoshomit$franja))),
selected="SIN FILTRO"),
# Filtro para el rango de edades
sliderInput("edadhomit",label =tags$p(tags$h4("Rango de edad",style="color:#FFFFFF",align="center"),tags$br(),tags$p("Escoge el rango de edades que te interese observar")),
min = 0,max = 93,value = c(0,93) ),
# Filtro para los lugares donde ocurrieron los homicidios
selectInput(inputId="clasehomit", label=tags$p(tags$h4("Clase de sitio",style="color:#FFFFFF",align="center"), tags$br(),
tags$p("El lugar donde se reportó el homicidio es de vital importancia, escoge el que desees:")),
choices= c("SIN FILTRO",levels(datoshomit$Clase.de.sitio)),
selected="SIN FILTRO")
),
#mapa 2
mainPanel(
leafletOutput(outputId = "mapa2",height = 500,width = "90%")
)
)
),
#TEXTO SEPARATIVO
fluidRow(
column(3,""),
column(8,titlePanel(tags$p(tags$h2("ESTADISTICAS",align="center"),tags$p("A continuación se presentan algunas gráficas descriptivas con los ítem más relevantes de homicidios en accidentes de tránsito.",tags$br(),tags$br(),align="center"))))
),
#GRAFICOS DESCRIPTIVOS
fluidRow(
sidebarLayout(
sidebarPanel(
#filtro
selectInput(inputId="departamento2",label=tags$p(tags$h4("Departamento",align="center",style="color:#FFFFFF"),tags$br(),
tags$p("En esta opción podrás elegír que departamento usar para los gráficos descriptivos")),
choices=levels(datoshomit$Departamento),
selected="ANTIOQUIA")
),
#Graficos descriptivos
mainPanel(
plotOutput("grafico4",width = "100%"),
plotOutput("grafico5",width = "100%")
)
)
),
tags$hr(size=20,style="border-color: #2FA4E7;"),
tags$p("correo1: ",tags$a(href="mailto:[email protected]", "[email protected]"),tags$br(),
"correo2:",tags$a(href="mailto:[email protected]", "[email protected]") ,align="center" )
)
),
# -------------------------------tercera tabulacion ------------------------------------------------------
tabPanel(title="Hurto a Peatones",icon=icon("drupal","fa-1x"),
fluidPage(
#Titulo+imagen+e intruccion el app
fluidRow(
column(3,img(src="logo_u.png", height=150, width=250)),
column(8,tags$p(tags$h1("CRIMEN.STAT",align="center"),
tags$br(),
tags$p("En esta pestaña encontrarás información acerca del número de hurtos reportados hasta el mes de abril del 2018, además puedes encontrar algunos botones que te permiten filtrar y analizar tus características de interés",tags$br(),
tags$b("Brahian Cano Urrego"),tags$br(),tags$b("Yeison Yovany Ocampo Naranjo"),align="center"),
tags$p("en acompañamiento del profesor:",tags$b("Freddy Hernández Barajas"),align="center")))
),
#CONTENIDO DEL MAPA
fluidRow(
sidebarLayout(
sidebarPanel(
#Texto introductorio sobre las frecuencias
tags$p(tags$h4("Frecuencias",align="center",style="color:#FFFFFF"),tags$br(),
tags$b("Seleccione el recuadro para ver las frecuencias en forma relativa respecto a la cantidad de habitantes de cada departamento")),
#Creación de check box de frecuencias
checkboxInput(inputId="frecuencias3",label=tags$p("Frecuencia Relativa",align="center",style="color:#FFFFFF")),
#Filtro por franja horaria
selectInput(inputId="franjahurto", label=tags$p(tags$h4("Franja",style="color:#FFFFFF",align="center"),tags$br(),
tags$p("Las franjas horarias te permiten observar la frecuencia de hurtos es determinada hora del día")),
choices= c("SIN FILTRO", levels(as.factor(datoshurto$franja))),
selected="SIN FILTRO"),
# Filtro para el rango de edades
sliderInput("edadhurto",label = tags$p(tags$h4("Rango de edad",style="color:#FFFFFF",align="center"),tags$br(),
tags$p("Determina el rango de edades que deseas observar:")),
min = 0,max = 116,value = c(0,116) )
),
#mapa 3
mainPanel(
leafletOutput(outputId = "mapa3",height = 500,width = "90%")
)
)
),
#TEXTO SEPARATIVO
fluidRow(
column(3,""),
column(8,titlePanel(tags$p(tags$h2("ESTADISTICAS",align="center"),tags$p("A continuación se presentan algunas gráficas descriptivas con los ítem más relevantes de hurto a personas.",tags$br(),tags$br(),align="center"))))
),
#GRAFICOS DESCRIPTIVOS
fluidRow(
sidebarLayout(
sidebarPanel(
#filtro
selectInput(inputId="departamento3",label=tags$p(tags$h4("Departamento",align="center",style="color:#FFFFFF"),tags$br(),
tags$p("En esta opción podrás elegír que departamento usar para los gráficos descriptivos")),
choices=levels(datoshomit$Departamento),
selected="ANTIOQUIA")
),
#Graficos descriptivos
mainPanel(
plotOutput("grafico6",width = "100%"),
plotOutput("grafico7",width = "100%")
)
)
),
tags$hr(size=20,style="border-color: #2FA4E7;"),
tags$p("correo1: ",tags$a(href="mailto:[email protected]", "[email protected]"),tags$br(),
"correo2:",tags$a(href="mailto:[email protected]", "[email protected]") ,align="center" )
)
),
# -------------------------------link hacia el github de la app ------------------------------------------
tabPanel(title=tags$a(href="https://github.com/bencuben/Mapa-criminalidad-app-","Click!!"),icon=icon("github","fa-2x"),value="home")
)
)