• Diagramas de Barras
  • Data Set - mtcars
  • Bar Chart - barplot()
  • Bar Chart - ggplot2
  • Bar Chart - Lattice
  • mtcars - cyl & gear
  • Bar Charts - Matplotlib
  • Bar Charts - Seaborn
  • YouTube - Tutorial
  • Referencias Bibliográficas

Diagramas de Barras

El diagrama de barras (Bar Chart) es un gráfico estadístico que nos permite representar la distribución de frecuencias de variables cualitativas y cuantitativas discretas; nuestro objetivo es pasar del lápiz y papel al uso de los lenguajes de programación R version 4.2.1 (2022-06-23 ucrt)(R Core Team, 2022) y Python 3.9.7(Van Rossum & Drake Jr, 1995), recomendamos la lectura del libro El Arte de Programar en R(Santana Sepúlveda et al., 2014); compartimos la siguiente imagen como referencia.

Data Set - mtcars

mtcars es un data set que ya viene precargado al momento de instalar el lenguaje de programación R en nuestro sistema, haremos uso de dicho data set para la creación de distintos diagramas de barras, de las 11 variables y 32 observaciones que lo componen nos enfocaremos en las variables cyl (cilindro) y gear (engranajes) como se muestra a continuación.

summary(mtcars)
##       mpg             cyl             disp             hp       
##  Min.   :10.40   Min.   :4.000   Min.   : 71.1   Min.   : 52.0  
##  1st Qu.:15.43   1st Qu.:4.000   1st Qu.:120.8   1st Qu.: 96.5  
##  Median :19.20   Median :6.000   Median :196.3   Median :123.0  
##  Mean   :20.09   Mean   :6.188   Mean   :230.7   Mean   :146.7  
##  3rd Qu.:22.80   3rd Qu.:8.000   3rd Qu.:326.0   3rd Qu.:180.0  
##  Max.   :33.90   Max.   :8.000   Max.   :472.0   Max.   :335.0  
##       drat             wt             qsec             vs        
##  Min.   :2.760   Min.   :1.513   Min.   :14.50   Min.   :0.0000  
##  1st Qu.:3.080   1st Qu.:2.581   1st Qu.:16.89   1st Qu.:0.0000  
##  Median :3.695   Median :3.325   Median :17.71   Median :0.0000  
##  Mean   :3.597   Mean   :3.217   Mean   :17.85   Mean   :0.4375  
##  3rd Qu.:3.920   3rd Qu.:3.610   3rd Qu.:18.90   3rd Qu.:1.0000  
##  Max.   :4.930   Max.   :5.424   Max.   :22.90   Max.   :1.0000  
##        am              gear            carb      
##  Min.   :0.0000   Min.   :3.000   Min.   :1.000  
##  1st Qu.:0.0000   1st Qu.:3.000   1st Qu.:2.000  
##  Median :0.0000   Median :4.000   Median :2.000  
##  Mean   :0.4062   Mean   :3.688   Mean   :2.812  
##  3rd Qu.:1.0000   3rd Qu.:4.000   3rd Qu.:4.000  
##  Max.   :1.0000   Max.   :5.000   Max.   :8.000
summary(mtcars$cyl)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   4.000   4.000   6.000   6.188   8.000   8.000
cyl_table <- sqldf("select cyl,count(cyl) as cantidad from mtcars group by cyl")

cyl_table
##   cyl cantidad
## 1   4       11
## 2   6        7
## 3   8       14
summary(mtcars$gear)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   3.000   3.000   4.000   3.688   4.000   5.000
gear_table <- sqldf("select gear,count(gear) as cantidad from mtcars group by gear")

gear_table
##   gear cantidad
## 1    3       15
## 2    4       12
## 3    5        5
summary(mtcars$carb)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   1.000   2.000   2.000   2.812   4.000   8.000
carb_table <- sqldf("select carb,count(carb) as cantidad from mtcars group by carb")

carb_table
##   carb cantidad
## 1    1        7
## 2    2       10
## 3    3        3
## 4    4       10
## 5    6        1
## 6    8        1

Bar Chart - barplot()

La función barplot() nos permite crear diagramas de barras (Bar Charts) en el lenguaje de programación R, utilizaremos la variable cyl (cilindros) para crear el gráfico estadístico respectivo, como se muestra en la siguiente imagen.

x <- table(mtcars$cyl)

colores <- c("orange","blue","purple")

barplot(x,xlab="Cilindros",ylab="Frecuencias",main="Número de Cilindros",col=colores)
Bar Chart creado con la función barplot()

Bar Chart creado con la función barplot()

Bar Chart - ggplot2

ggplot2(Wickham, 2016) es un paquete del lenguaje de programación que nos permite crear gráficos estadísticos de gran calidad, haremos uso de la variable cyl (cilindros) para la creación del gráfico estadístico respectivo, como se muestra a continuación.

ggplot(mtcars,aes(cyl)) + geom_bar(fill=colores) + labs(x="Cillindros",y="Frecuencias",title="Número de Cilindros") + theme_dark()
Bar Chart creado con el paquete ggplot2

Bar Chart creado con el paquete ggplot2

Bar Chart - Lattice

Lattice(Sarkar, 2008) es un paquete del lenguaje de programación R, que nos permite crear gráficos estadísticos de muy buena calidad, nos enfocaremos en la variable cyl (cilindros) para la creación del gráfico estadístico respectivo, como se muestra a continuación.

barchart(x,xlab="Cilindros",ylab="Frecuencias",main="Número de Cilindros",col=colores,horizontal=FALSE)
Bar Chart creado con el paquete lattice

Bar Chart creado con el paquete lattice

mtcars - cyl & gear

A continuación, mostramos como unir dos diagramas de barras (Bar Charts) en un solo gráfico, tomando como base el data set mtcars, así como sus variables cyl (cilindros) y gear (engranajes).

y <- table(mtcars$gear)

par(mfrow=c(1,2))

barplot(x,xlab="Cilindros",ylab="Frecuencias",main="Número de Cilindros",col=colores)

barplot(y,xlab="Engranajes",ylab="Frecuencias",main="Número de Engranajes",col=rainbow(3))

Bar Charts - Matplotlib

Matplotlib(Hunter, 2007) es una librería del lenguaje de programación Python, que nos permite crear gráficos estadísticos de gran calidad, RMarkdown(Allaire et al., 2022) nos permite trabajar con otros lenguajes de programación tales como C++, SQL, Julia, entre muchos otros; a continuación mostramos un diagrama de barras (Bar Chart) creado con Matplotlib.


eje_x = ['Python', 'R', 'Node.js', 'PHP']
 

eje_y = [50,20,35,47]
 

plt.bar(eje_x, eje_y)
 
plt.ylabel('Cantidad de usuarios')
 

plt.xlabel('Lenguajes de programación')
 

plt.title('Usuarios de lenguajes de programación')
 

plt.show()
Bar Chart creado con la librería Matplotlib

Bar Chart creado con la librería Matplotlib

Bar Charts - Seaborn

Seaborn(Waskom et al., 2017) es una librería de Python que nos permite crear gráficos estadísticos de gran calidad, fue creada tomando como base Matplotlib.


eje_x = [4,6,8]

eje_y = [11,7,14]

sns.barplot(x=eje_x,y=eje_y)

plt.title("Número de cilindros")

plt.xlabel("Cilindros")

plt.ylabel("Frecuencias")

plt.show()
Bar Chart creado usando la librería Seaborn

Bar Chart creado usando la librería Seaborn

YouTube - Tutorial

Compartimos el siguiente tutorial tomado de la plataforma YouTube que muestra como crear diagramas de barras (Bar Charts) haciendo uso de la función barplot() y el paquete ggplot2 del lenguaje de programación R.

embed_url("https://www.youtube.com/watch?v=EkxRj02iaLk&t=6s") %>% 
  use_align("center")

Referencias Bibliográficas

Allaire, J., Xie, Y., McPherson, J., Luraschi, J., Ushey, K., Atkins, A., Wickham, H., Cheng, J., Chang, W., & Iannone, R. (2022). Rmarkdown: Dynamic documents for r. https://github.com/rstudio/rmarkdown
Hunter, J. D. (2007). Matplotlib: A 2D graphics environment. Computing in Science & Engineering, 9(3), 90–95. https://doi.org/10.1109/MCSE.2007.55
R Core Team. (2022). R: A language and environment for statistical computing. R Foundation for Statistical Computing. https://www.R-project.org/
Santana Sepúlveda, S., Mateos Farfán, E., et al. (2014). El arte de programar en r: Un lenguaje para la estadı́stica. México: Instituto Mexicano de Tecnologı́a del Agua. UNESCO. Comité Nacional ….
Sarkar, D. (2008). Lattice: Multivariate data visualization with r. Springer. http://lmdvr.r-forge.r-project.org
Van Rossum, G., & Drake Jr, F. L. (1995). Python reference manual. Centrum voor Wiskunde en Informatica Amsterdam.
Waskom, M., Botvinnik, O., O’Kane, D., Hobson, P., Lukauskas, S., Gemperline, D. C., Augspurger, T., Halchenko, Y., Cole, J. B., Warmenhoven, J., Ruiter, J. de, Pye, C., Hoyer, S., Vanderplas, J., Villalba, S., Kunter, G., Quintero, E., Bachant, P., Martin, M., … Qalieh, A. (2017). Mwaskom/seaborn: v0.8.1 (september 2017) (Version v0.8.1) [Computer software]. Zenodo. https://doi.org/10.5281/zenodo.883859
Wickham, H. (2016). ggplot2: Elegant graphics for data analysis. Springer-Verlag New York. https://ggplot2.tidyverse.org
LS0tDQp0aXRsZTogIkJhciBDaGFydHMgLSBSIg0Kc3VidGl0bGU6ICJiYXJwbG90KCkgLSBnZ3Bsb3QyIC0gbGF0dGljZSINCmF1dGhvcjogIlJlbnpvIEPDoWNlcmVzIFJvc3NpIg0KZGF0ZTogIjIwMjIvMTAvMDciDQpvdXRwdXQ6DQogIGh0bWxfZG9jdW1lbnQ6DQogICAgdG9jOiBUUlVFDQogICAgdG9jX2Zsb2F0OiBUUlVFDQogICAgY29kZV9kb3dubG9hZDogVFJVRQ0KICAgIHRoZW1lOiBmbGF0bHkNCiAgICBjc3M6ICJzdHlsZV8wMDIuY3NzIg0KYmlibGlvZ3JhcGh5OiBiaWJsaW9fMDAxLmJpYg0KY3NsOiBhcGEuY3NsDQpsaW5rLWNpdGF0aW9uczogeWVzDQotLS0NCg0KPCEtLSBBw7FhZGlyIGNvbWVudGFyaW9zIGEgbnVlc3RybyBkb2N1bWVudG8gUk1hcmtkb3duIC0tIEhUTWwgdGFncyAtLT4NCg0KYGBge3Igc2V0dXAsaW5jbHVkZT1GQUxTRX0NCg0KbGlicmFyeShnZ3Bsb3QyKQ0KDQpsaWJyYXJ5KGxhdHRpY2UpDQoNCmxpYnJhcnkoc3FsZGYpDQoNCmxpYnJhcnkodmVtYmVkcikNCg0KbGlicmFyeShyZXRpY3VsYXRlKQ0KDQprbml0cjo6b3B0c19jaHVuayRzZXQoZWNobz1UUlVFKQ0KYGBgDQoNCg0KYGBge3B5dGhvbixpbmNsdWRlPUZBTFNFfQ0KDQpmcm9tIHBsYXRmb3JtIGltcG9ydCBweXRob25fdmVyc2lvbg0KDQp2ZXJzaW9uPXB5dGhvbl92ZXJzaW9uKCkNCg0KaW1wb3J0IG1hdHBsb3RsaWIucHlwbG90IGFzIHBsdA0KDQppbXBvcnQgbnVtcHkgYXMgbnANCg0KaW1wb3J0IHNlYWJvcm4gYXMgc25zDQoNCg0KYGBgDQoNCg0KIyMgRGlhZ3JhbWFzIGRlIEJhcnJhcyANCg0KRWwgZGlhZ3JhbWEgZGUgYmFycmFzICgqKkJhciBDaGFydCoqKSBlcyB1biBncsOhZmljbyBlc3RhZMOtc3RpY28gcXVlIG5vcyBwZXJtaXRlIHJlcHJlc2VudGFyIGxhIGRpc3RyaWJ1Y2nDs24gZGUgZnJlY3VlbmNpYXMgZGUgdmFyaWFibGVzIGN1YWxpdGF0aXZhcyB5IGN1YW50aXRhdGl2YXMgZGlzY3JldGFzOyBudWVzdHJvIG9iamV0aXZvIGVzIHBhc2FyIGRlbCBsw6FwaXogeSBwYXBlbCBhbCB1c28gZGUgbG9zIGxlbmd1YWplcyBkZSBwcm9ncmFtYWNpw7NuIGByIFIudmVyc2lvbi5zdHJpbmdgW0BScHJvZ3JhbW1pbmddIHkgUHl0aG9uIGByIHB5JHZlcnNpb25gW0B2YW4xOTk1cHl0aG9uXSwgcmVjb21lbmRhbW9zIGxhIGxlY3R1cmEgZGVsIGxpYnJvICoqRWwgQXJ0ZSBkZSBQcm9ncmFtYXIgZW4gUioqW0BzYW50YW5hMjAxNGFydGVdOyBjb21wYXJ0aW1vcyBsYSBzaWd1aWVudGUgaW1hZ2VuIGNvbW8gcmVmZXJlbmNpYS4NCg0KPGNlbnRlcj4NCg0KDQohW10oZGlhZ3JhbWFfYmFycmFzX2FtYW5vLmpwZyl7d2lkdGg9NDAwfQ0KDQo8L2NlbnRlcj4NCg0KDQojIyBEYXRhIFNldCAtIG10Y2FycyB7LnRhYnNldCAudGFic2V0LXBpbGxzfQ0KDQoqKm10Y2FycyoqIGVzIHVuIGRhdGEgc2V0IHF1ZSB5YSB2aWVuZSBwcmVjYXJnYWRvIGFsIG1vbWVudG8gZGUgaW5zdGFsYXIgZWwgKipsZW5ndWFqZSBkZSBwcm9ncmFtYWNpw7NuIFIqKiBlbiBudWVzdHJvIHNpc3RlbWEsIGhhcmVtb3MgdXNvIGRlIGRpY2hvIGRhdGEgc2V0IHBhcmEgbGEgY3JlYWNpw7NuIGRlIGRpc3RpbnRvcyBkaWFncmFtYXMgZGUgYmFycmFzLCBkZSBsYXMgMTEgdmFyaWFibGVzIHkgMzIgb2JzZXJ2YWNpb25lcyBxdWUgbG8gY29tcG9uZW4gbm9zIGVuZm9jYXJlbW9zIGVuIGxhcyB2YXJpYWJsZXMgKipjeWwqKiAoY2lsaW5kcm8pIHkgKipnZWFyKiogKGVuZ3JhbmFqZXMpIGNvbW8gc2UgbXVlc3RyYSBhIGNvbnRpbnVhY2nDs24uDQoNCiMjIyBtdGNhcnMNCg0KYGBge3IgbXRjYXJzfQ0KDQpzdW1tYXJ5KG10Y2FycykNCg0KYGBgDQoNCg0KIyMjIHZhcl9jeWwNCg0KYGBge3IgdmFyX2N5bH0NCg0Kc3VtbWFyeShtdGNhcnMkY3lsKQ0KDQpjeWxfdGFibGUgPC0gc3FsZGYoInNlbGVjdCBjeWwsY291bnQoY3lsKSBhcyBjYW50aWRhZCBmcm9tIG10Y2FycyBncm91cCBieSBjeWwiKQ0KDQpjeWxfdGFibGUNCg0KYGBgDQoNCg0KIyMjIHZhcl9nZWFyIHsuYWN0aXZlfQ0KDQpgYGB7ciB2YXJfZ2Vhcn0NCg0Kc3VtbWFyeShtdGNhcnMkZ2VhcikNCg0KZ2Vhcl90YWJsZSA8LSBzcWxkZigic2VsZWN0IGdlYXIsY291bnQoZ2VhcikgYXMgY2FudGlkYWQgZnJvbSBtdGNhcnMgZ3JvdXAgYnkgZ2VhciIpDQoNCmdlYXJfdGFibGUNCg0KYGBgDQoNCg0KDQojIyMgdmFyX2NhcmINCg0KYGBge3IgdmFyX2NhcmJ9DQoNCnN1bW1hcnkobXRjYXJzJGNhcmIpDQoNCmNhcmJfdGFibGUgPC0gc3FsZGYoInNlbGVjdCBjYXJiLGNvdW50KGNhcmIpIGFzIGNhbnRpZGFkIGZyb20gbXRjYXJzIGdyb3VwIGJ5IGNhcmIiKQ0KDQpjYXJiX3RhYmxlDQoNCg0KYGBgDQoNCg0KIyMgQmFyIENoYXJ0IC0gYmFycGxvdCgpDQoNCkxhIGZ1bmNpw7NuICBgYmFycGxvdCgpYCBub3MgcGVybWl0ZSBjcmVhciBkaWFncmFtYXMgZGUgYmFycmFzICgqKkJhciBDaGFydHMqKikgZW4gZWwgbGVuZ3VhamUgZGUgcHJvZ3JhbWFjacOzbiBSLCB1dGlsaXphcmVtb3MgbGEgdmFyaWFibGUgY3lsICgqKmNpbGluZHJvcyoqKSBwYXJhIGNyZWFyIGVsIGdyw6FmaWNvIGVzdGFkw61zdGljbyByZXNwZWN0aXZvLCBjb21vIHNlIG11ZXN0cmEgZW4gbGEgc2lndWllbnRlIGltYWdlbi4NCg0KYGBge3IgYmFycGxvdCxmaWcuYWxpZ249J2NlbnRlcicsZmlnLmNhcD0iQmFyIENoYXJ0IGNyZWFkbyBjb24gbGEgZnVuY2nDs24gYmFycGxvdCgpIn0NCg0KeCA8LSB0YWJsZShtdGNhcnMkY3lsKQ0KDQpjb2xvcmVzIDwtIGMoIm9yYW5nZSIsImJsdWUiLCJwdXJwbGUiKQ0KDQpiYXJwbG90KHgseGxhYj0iQ2lsaW5kcm9zIix5bGFiPSJGcmVjdWVuY2lhcyIsbWFpbj0iTsO6bWVybyBkZSBDaWxpbmRyb3MiLGNvbD1jb2xvcmVzKQ0KDQpgYGANCg0KDQojIyBCYXIgQ2hhcnQgLSBnZ3Bsb3QyDQoNCioqZ2dwbG90MioqW0BnZ3Bsb3QyXSBlcyB1biBwYXF1ZXRlIGRlbCBsZW5ndWFqZSBkZSBwcm9ncmFtYWNpw7NuIHF1ZSBub3MgcGVybWl0ZSBjcmVhciBncsOhZmljb3MgZXN0YWTDrXN0aWNvcyBkZSBncmFuIGNhbGlkYWQsIGhhcmVtb3MgdXNvIGRlIGxhIHZhcmlhYmxlIGN5bCAoKipjaWxpbmRyb3MqKikgcGFyYSBsYSBjcmVhY2nDs24gZGVsIGdyw6FmaWNvIGVzdGFkw61zdGljbyByZXNwZWN0aXZvLCBjb21vIHNlIG11ZXN0cmEgYSBjb250aW51YWNpw7NuLg0KDQpgYGB7ciBnZ3Bsb3QyLGZpZy5hbGlnbj0nY2VudGVyJyxmaWcuY2FwPSJCYXIgQ2hhcnQgY3JlYWRvIGNvbiBlbCBwYXF1ZXRlIGdncGxvdDIifQ0KDQpnZ3Bsb3QobXRjYXJzLGFlcyhjeWwpKSArIGdlb21fYmFyKGZpbGw9Y29sb3JlcykgKyBsYWJzKHg9IkNpbGxpbmRyb3MiLHk9IkZyZWN1ZW5jaWFzIix0aXRsZT0iTsO6bWVybyBkZSBDaWxpbmRyb3MiKSArIHRoZW1lX2RhcmsoKQ0KDQoNCmBgYA0KDQoNCg0KIyMgQmFyIENoYXJ0IC0gTGF0dGljZQ0KDQoqKkxhdHRpY2UqKltAbGF0dGljZV0gZXMgdW4gcGFxdWV0ZSBkZWwgbGVuZ3VhamUgZGUgcHJvZ3JhbWFjacOzbiBSLCBxdWUgbm9zIHBlcm1pdGUgY3JlYXIgZ3LDoWZpY29zIGVzdGFkw61zdGljb3MgZGUgbXV5IGJ1ZW5hIGNhbGlkYWQsIG5vcyBlbmZvY2FyZW1vcyBlbiBsYSB2YXJpYWJsZSBjeWwgKCoqY2lsaW5kcm9zKiopIHBhcmEgbGEgY3JlYWNpw7NuIGRlbCBncsOhZmljbyBlc3RhZMOtc3RpY28gcmVzcGVjdGl2bywgY29tbyBzZSBtdWVzdHJhIGEgY29udGludWFjacOzbi4NCg0KYGBge3IgbGF0dGljZSxmaWcuYWxpZ249J2NlbnRlcicsZmlnLmNhcD0iQmFyIENoYXJ0IGNyZWFkbyBjb24gZWwgcGFxdWV0ZSBsYXR0aWNlIn0NCg0KYmFyY2hhcnQoeCx4bGFiPSJDaWxpbmRyb3MiLHlsYWI9IkZyZWN1ZW5jaWFzIixtYWluPSJOw7ptZXJvIGRlIENpbGluZHJvcyIsY29sPWNvbG9yZXMsaG9yaXpvbnRhbD1GQUxTRSkNCg0KDQpgYGANCg0KDQojIyBtdGNhcnMgLSBjeWwgJiBnZWFyDQoNCkEgY29udGludWFjacOzbiwgbW9zdHJhbW9zIGNvbW8gdW5pciBkb3MgZGlhZ3JhbWFzIGRlIGJhcnJhcyAoKipCYXIgQ2hhcnRzKiopIGVuIHVuIHNvbG8gZ3LDoWZpY28sIHRvbWFuZG8gY29tbyBiYXNlIGVsIGRhdGEgc2V0ICoqbXRjYXJzKiosIGFzw60gY29tbyBzdXMgdmFyaWFibGVzICoqY3lsKiogKGNpbGluZHJvcykgeSAqKmdlYXIqKiAoZW5ncmFuYWplcykuDQoNCmBgYHtyIGN5bF9nZWFyLGZpZy5hbGlnbj0nY2VudGVyJ30NCg0KeSA8LSB0YWJsZShtdGNhcnMkZ2VhcikNCg0KcGFyKG1mcm93PWMoMSwyKSkNCg0KYmFycGxvdCh4LHhsYWI9IkNpbGluZHJvcyIseWxhYj0iRnJlY3VlbmNpYXMiLG1haW49Ik7Dum1lcm8gZGUgQ2lsaW5kcm9zIixjb2w9Y29sb3JlcykNCg0KYmFycGxvdCh5LHhsYWI9IkVuZ3JhbmFqZXMiLHlsYWI9IkZyZWN1ZW5jaWFzIixtYWluPSJOw7ptZXJvIGRlIEVuZ3JhbmFqZXMiLGNvbD1yYWluYm93KDMpKQ0KDQoNCmBgYA0KDQoNCiMjIEJhciBDaGFydHMgLSBNYXRwbG90bGliDQoNCioqTWF0cGxvdGxpYioqW0BIdW50ZXI6MjAwN10gZXMgdW5hIGxpYnJlcsOtYSBkZWwgbGVuZ3VhamUgZGUgcHJvZ3JhbWFjacOzbiBQeXRob24sIHF1ZSBub3MgcGVybWl0ZSBjcmVhciBncsOhZmljb3MgZXN0YWTDrXN0aWNvcyBkZSBncmFuIGNhbGlkYWQsICoqUk1hcmtkb3duKipbQFJNYXJrZG93bl0gbm9zIHBlcm1pdGUgdHJhYmFqYXIgY29uIG90cm9zIGxlbmd1YWplcyBkZSBwcm9ncmFtYWNpw7NuIHRhbGVzIGNvbW8gKipDKyssIFNRTCwgSnVsaWEqKiwgZW50cmUgbXVjaG9zIG90cm9zOyBhIGNvbnRpbnVhY2nDs24gbW9zdHJhbW9zIHVuIGRpYWdyYW1hIGRlIGJhcnJhcyAoKipCYXIgQ2hhcnQqKikgY3JlYWRvIGNvbiBNYXRwbG90bGliLg0KDQoNCmBgYHtweXRob24scmVzdWx0cz0naGlkZScsY29sbGFwc2U9VFJVRSxmaWcuYWxpZ249ImNlbnRlciIsZmlnLmNhcD0iQmFyIENoYXJ0IGNyZWFkbyBjb24gbGEgbGlicmVyw61hIE1hdHBsb3RsaWIifQ0KDQplamVfeCA9IFsnUHl0aG9uJywgJ1InLCAnTm9kZS5qcycsICdQSFAnXQ0KIA0KDQplamVfeSA9IFs1MCwyMCwzNSw0N10NCiANCg0KcGx0LmJhcihlamVfeCwgZWplX3kpDQogDQoNCnBsdC55bGFiZWwoJ0NhbnRpZGFkIGRlIHVzdWFyaW9zJykNCiANCg0KcGx0LnhsYWJlbCgnTGVuZ3VhamVzIGRlIHByb2dyYW1hY2nDs24nKQ0KIA0KDQpwbHQudGl0bGUoJ1VzdWFyaW9zIGRlIGxlbmd1YWplcyBkZSBwcm9ncmFtYWNpw7NuJykNCiANCg0KcGx0LnNob3coKQ0KDQoNCmBgYA0KDQoNCg0KIyMgQmFyIENoYXJ0cyAtIFNlYWJvcm4NCg0KKipTZWFib3JuKipbQG1pY2hhZWxfd2Fza29tXzIwMTdfODgzODU5XSBlcyB1bmEgbGlicmVyw61hIGRlIFB5dGhvbiBxdWUgbm9zIHBlcm1pdGUgY3JlYXIgZ3LDoWZpY29zIGVzdGFkw61zdGljb3MgZGUgZ3JhbiBjYWxpZGFkLCBmdWUgY3JlYWRhIHRvbWFuZG8gY29tbyBiYXNlICoqTWF0cGxvdGxpYioqLg0KDQpgYGB7cHl0aG9uLHJlc3VsdHM9J2hpZGUnLGNvbGxhcHNlPVRSVUUsZmlnLmFsaWduPSJjZW50ZXIiLGZpZy5jYXA9IkJhciBDaGFydCBjcmVhZG8gdXNhbmRvIGxhIGxpYnJlcsOtYSBTZWFib3JuIn0NCg0KZWplX3ggPSBbNCw2LDhdDQoNCmVqZV95ID0gWzExLDcsMTRdDQoNCnNucy5iYXJwbG90KHg9ZWplX3gseT1lamVfeSkNCg0KcGx0LnRpdGxlKCJOw7ptZXJvIGRlIGNpbGluZHJvcyIpDQoNCnBsdC54bGFiZWwoIkNpbGluZHJvcyIpDQoNCnBsdC55bGFiZWwoIkZyZWN1ZW5jaWFzIikNCg0KcGx0LnNob3coKQ0KDQoNCmBgYA0KDQoNCiMjIFlvdVR1YmUgLSBUdXRvcmlhbA0KDQpDb21wYXJ0aW1vcyBlbCBzaWd1aWVudGUgdHV0b3JpYWwgdG9tYWRvIGRlIGxhIHBsYXRhZm9ybWEgKipZb3VUdWJlKiogcXVlIG11ZXN0cmEgY29tbyBjcmVhciBkaWFncmFtYXMgZGUgYmFycmFzICgqKkJhciBDaGFydHMqKikgaGFjaWVuZG8gdXNvIGRlIGxhIGZ1bmNpw7NuIGBiYXJwbG90KClgIHkgZWwgcGFxdWV0ZSAqKmdncGxvdDIqKiBkZWwgbGVuZ3VhamUgZGUgcHJvZ3JhbWFjacOzbiBSLg0KDQoNCmBgYHtyIHZlbWJlZHJ9DQoNCmVtYmVkX3VybCgiaHR0cHM6Ly93d3cueW91dHViZS5jb20vd2F0Y2g/dj1Fa3hSajAyaWFMayZ0PTZzIikgJT4lIA0KICB1c2VfYWxpZ24oImNlbnRlciIpDQoNCmBgYA0KDQoNCiMjIFJlZmVyZW5jaWFzIEJpYmxpb2dyw6FmaWNhcw0KDQoNCg0KDQo8ZGl2IGNsYXNzPSJ0b2NpZnktZXh0ZW5kLXBhZ2UiIGRhdGEtdW5pcXVlPSJ0b2NpZnktZXh0ZW5kLXBhZ2UiIHN0eWxlPSJoZWlnaHQ6IDA7Ij48L2Rpdj4NCg0KDQo=