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:

  1. Nuestra búsqueda es sensible a mayúsculas y minúsculas. Actualmente solo encuentra “uber”. Queremos que también pueda encontrar “Uber” y “UBER”.
  2. A veces la gente escribe “Huber”, como en la línea 3.
  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 de regex() 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?

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


  1. 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")
    ↩︎