Frecuencias de aparición de algunas cadenas de caracteres en los discursos de la Moción de Censura de la sesión del 31/05/2018

Se analizan las frecuencias de aparición de algunas cadenas de caracteres en los discursos pronunciados en el Congreso de los Diputados por los principales líderes políticos en la sesión del 31/05/2018 de la Moción de Censura presentada por Pedro Sánchez. Los discursos se pueden descargar aquí. Una vez descargados situarlos en el disco D. El resultado serán diagramas de barras en horizontal.

INICIO -------------------------

rm(list=ls(all=TRUE))

#--- Análisis discurso de Rajoy

RAtexto<-read.delim('D://RAJOY.txt');attach(RAtexto)

RA<-toString(rajoy);palRA<-lengths(gregexpr("\\W+",RA))

palRA #Número de palabras de Rajoy

RA.Gobierno<-gregexpr('gobierno',RA); RA.Corrup<-gregexpr('corrup',RA)

RA.Catal<-gregexpr('catal',RA); RA.Españ<-gregexpr('españ',RA)

#Proporciones de las cadenas de caracteres por cada 100 palabras (Rajoy)

p.RA.Gobierno<-100*length(RA.Gobierno[[1]])/palRA; p.RA.Gobierno

p.RA.Corrup<-100*length(RA.Corrup[[1]])/palRA; p.RA.Corrup

p.RA.Catal<-100*length(RA.Catal[[1]])/palRA; p.RA.Catal

p.RA.Españ<-100*length(RA.Españ[[1]])/palRA; p.RA.Españ

#--- Análisis discurso de Sánchez

SAtexto<-read.delim('D://SANCHEZ.txt');attach(SAtexto)

SA<-toString(sanchez);palSA<-lengths(gregexpr("\\W+",SA))

palSA #Número de palabras de Sánchez

SA.Gobierno<-gregexpr('gobierno',SA); SA.Corrup<-gregexpr('corrup',SA)

SA.Catal<-gregexpr('catal',SA); SA.Españ<-gregexpr('españ',SA)

#Proporciones de las cadenas de caracteres por cada 100 palabras (Sánchez)

p.SA.Gobierno<-100*length(SA.Gobierno[[1]])/palSA; p.SA.Gobierno

p.SA.Corrup<-100*length(SA.Corrup[[1]])/palSA; p.SA.Corrup

p.SA.Catal<-100*length(SA.Catal[[1]])/palSA; p.SA.Catal

p.SA.Españ<-100*length(SA.Españ[[1]])/palSA; p.SA.Españ

#--- Análisis discurso de Iglesias

IGtexto<-read.delim('D://IGLESIAS.txt');attach(IGtexto)

IG<-toString(iglesias);palIG<-lengths(gregexpr("\\W+",IG))

palIG #Número de palabras de Iglesias

IG.Gobierno<-gregexpr('gobierno',IG); IG.Corrup<-gregexpr('corrup',IG)

IG.Catal<-gregexpr('catal',IG); IG.Españ<-gregexpr('españ',IG)

#Proporciones de las cadenas de caracteres por cada 100 palabras (Iglesias)

p.IG.Gobierno<-100*length(IG.Gobierno[[1]])/palIG; p.IG.Gobierno

p.IG.Corrup<-100*length(IG.Corrup[[1]])/palIG; p.IG.Corrup

p.IG.Catal<-100*length(IG.Catal[[1]])/palIG; p.IG.Catal

p.IG.Españ<-100*length(IG.Españ[[1]])/palIG; p.IG.Españ

#--- Análisis discurso de Rivera

RItexto<-read.delim('D://RIVERA.txt');attach(RItexto)

RI<-toString(rivera);palRI<-lengths(gregexpr("\\W+",RI))

palRI #Número de palabras de Rivera

RI.Gobierno<-gregexpr('gobierno',RI); RI.Corrup<-gregexpr('corrup',RI)

RI.Catal<-gregexpr('catal',RI); RI.Españ<-gregexpr('españ',RI)

#Proporciones de las cadenas de caracteres por cada 100 palabras (Rivera)

p.RI.Gobierno<-100*length(RI.Gobierno[[1]])/palRI; p.RI.Gobierno

p.RI.Corrup<-100*length(RI.Corrup[[1]])/palRI; p.RI.Corrup

p.RI.Catal<-100*length(RI.Catal[[1]])/palRI; p.RI.Catal

p.RI.Españ<-100*length(RI.Españ[[1]])/palRI; p.RI.Españ

#--- Análisis discurso de Tardá

TAtexto<-read.delim('D://TARDA.txt');attach(TAtexto)

TA<-toString(tarda);palTA<-lengths(gregexpr("\\W+",TA))

palTA #Número de palabras de Tardá

TA.Gobierno<-gregexpr('gobierno',TA); TA.Corrup<-gregexpr('corrup',TA)

TA.Catal<-gregexpr('catal',TA); TA.Españ<-gregexpr('españ',TA)

#Proporciones de las cadenas de caracteres por cada 100 palabras (Tardá)

p.TA.Gobierno<-100*length(TA.Gobierno[[1]])/palTA; p.TA.Gobierno

p.TA.Corrup<-100*length(TA.Corrup[[1]])/palTA; p.TA.Corrup

p.TA.Catal<-100*length(TA.Catal[[1]])/palTA; p.TA.Catal

p.TA.Españ<-100*length(TA.Españ[[1]])/palTA; p.TA.Españ

nombres<-rev(c('Rajoy','Sánchez','Iglesias','Rivera','Tardá'))

colores<-rev(c('blue','red','purple','orange','yellow'))

GOBIERNO<-rev(c(p.RA.Gobierno,p.SA.Gobierno,p.IG.Gobierno,p.RI.Gobierno,p.TA.Gobierno))

CORRUP<-rev(c(p.RA.Corrup,p.SA.Corrup,p.IG.Corrup,p.RI.Corrup,p.TA.Corrup))

CATAL<-rev(c(p.RA.Catal,p.SA.Catal,p.IG.Catal,p.RI.Catal,p.TA.Catal))

ESPAÑ<-rev(c(p.RA.Españ,p.SA.Españ,p.IG.Españ,p.RI.Españ,p.TA.Españ))

par(mfrow=c(2,2),mar=c(5,5.5,3,8))

barplot(GOBIERNO,col=colores,xlab='Frecuencias de aparición por cada 100 palabras',

names.arg=nombres,las=1,main=expression(italic(GOBIERNO)),horiz=T,space=0.75,xlim=c(0,1));box(which='figure')

barplot(CORRUP,col=colores,xlab='Frecuencias de aparición por cada 100 palabras',

names.arg=nombres,las=1,main=expression(paste(italic(CORRUP),"-")),horiz=T,space=0.75,xlim=c(0,1));box(which='figure')

barplot(CATAL,col=colores,xlab='Frecuencias de aparición por cada 100 palabras',

names.arg=nombres,las=1,main=expression(paste(italic(CATAL),"-")),horiz=T,space=0.75,xlim=c(0,1));box(which='figure')

barplot(ESPAÑ,col=colores,xlab='Frecuencias de aparición por cada 100 palabras',

names.arg=nombres,las=1,main=expression(paste(italic(ESPAÑ),"-")),horiz=T,space=0.75,xlim=c(0,1));box(which='figure')

FIN -------------------------