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 -------------------------

No hay comentarios:

Publicar un comentario