27 minutos
Lobby en el Senado. Parte 2: exploración de los registros de audiencias
En la primera parte de este tutorial, vimos cómo utilizar la tećnica conocida como web scraping para extraer información de la página de lobby del Senado de Chile. Usando R, importamos la tabla con el registro de las reuniones que sostiene cada senador/a y la transformamos para que quedara lista para el análisis.
En esta segunda parte, revisaremos algunas estrategias para hacer búsquedas en el contenido de las reuniones. También, averiguaremos quiénes solicitan más audiencias, los intereses de quiénes representan y con qué senadores/as se han reunido.
El objetivo principal será mostrar cómo hacer búsquedas en nuestros datos usando expresiones regulares y funciones del paquete {stringr}. También veremos cómo separar observaciones que están en una misma fila usando el paquete {tidyr}.
Los paquetes que utilizaremos 📦
install.packages("tidyverse")
library(readr)
library(dplyr)
library(tidyr)
library(stringr)
library(ggplot2)
Los datos 📂
Primero, cargaremos los datos de la versión en .csv
que guardamos en la primera parte de este tutorial.
reuniones <- read_delim("https://raw.githubusercontent.com/rivaquiroga/pagina-personal/master/content/posts/data/reuniones_senadores_2020-05-02.csv?token=AHPXJMHJJQJ2A4HE7J652DK6XCLC4", delim = "|")
head(reuniones)
## # A tibble: 6 x 7
## sujeto_pasivo fecha duracion lugar materia asistentes representado
## <chr> <date> <dbl> <chr> <chr> <chr> <chr>
## 1 Pugh Olavarrí… 2020-11-19 30 ofici… Ley de fi… Clement, A… Asocacion de…
## 2 Huenchumilla … 2020-03-26 30 Congr… Suspende … Gallo Delg… Centro de Es…
## 3 Huenchumilla … 2020-03-26 30 Congr… Se suspen… Rimbaud, A… MEL - Movimi…
## 4 Huenchumilla … 2020-03-23 30 Congr… Suspende … Reinoso Ci… Sindicato Nú…
## 5 Huenchumilla … 2020-03-23 30 Congr… Audiencia… Munoz, Vic… VisibLES
## 6 Huenchumilla … 2020-03-23 30 Congr… Por conti… Espinosa Á… Federación N…
Buscar materias de interés 🔍
Si quisiéramos saber más sobre el contenido de las reuniones o revisar algún tema en particular, tendríamos que explorar la variable materia
.
Una forma en que podemos filtrar las filas a partir de la búsqueda de términos clave es usando la función str_detect()
del paquete {stringr}.
Veamos un ejemplo explorando las audiencias relacionadas con las aplicaciones de transporte privado. Partiremos con una búsqueda simple y mostraremos solo algunas columnas para ver mejor los resultados1:
reuniones %>%
filter(str_detect(materia, "uber")) %>%
select(sujeto_pasivo, fecha, materia, representado)
sujeto_pasivo | fecha | materia | representado |
---|---|---|---|
Coloma Correa, Juan Antonio | 2019-08-21 | indicaciones ley uber | ACUA CHILE |
García Huidobro Sanfuentes, Alejandro | 2019-06-06 | conversar sobre nueva ley uber. | NA |
Aravena Acuña, Carmen Gloria | 2019-04-15 | Dar a conocer su preocupación como representante del Movimiento Ciudadano Defendamos el Taxi, con respecto a la regulación de Huber | Movimiento Ciudadano Defendamos el taxi |
Quinteros Lara, Rabindranath | 2019-03-21 | Presentación de Director para asuntos gubernamentales y entrega de opinión sobre proyecto de ley de fármacos II.. | Abbott Laboratories de Chile Ltda. |
Allamand Zavala, Andrés | 2018-05-24 | Eleonora Rabinovich, encargada de Políticas Públicas y asuntos de Gobierno y Tamar Colodenco, encargada de Políticas Públicas y relaciones gubernamentales, ambas representantes de Google en Chile y Nicolás Yuraseck, lobbista. El motivo de la solicitud de reunión, es para exponer al Senador Andrés Allamand, quien integra la Comisión de Constitución, respecto al proyecto de ley de datos personales que iniciará su discusión en particular en la Comisión de Constitución del Senado. En la reunión los asistentes indican que se han reunido con el Senador Felipe Harboe,quien lleva 10 años viendo este proyecto de ley. Comentan que es un gran proyecto y que Chile esta dando un gran paso en cuanto a ley de datos personales. El Senador Andrés Allamand les indica que este año comenzó a integrar la Comisión de Constitución, y que las indicaciones del proyecto serán hasta el día 07 de junio, por lo que espera que pueda llegar a buen término este gran proyecto.Les aconseja que cualquier observación que tengan las hagan llegas vía correo electrónico a todos los integrantes de esta comisión. OBS. Si bien la reunión fue solicitada en representación de la Cámara de Comercio, quienes asistieron a esta son representantes de Google en Chile, el error se produce según señala Nicolas Yuraseck,( Lobbista quien solicita la reunión), por encontrarse registrado de forma automática en el sistema. | Camara Nacional de Comercio |
Rossi Ciocca, Fulvio | 2016-05-18 | informacion subre uber | Uber B.V. |
Mmm… Tenemos tres problemas:
- Nuestra búsqueda es sensible a mayúsculas y minúsculas. Actualmente solo encuentra “uber”. Queremos que también pueda encontrar “Uber” y “UBER”.
- A veces la gente escribe “Huber”, como en la línea 3.
- Nuestro patrón de búsqueda no distingue cuando “uber” aparece dentro de otra palabra, como en la línea 5: “gubernamentales”.
Para resolver estos problemas haremos tres cambios:
- agregaremos la opción
ignore_case = TRUE
dentro deregex()
para que encuentre nuestro patrón independiente de si está con mayúsculas o minúsculas. - indicaremos que a veces puede aparecer una “h” al principio:
"h*uber"
- delimitaremos nuestro patrón para que no lo busque dentro de otra palabra. Es decir, agregaremos límites de palabra con
\\b
al principio y al final:"\\bh*uber\\b"
reuniones %>%
filter(str_detect(materia, regex("\\bh*uber\\b", ignore_case = TRUE))) %>%
select(sujeto_pasivo, fecha, materia, representado)
sujeto_pasivo | fecha | materia | representado |
---|---|---|---|
Pizarro Soto, Jorge | 2019-10-11 | Se presentó posición y algunos tenores que se tienen sobre cómo estaría quedando Ley Uber. | ACUA CHILE |
Aravena Acuña, Carmen Gloria | 2019-08-29 | Manifiestan preocupaciones del sector por Proyecto de Ley Uber | AGECOPVR AG. |
Quinteros Lara, Rabindranath | 2019-08-22 | Ley Uber | Uber VB |
Guillier Álvarez, Alejandro | 2019-08-22 | Indicaciones Ley Uber | ACUA CHILE |
Aravena Acuña, Carmen Gloria | 2019-08-21 | Ley Uber solicitan se legisle para que haya una tarifa mínima de uso. | ACUA CHILE |
Coloma Correa, Juan Antonio | 2019-08-21 | indicaciones ley uber | ACUA CHILE |
Ferrada Henríquez, Rafael Alejandro | 2019-07-04 | Informar sobre los detalles de la operación de Uber en Chile | Uber B.V. |
Galilea Vial, Rodrigo | 2019-06-10 | Informar sobre los detalles de la operación de Uber en Chile. | Uber B.V. |
García Huidobro Sanfuentes, Alejandro | 2019-06-06 | conversar sobre nueva ley uber. | NA |
Pugh Olavarría, Kenneth | 2019-05-16 | Alcances de la Ley UBER | Movimiento Ciudadano Defendamos el taxi |
Pizarro Soto, Jorge | 2019-05-06 | Se presenta preocupación por ley en trámite sobre plataformas (Ley Uber) en lo perjudicial que resulta para los taxis | Movimiento Ciudadano Defendamos el taxi |
Pizarro Soto, Jorge | 2019-05-06 | Se presenta antecedentes con que cuentan en materia de lo perjudicial de la aplicación de Ley de plataformas (UBER) de la forma en que se está construyendo | CAMARA DEL TRASPORTE MENOR TAXI Y TURISMO |
Pizarro Soto, Jorge | 2019-04-29 | Se presenta representante de UBER en Chile y expone sobre los beneficios de la aplicación en Chile y en otros países | Uber B.V. |
Pizarro Soto, Jorge | 2019-04-29 | Hacen presente lo que significa la llamada Ley Uber de la forma en que está quedando y cómo sería aplicada | Marcelo Gutierrez Feliu |
Aravena Acuña, Carmen Gloria | 2019-04-15 | Dar a conocer su preocupación como representante del Movimiento Ciudadano Defendamos el Taxi, con respecto a la regulación de Huber | Movimiento Ciudadano Defendamos el taxi |
Galilea Vial, Rodrigo | 2019-04-15 | Fueron recibidos por la Srta. Camila Madariaga, Asesora Legislativa. Ley Uber | Movimiento Ciudadano Defendamos el taxi |
Pizarro Soto, Jorge | 2019-04-15 | Presenta aplicación china que se implementará en Chile sobre plataforma de autos, similar a Uber. Se instalan en Chile por que consideran que es la puerta de entrada para países del Conosur. Se plantean opiniones en relación a ley que se está discutiendo en el Congreso | Guangyu Qiu |
Ossandón Irarrázabal, Manuel José | 2018-11-12 | UBER | Joaquín Godoy Ibañez |
Durana Semir, Jose Miguel | 2018-05-10 | Apoyo al transporte público por el tema Uber | Eduardo Arellano |
Araya Guerrero, Pedro | 2017-04-10 | Presentación de la plataforma tecnológica de UBER en la Región de Antofagasta | Uber B.V. |
Ossandón Irarrázabal, Manuel José | 2016-12-12 | Manifestar su opinión y consideraciones relacionadas con el PL de Plataformas tecnológicas (Uber / taxis) | CORPORACION DE TRANSPORTE Y TAXIS INDEPENDIENTES |
Harboe Bascuñán, Felipe | 2016-11-10 | Dar a Conocer los problemas generados por la empresa UBER en la capital Provincial. Jueves 10 de noviembre a las 16:00 horas. Oficina Parlamentaria de Chillán | HECTOR AEDO |
Ossandón Irarrázabal, Manuel José | 2016-09-30 | Manifestar su preocupación por los conflictos con las aplicaciones como Uber y Cabify | chiletaxi |
Muñoz D`Albora, Adriana | 2016-09-06 | Dar a conocer los servicios que entrega Uber a nivel internacional y nacional, destacando su experiencia en modelos de carsharing y carpooling dado que podrían ser una buena alternativa para mejorar las condiciones de movilidad en diferentes ciudades del país | Uber B.V. |
Harboe Bascuñán, Felipe | 2016-09-06 | Dar a conocer los servicios que entrega UBER, destacando su experiencia en modelos de carsharing y carpooling dado que podrían ser una buena alternativa para la movilidad en diferentes ciudades del país. Se agendó para el día Martes 6 de septiembre a las 12:30 horas. | Uber B.V. |
Pérez Varela, Víctor | 2016-09-06 | Información sobre sistema de transporte UBER y cómo funciona | Uber B.V. |
Coloma Correa, Juan Antonio | 2016-08-30 | Dar a conocer los servicios que entrega Uber a nivel internacional y nacional, destacando su experiencia en modelos de carsharing y carpooling dado que podrían ser una buena alternativa para mejorar las condiciones de movilidad en diferentes ciudades del país. | Uber B.V. |
Prokurica Prokurica, Baldo | 2016-05-24 | Problemática UBER. | sindicato |
Rossi Ciocca, Fulvio | 2016-05-18 | informacion subre uber | Uber B.V. |
Horvath Kiss, Antonio | 2016-05-09 | Dar a conocer los servicios que entrega Uber a nivel nacional e internacional. | Uber B.V. |
Harboe Bascuñán, Felipe | 2016-05-02 | Dar a conocer los servicios que entrega Uber a nivel internacional y nacional. Martes 6 de septiembre a las 12:00 horas en dependencias del Senado en Valparaíso | Uber B.V. |
Huerta Estrada, José Alejandro | 2016-04-14 | Manifestar su parecer sobre empresdas UBER Y Taxistas | TRANSPORTES CASTRO Y CORREA LTDA |
Ossandón Irarrázabal, Manuel José | 2016-04-11 | Graves daños economicos que esta ocasionando al gremio de taxistas y radiotaxis ejecutivos, empresas extranjeras que estan operando en Santiago ilegalmente como son las empresas Uber y Cabify, las que no estan reguladas ni por el decreto 212 ni por el decreto 80. Que son los unicos decretos que regulan el transporte publico y privado en Chile | ASOCIACION GREMIAL DE RADIOTAXIS EJECUTIVOS DE LA REGION METROPOLITANA |
Girardi Lavín, Guido | 2015-07-02 | Se expuso las estrategias viales que presenta Uber para Santiago, así como de las alternativas de transporte con Uber x y otras iniciativas que han llevado adelante en Latinoamerica y Estados Unidos | NA |
Uber no es la única aplicación de transporte privado. Si quisiéramos filtrar todas las audiencias que abordaron este tema, deberíamos ampliar nuestra búsqueda y agregar las otras compañías que ofrecen en Chile este tipo de servicios. Como queremos que nuestro patrón encuentre cualquiera de estos términos, utilizaremos el operador |
, que es equivalente a la conjunción o: "\\bh*uber\\b|didi|cabify|beat"
. Es decir, le estamos indicando que busque uber escrito con o sin “h” al inicio, o didi o cabify o beat. También buscaremos estos términos en la representado
. Como queremos que filtre cuando estos términos aparezcan en una u otra columna, utilizaremos el operador |
entre las dos llamadas a str_detect()
reuniones %>%
filter(str_detect(materia,regex("\\bh*uber\\b|didi|cabify|beat", ignore_case = TRUE)) | str_detect(representado, regex("\\bh*uber\\b|didi|cabify|beat", ignore_case = TRUE))) %>%
select(sujeto_pasivo, fecha, materia, asistentes, representado)
sujeto_pasivo | fecha | materia | asistentes | representado |
---|---|---|---|---|
Galilea Vial, Rodrigo | 2020-03-11 | Alcances económicos ley Empresa de Aplicación de Transporte | Bssaber, Gonzalo; Simonsohn, Felipe | DIDI MOBILITY CHILE SPA |
Pizarro Soto, Jorge | 2019-10-14 | Presenta funcionamiento de Cabify y solicita considerar lo que les estaría afectando en la nueva ley | Gutierrez, Ignacio | Ignacio Gutierrez |
Pizarro Soto, Jorge | 2019-10-14 | Presenta que es Cabify y lo que han hecho todo este tiempo que han funcionado, es una empresa española que se encuentra funcionando en 14 países. Han impulsado a condutores que hagan curso de licencia especialo con automoviclub, pero hay pocos cupos. Muestra la diferencia que tienen con otras aplicaciones como el pago de impuesto por parte de los conductores, están constiuidos en Chiole poro lo que pagan impuestos en el país. | Gutierrez, Ignacio | Ignacio Gutierrez |
Pizarro Soto, Jorge | 2019-10-11 | Se presentó posición y algunos tenores que se tienen sobre cómo estaría quedando Ley Uber. | Cordero Gonzalez, ana; DOTTORI, FEDERICO; SABA, DANIELA | ACUA CHILE |
Guillier Álvarez, Alejandro | 2019-09-26 | Saludo protocolar de sus ejecutivos en la llegada de la empresa a Chile | Simonsohn, Felipe; Söffge, Christian | Didi |
Aravena Acuña, Carmen Gloria | 2019-08-29 | Manifiestan preocupaciones del sector por Proyecto de Ley Uber | Schlack Abalos, Javier; Toledo Pugas, Danilo; Fernandez Veas, Alexis; Vargas Wahsenne, Claudia | AGECOPVR AG. |
Quinteros Lara, Rabindranath | 2019-08-22 | Ley Uber | Laso, Luis Fernando; Pastor, Carolina | Uber VB |
Guillier Álvarez, Alejandro | 2019-08-22 | Indicaciones Ley Uber | Cordero Gonzalez, ana; DOTTORI, FEDERICO; SABA, DANIELA | ACUA CHILE |
Aravena Acuña, Carmen Gloria | 2019-08-21 | Ley Uber solicitan se legisle para que haya una tarifa mínima de uso. | Cordero Gonzalez, ana; DOTTORI, FEDERICO; SABA, DANIELA | ACUA CHILE |
Coloma Correa, Juan Antonio | 2019-08-21 | indicaciones ley uber | Cordero Gonzalez, ana; DOTTORI, FEDERICO; SABA, DANIELA; Becerra Aguilera, Victor | ACUA CHILE |
Coloma Correa, Juan Antonio | 2019-08-20 | Proyecto de ley que regula las plataformas tecnológicas de transporte | GODOY IBAÑEZ, JOAQUIN | Uber VB |
Quintana Leal, Jaime | 2019-08-08 | Presentación de la compañía, sus planes y proyectos en la región. Presentación de la posición de Didi sobre el Proyecto de Ley de Plataforma de Movilidad. | Simonsohn, Felipe | DIDI MOBILITY CHILE SPA |
Ferrada Henríquez, Rafael Alejandro | 2019-08-08 | Presentación de DiDi y visión sobre futura regulación | Simonsohn, Felipe | DIDI MOBILITY CHILE SPA |
Ossandón Irarrázabal, Manuel José | 2019-07-17 | TRANSPORTE | Simonsohn, Felipe | DIDI MOBILITY CHILE SPA |
Ferrada Henríquez, Rafael Alejandro | 2019-07-04 | Informar sobre los detalles de la operación de Uber en Chile | Del Solar Agüero, Felipe; Picón Gutiérrez, Francisco Roberto | Uber B.V. |
Galilea Vial, Rodrigo | 2019-06-10 | Informar sobre los detalles de la operación de Uber en Chile. | Picón Gutiérrez, Francisco Roberto; Del Solar Agüero, Felipe; Martínez González, David Sebastián; Valverde Carbonell, Jorge Patricio; Sánchez, Nicolás; Pastor, Carolina | Uber B.V. |
García Huidobro Sanfuentes, Alejandro | 2019-06-06 | conversar sobre nueva ley uber. | pizarro, pedro; contreras Peñaloza, luis | NA |
Pugh Olavarría, Kenneth | 2019-05-16 | Alcances de la Ley UBER | Lemus, Ernesto; Astudillo, Mauricio | Movimiento Ciudadano Defendamos el taxi |
Pizarro Soto, Jorge | 2019-05-06 | Se presenta preocupación por ley en trámite sobre plataformas (Ley Uber) en lo perjudicial que resulta para los taxis | Lemus, Ernesto; Astudillo, Mauricio | Movimiento Ciudadano Defendamos el taxi |
Pizarro Soto, Jorge | 2019-05-06 | Se presenta antecedentes con que cuentan en materia de lo perjudicial de la aplicación de Ley de plataformas (UBER) de la forma en que se está construyendo | MINGUEZ VELASQUEZ, SUSANA IVONNE; VELIZ MARTINEZ, KAREN VENECIA; TORREJON AREVALO, ANDRES EDUARDO; FIGUEROA CRISOSTOMO, PAULO; BERNALES BRICEÑO, MANUEL | CAMARA DEL TRASPORTE MENOR TAXI Y TURISMO |
Pizarro Soto, Jorge | 2019-04-29 | Se presenta representante de UBER en Chile y expone sobre los beneficios de la aplicación en Chile y en otros países | Del Solar Agüero, Felipe; Martínez González, David Sebastián; Picón Gutiérrez, Francisco Roberto; Valverde Carbonell, Jorge Patricio; Sánchez, Nicolás; Pastor, Carolina | Uber B.V. |
Pizarro Soto, Jorge | 2019-04-29 | Hacen presente lo que significa la llamada Ley Uber de la forma en que está quedando y cómo sería aplicada | Gutierrez Feliú, Marcelo; Becerra Aguilera, Victor | Marcelo Gutierrez Feliu |
Aravena Acuña, Carmen Gloria | 2019-04-15 | Dar a conocer su preocupación como representante del Movimiento Ciudadano Defendamos el Taxi, con respecto a la regulación de Huber | Lemus, Ernesto; Astudillo, Mauricio | Movimiento Ciudadano Defendamos el taxi |
Galilea Vial, Rodrigo | 2019-04-15 | Fueron recibidos por la Srta. Camila Madariaga, Asesora Legislativa. Ley Uber | Lemus, Ernesto; Astudillo, Mauricio | Movimiento Ciudadano Defendamos el taxi |
Pizarro Soto, Jorge | 2019-04-15 | Presenta aplicación china que se implementará en Chile sobre plataforma de autos, similar a Uber. Se instalan en Chile por que consideran que es la puerta de entrada para países del Conosur. Se plantean opiniones en relación a ley que se está discutiendo en el Congreso | Simonsohn, Felipe; Qiu, Guangyu; Yang, Mi; Milward Duque, Karen Paola de Campos | Guangyu Qiu |
Ossandón Irarrázabal, Manuel José | 2018-11-12 | UBER | Laso, Luis Fernando; GODOY IBAÑEZ, JOAQUIN | Joaquín Godoy Ibañez |
Durana Semir, Jose Miguel | 2018-05-10 | Apoyo al transporte público por el tema Uber | Arellano Varela, Eduardo | Eduardo Arellano |
Araya Guerrero, Pedro | 2017-04-10 | Presentación de la plataforma tecnológica de UBER en la Región de Antofagasta | Del Solar Agüero, Felipe; Barrueto Avalos, Felipe | Uber B.V. |
Ossandón Irarrázabal, Manuel José | 2016-12-12 | Manifestar su opinión y consideraciones relacionadas con el PL de Plataformas tecnológicas (Uber / taxis) | MINGUEZ VELASQUEZ, SUSANA IVONNE; JORQUERA PINTO, IGNACIO; VELIZ MARTINEZ, KAREN VENECIA; HIDALGO BOZO, MARIO MOISES; VENEGAS ABARCA, ELVIS LEANDRO; ARANDA RIVEROS, DANIEL ANGEL; TORREJON AREVALO, ANDRES EDUARDO | CORPORACION DE TRANSPORTE Y TAXIS INDEPENDIENTES |
Harboe Bascuñán, Felipe | 2016-11-10 | Dar a Conocer los problemas generados por la empresa UBER en la capital Provincial. Jueves 10 de noviembre a las 16:00 horas. Oficina Parlamentaria de Chillán | NAVARRETE PÉREZ, LUIS; AEDO WALTEMATH, HECTOR | HECTOR AEDO |
Ossandón Irarrázabal, Manuel José | 2016-09-30 | Manifestar su preocupación por los conflictos con las aplicaciones como Uber y Cabify | diaz rojas, julio cesar | chiletaxi |
Pizarro Soto, Jorge | 2016-09-12 | los solicitantes suspendieron reunión nuevamente por problemas de agenda de ellos. Deberán solicitarla nuevamente | Del Solar Agüero, Felipe; Barrueto Avalos, Felipe; Meacham, Carl | Uber B.V. |
Muñoz D`Albora, Adriana | 2016-09-06 | Dar a conocer los servicios que entrega Uber a nivel internacional y nacional, destacando su experiencia en modelos de carsharing y carpooling dado que podrían ser una buena alternativa para mejorar las condiciones de movilidad en diferentes ciudades del país | Del Solar Agüero, Felipe; Barrueto Avalos, Felipe; Meacham, Carl | Uber B.V. |
Harboe Bascuñán, Felipe | 2016-09-06 | Dar a conocer los servicios que entrega UBER, destacando su experiencia en modelos de carsharing y carpooling dado que podrían ser una buena alternativa para la movilidad en diferentes ciudades del país. Se agendó para el día Martes 6 de septiembre a las 12:30 horas. | Del Solar Agüero, Felipe; Barrueto Avalos, Felipe; Meacham, Carl | Uber B.V. |
Pérez Varela, Víctor | 2016-09-06 | Información sobre sistema de transporte UBER y cómo funciona | Del Solar Agüero, Felipe; Barrueto Avalos, Felipe; Meacham, Carl | Uber B.V. |
Coloma Correa, Juan Antonio | 2016-08-30 | Dar a conocer los servicios que entrega Uber a nivel internacional y nacional, destacando su experiencia en modelos de carsharing y carpooling dado que podrían ser una buena alternativa para mejorar las condiciones de movilidad en diferentes ciudades del país. | Del Solar Agüero, Felipe; Barrueto Avalos, Felipe; Meacham, Carl | Uber B.V. |
Prokurica Prokurica, Baldo | 2016-05-24 | Problemática UBER. | castillo cortes, juan esteban | sindicato |
Rossi Ciocca, Fulvio | 2016-05-18 | informacion subre uber | Del Solar Agüero, Felipe; Meacham, Carl; Barrueto Avalos, Felipe | Uber B.V. |
Horvath Kiss, Antonio | 2016-05-09 | Dar a conocer los servicios que entrega Uber a nivel nacional e internacional. | Del Solar Agüero, Felipe; Meacham, Carl; Barrueto Avalos, Felipe | Uber B.V. |
Harboe Bascuñán, Felipe | 2016-05-02 | Dar a conocer los servicios que entrega Uber a nivel internacional y nacional. Martes 6 de septiembre a las 12:00 horas en dependencias del Senado en Valparaíso | Del Solar Agüero, Felipe; Meacham, Carl; Barrueto Avalos, Felipe | Uber B.V. |
Huerta Estrada, José Alejandro | 2016-04-14 | Manifestar su parecer sobre empresdas UBER Y Taxistas | CASTRO MARQUEZ, CLAUDIO; CORREA GONZALEZ, PAMELA | TRANSPORTES CASTRO Y CORREA LTDA |
Ossandón Irarrázabal, Manuel José | 2016-04-11 | Graves daños economicos que esta ocasionando al gremio de taxistas y radiotaxis ejecutivos, empresas extranjeras que estan operando en Santiago ilegalmente como son las empresas Uber y Cabify, las que no estan reguladas ni por el decreto 212 ni por el decreto 80. Que son los unicos decretos que regulan el transporte publico y privado en Chile | ARAYA, JULIO; Vasque, Raul; Gonzalez, Alejandro | ASOCIACION GREMIAL DE RADIOTAXIS EJECUTIVOS DE LA REGION METROPOLITANA |
Girardi Lavín, Guido | 2015-07-02 | Se expuso las estrategias viales que presenta Uber para Santiago, así como de las alternativas de transporte con Uber x y otras iniciativas que han llevado adelante en Latinoamerica y Estados Unidos | Del Solar Agüero, Felipe | NA |
En julio de 2015 aparece por primera vez mencionada una de estas aplicaciones (Uber). Extrañamente, en esa primera reunión el lobista (Felipe del Solar) no señala a quién representa: en la columna representado indica NA 🤔. En abril de 2016, el gremio de taxista de la Región Metropolitana solicita por primera vez una audiencia en el senado para discutir el impacto económico de estas aplicaciones.
Este es solo un ejemplo de cómo podemos hacer búsquedas a partir de términso clave. Siguiendo una estrategia similar puedes explorar otros temas de interés.
¿Quiénes han solicitado más reuniones? 👀
Algo que sería interesante saber es quiénes han solicitado más reuniones, es decir, identificar a los/las lobistas que participan con más frecuencia en audiencias en el Senado.
Actualmente en la columna asistentes
tenemos en una misma celda a todas las personas que participaron en la reunión. Para responder nuestra pregunta, necesitamos dividir esas filas para poder tener a cada asistente en una sola celda. Eso nos permitirá sumar cuántas veces aparece cada uno/a.
Para lograr esto, utilizaremos la función separate_rows()
del paquete {tidyr}. Hace lo mismo que separate()
, pero con filas en vez de columnas. Para poder hacer la división, tenemos que indicar cuál es el patrón que separa cada uno de los nombres. En este caso, pareciera ser un punto y coma:
## # A tibble: 6 x 1
## asistentes
## <chr>
## 1 Clement, Arturo; Picón Gutiérrez, Francisco Roberto; Del Solar Agüero, Felipe…
## 2 Gallo Delgado, Fatima Patricia; Puelle, María Jimena
## 3 Rimbaud, Axel
## 4 Reinoso Cifuentes, Mauricio; Bustos Munizaga, Maggie; Bielefeldt Herrería, Se…
## 5 Munoz, Victoria; Amigo Bravo, Claudia Andrea; Montecinos, Erika; Benado Verga…
## 6 Espinosa Ábalos, Cristian; TOLEDO MORENO, LUIS ALEJANDRO; Lagos, Patricio; FI…
Además de separar los nombres, los convertiremos a formato título, es decir, haremos que la inicial de cada palabra esté en mayúscula. ¿Por qué hacemos esto? Porque como estos son datos que se ingresan manualmente, nada asegura que todas las personas lo hagan utilizando el mismo criterio. A veces aparecen con mayúscula inicial, otras solo con MAYÚSCULAS y otras solo con minúsculas. Al utilizar la función str_to_title()
nos aseguramos que todos los nombres queden escritos del mismo modo y así podamos sumarlos.
⚠️ADVERTENCIA⚠️: esto no resuelve errores de tipeo. Tampoco que a unas veces las personas se hayan registrado con el primer apellido y otras con los dos.
Exploremos quiénes son las cinco personas que han participado en más reuniones desde 2014:
reuniones %>%
separate_rows(asistentes, sep = "; ") %>%
mutate(asistentes = str_to_title(asistentes)) %>%
count(asistentes, sort = T) %>%
top_n(5)
## # A tibble: 5 x 2
## asistentes n
## <chr> <int>
## 1 Del Solar Agüero, Felipe 77
## 2 Alt Hayal, Marcela 38
## 3 Dorfman, Natalio 36
## 4 Schlesinger, Denise 34
## 5 Barrueto Avalos, Felipe 25
¿A qué agencias de lobby pertenecen?
- Felipe del Solar > Extend
- Marcela Alt y Denise Schlesinger > Imaginacción
- Natalio Dorfman > Dorfman & Gattas
- Felipe Barrueto > Grupo Etcheberry
Sería razonable sospechar que el nombre del primer lobista pueda estar escrito de más de una forma en la base de datos (por ejemplo, que en algún momento se haya registrado como “Aguero” en vez de “Agüero”, o que en alguna reunión no haya consignado su segundo apellido). Exploremos buscando por su primer apellido “Del Solar”:
reuniones %>%
separate_rows(asistentes, sep = "; ") %>%
mutate(asistentes = str_to_title(asistentes)) %>%
filter(str_detect(asistentes, "Del Solar")) %>%
count(asistentes, sort = TRUE)
## # A tibble: 7 x 2
## asistentes n
## <chr> <int>
## 1 "Del Solar Agüero, Felipe" 77
## 2 "Del Solar Agüero , Felipe " 6
## 3 "Del Solar Agüero , Felipe" 2
## 4 "Del Solar Cádiz, Eduardo" 2
## 5 "Del Solar Gutiérrez, Carlos" 2
## 6 "Del Solar, Laura" 2
## 7 "Del Solar, Ernesto" 1
Mmm… no era el problema que sospechaba, sino otro: espacios extras en lugares que no corresponden. El espacio después del nombre podemos sacarlo con una expresión regular cuando separamos las columnas. Tenemos que indicar que puede o no haber un espacio antes del punto y coma (\\s*;
). El espacio antes de la coma también podemos eliminarlo con una expresión regular: que cada vez que encuentre un espacio seguido de una coma (\\s,
) lo remplace solo por una coma:
reuniones %>%
separate_rows(asistentes, sep = "\\s*; ") %>%
mutate(asistentes = str_to_title(asistentes),
asistentes = str_replace(asistentes, "\\s,", ",")) %>%
filter(str_detect(asistentes, "Del Solar")) %>%
count(asistentes, sort = TRUE)
## # A tibble: 5 x 2
## asistentes n
## <chr> <int>
## 1 Del Solar Agüero, Felipe 85
## 2 Del Solar Cádiz, Eduardo 2
## 3 Del Solar Gutiérrez, Carlos 2
## 4 Del Solar, Laura 2
## 5 Del Solar, Ernesto 1
Ahora que pareciera que los nombres de los asistentes están un poco más limpios, podríamos guardarlos en un nuevo objeto para seguir consultándolos:
asistentes_reuniones <- reuniones %>%
separate_rows(asistentes, sep = "\\s*; ") %>%
mutate(asistentes = str_to_title(asistentes),
asistentes = str_replace(asistentes, "\\s,", ","))
Sabemos que Felipe del Solar es quien más hace lobby en el Senado. ¿Con quién se ha reunido?
asistentes_reuniones %>%
filter(str_detect(asistentes, "Del Solar Agüero")) %>%
count(sujeto_pasivo, sort = TRUE)
## # A tibble: 37 x 2
## sujeto_pasivo n
## <chr> <int>
## 1 Pizarro Soto, Jorge 12
## 2 Pérez San Martín, Lily 6
## 3 Ossandón Irarrázabal, Manuel José 5
## 4 Pugh Olavarría, Kenneth 5
## 5 Quinteros Lara, Rabindranath 5
## 6 Coloma Correa, Juan Antonio 3
## 7 Ferrada Henríquez, Rafael Alejandro 3
## 8 Girardi Lavín, Guido 3
## 9 Lagos Weber, Ricardo 3
## 10 Araya Guerrero, Pedro 2
## # … with 27 more rows
Se ha reunido con 37 senadores/as distintos. En nuestro filtro no hemos considerado la fecha. Eso sería algo importante de tener en cuenta, ya que la segunda senadora de esta lista es Lily Perez, quien desde 2018 ya no es parlamentaria. Repetiremos la búsqueda, pero filtraremos los datos a partir del 11 de marzo de 2018, el inicio de la última legislatura (para la mitad del senado). De este modo solo nos mostrará senadores/as en ejercicio:
asistentes_reuniones %>%
filter(str_detect(asistentes, "Del Solar Agüero"), fecha >= "2018-03-11") %>%
count(sujeto_pasivo, sort = TRUE)
## # A tibble: 14 x 2
## sujeto_pasivo n
## <chr> <int>
## 1 Pizarro Soto, Jorge 5
## 2 Pugh Olavarría, Kenneth 5
## 3 Quinteros Lara, Rabindranath 4
## 4 Ferrada Henríquez, Rafael Alejandro 3
## 5 Galilea Vial, Rodrigo 2
## 6 Huenchumilla Jaramillo, Francisco 2
## 7 Aravena Acuña, Carmen Gloria 1
## 8 Ebensperger Orrego, Luz Eliana 1
## 9 Frites López, Jorge 1
## 10 Lagos Weber, Ricardo 1
## 11 Latorre Riveros, Juan Ignacio 1
## 12 Ossandón Irarrázabal, Manuel José 1
## 13 Prohens Espinosa, Rafael 1
## 14 Sánchez Wadie, Alexandre 1
¿A quiénes ha representado con mayor frecuencia?
asistentes_reuniones %>%
filter(str_detect(asistentes, "Del Solar Agüero"), fecha >= "2018-03-11") %>%
count(representado, sort = TRUE)
## # A tibble: 9 x 2
## representado n
## <chr> <int>
## 1 camara de la innovación farmaceutica de Chile 9
## 2 Sociedad Nacional de Pesca FG 5
## 3 Extend Comunicaciones 4
## 4 Asocacion de la Industria del Salmón de Chile AG 3
## 5 Uber B.V. 3
## 6 Puerto Ventanas S.A 2
## 7 Administradora General de Fondos 1
## 8 Inmobiliaria Pocuro SpA 1
## 9 Sociedad Nacional de Pesca 1
Podemos observar que en el período consultado, ha defendido principalmente los intereses de las farmaceúticas 💊, la industria pesquera en general y la de salmón en particular, la industria portuaria y Uber. Además, ha representado en una ocasión a las AFP y a una inmobiliaria. En cuatro ocasiones ha representado a su propia consultora, Extend Comunicaciones, probablemente para ofrecer sus servicios. En la siguiente tabla podemos ver el detalle de los temas de cada reunión, las fechas y con quién se reunió en cada caso:
asistentes_reuniones %>%
filter(str_detect(asistentes, "Del Solar Agüero"), fecha >= "2018-03-11") %>%
select(-asistentes, -duracion, -lugar)
sujeto_pasivo | fecha | materia | representado |
---|---|---|---|
Pugh Olavarría, Kenneth | 2020-11-19 | Ley de financiamiento estrategia de las FFAA | Asocacion de la Industria del Salmón de Chile AG |
Quinteros Lara, Rabindranath | 2020-03-09 | Principales problemas de la industria y agenda legislativa para la acuicultura. | Asocacion de la Industria del Salmón de Chile AG |
Pugh Olavarría, Kenneth | 2020-01-09 | Reunión es cancelada por don Felipe de Solar vía telefónica | Puerto Ventanas S.A |
Pizarro Soto, Jorge | 2019-12-02 | se presenta interés en PL Fármacos II, considerando que debe tener políticas de bioequivalencias a full y manifiestan que falta paraguas en salud para políticas de medicamentos, los que debieran estar en planes de seguridad social y en un canal de distribución que incluya las cadenas de farmacias. Debiera existir un organismo de evaluación sanitaria con imparcialidad | camara de la innovación farmaceutica de Chile |
Ossandón Irarrázabal, Manuel José | 2019-08-14 | LEY DE FARMACOS 2 | camara de la innovación farmaceutica de Chile |
Sánchez Wadie, Alexandre | 2019-08-12 | Comentar la situación de varamiento de carbón en el sector Playa Las Ventanas e informar las operaciones de Puerto Ventana S.A. | Puerto Ventanas S.A |
Galilea Vial, Rodrigo | 2019-08-12 | Manifestar la posición de la industria, respecto de las modificaciones propuestas a la Ley Ricarte Soto, contenidas en el Boletín N° 12.025-03, que se encuentra actualmente en la Comisión de Economía. | camara de la innovación farmaceutica de Chile |
Lagos Weber, Ricardo | 2019-07-29 | Proyecto de Ley Farmacia 2 | camara de la innovación farmaceutica de Chile |
Pizarro Soto, Jorge | 2019-07-22 |
Se presenta preocupación por la ley de fármacos II y su problema que puede tener con la ley de cáncer se sugiere visiten a senadores miembros de comisión de salud |
camara de la innovación farmaceutica de Chile |
Pizarro Soto, Jorge | 2019-07-22 | Se refieren a ley Fármacos 2 y sus aprehensiones al respecto. | camara de la innovación farmaceutica de Chile |
Ferrada Henríquez, Rafael Alejandro | 2019-07-04 | Analizar la agenda legislativa del sector acuícola. | Asocacion de la Industria del Salmón de Chile AG |
Ferrada Henríquez, Rafael Alejandro | 2019-07-04 | Presentar formalmente a la Cámara de la Innovación Farmacéutica y manifestar nuestra postura sobre distintos aspectos de la agenda legislativa del sector. | camara de la innovación farmaceutica de Chile |
Ferrada Henríquez, Rafael Alejandro | 2019-07-04 | Informar sobre los detalles de la operación de Uber en Chile | Uber B.V. |
Galilea Vial, Rodrigo | 2019-06-10 | Informar sobre los detalles de la operación de Uber en Chile. | Uber B.V. |
Huenchumilla Jaramillo, Francisco | 2019-06-06 | no se realizó reunión | camara de la innovación farmaceutica de Chile |
Pizarro Soto, Jorge | 2019-04-29 | Se presenta representante de UBER en Chile y expone sobre los beneficios de la aplicación en Chile y en otros países | Uber B.V. |
Quinteros Lara, Rabindranath | 2019-04-01 | Desarrollo del sector farmacéutico y opinión sobre ley de fármacos II | camara de la innovación farmaceutica de Chile |
Pugh Olavarría, Kenneth | 2018-12-27 | Se cancela audiencia por motivo de agenda de los solicitantes, según correo electrónico del 10-12-2018. | Sociedad Nacional de Pesca FG |
Pizarro Soto, Jorge | 2018-12-04 | SE INFORMA DE LO INDICADO EN LA SOLICITUD Y SE SOLICITA CONTACTO CON AUTORIDADES REGIONALES PARA TRAMITES PROPIOS. SENADOR EXPLICA QUE NO ES DE SU ÁMBITO Y SUGIERE QUE HAGAN SOLICITUD DE AUDIENCIAS POR LOBBY CON AUTORIDADES | Administradora General de Fondos |
Pugh Olavarría, Kenneth | 2018-11-19 | campaña aumento consumo de pescado | Sociedad Nacional de Pesca FG |
Pugh Olavarría, Kenneth | 2018-11-15 | Saludo Protocolar y presentación Directiva | Sociedad Nacional de Pesca FG |
Ebensperger Orrego, Luz Eliana | 2018-10-25 | Tema la inconstitucionalidad del proyecto de la jibia. Ellos están postulando al sello de sustantibilidad a nivel mundial MSC , así como también revisan el estado de salud en el impacto medio ambiental y gobernanza y además tiene 5 pesqueras registradas | Sociedad Nacional de Pesca FG |
Quinteros Lara, Rabindranath | 2018-09-04 | Dar a conocer posición de la Sociedad sobre situación de la actividad pesquera nacional. | Sociedad Nacional de Pesca FG |
Frites López, Jorge | 2018-08-30 | Agenda legislativa sector pesquero | Sociedad Nacional de Pesca |
Huenchumilla Jaramillo, Francisco | 2018-07-09 | Presentación de la empresa y las actividades que realizan. | Extend Comunicaciones |
Quinteros Lara, Rabindranath | 2018-06-18 | Entrega información sobre proyecto inmobiliario en ciudad de Puerto Montt. | Inmobiliaria Pocuro SpA |
Latorre Riveros, Juan Ignacio | 2018-05-28 | Fueron recibidos por Diego Vela, jefe de gabinete del Senador, presentaron el trabajo que hace Extend. | Extend Comunicaciones |
Prohens Espinosa, Rafael | 2018-05-15 | Presentar al equipo a cargo del Área de Asuntos Políticos y Legislativos de Extend. Manifestar la disposición a colaborar con el trabajo legislativo en las áreas que sea pertinente, respetando la plena autonomía de la función parlamentaria. También explicar la forma en que Extend cumple cabalmente con Ley de Lobby que regula esta actividad. | Extend Comunicaciones |
Aravena Acuña, Carmen Gloria | 2018-05-14 | Presentaciòn de equipo a cargo del area politica y legislativa de Extend | Extend Comunicaciones |
¿A quiénes han representado los otros lobistas de la lista? ¿Cuáles han sido los temas de esas reuniones? Para responder esta preguntas puedes reciclar el mismo código que utilizamos con Felipe del Solar, pero cambiando el nombre cuando filtras por asistente. Si quisieras buscar a las dos lobistas de Imaginacción (Marcela Alt y Denise Schlesinger) al mismo tiempo, podrías usar como patrón de búsqueda: "Schlesinger|\\bAlt\\b"
. Indicamos con \\b
límites de palabra en el caso de Alt, para que la búsqueda no nos devuelva un apellido como “Altamirano”.
Conclusiones
En este tutorial en dos partes mostramos el paso a paso para escrapear una tabla de un sitio web y limpiar los datos para que sean analizables. Nos enfocamos en la página de audiencias del Senado, ya que se trata de un tema de relevancia pública y en el que es importante que los datos estén fácilmente accesibles.
Uno de los principales problemas que enfrentamos fue que, como se trata de datos ingresados manualmente, hay muchas incosistencias, lo que nos obliga a crear patrones de búsqueda complejos que puedan lidiar con eso. Como ejemplo adicional a lo ya visto, miremos la duración de las reuniones:
¿Realmente hay senadores/as que sostienen reuniones de 600 minutos? Claramente se trataría de un problema de ingreso de los datos 🙄.
En un próximo tutorial sobre web scraping veremos qué hacer cuando la información de interés está en más de una página y repartida en distintas etiquetas. Por el momento, si quieres replicar el análisis que hicimos acá, todo el código está disponible en 💻este proyecto en rstudio.cloud.
Notas
Claramente, esa tabla no la generó solo ese código. Por razones pedagógicas, opté por no mostrar las líneas que crean la tabla para no desviar la atención del objetivo: buscar un patrón con
str_detect()
. Lo mismo aplica para el resto de las tablas de este tipo. Si te interesa saber, utilicé el paquete {kableExtra} para generarlas. En cada caso, hay que agregar estas líneas al código:
↩︎kable() %>% kable_styling(fixed_thead = T) %>% row_spec(0, color = "#727272", align = "center", background = "#E5C2CD") %>% row_spec(0:6, extra_css = "border-bottom: 1px solid") %>% # aquí cambia el primer argumento según la cantidad de líneas de la tabla scroll_box(width = "100%", height = "500px")