In[]:=
twitter=ServiceConnect["Twitter"]
Out[]=
ServiceObject
In[]:=
stepsp=List[él,ésta,éstas,éste,éstos,última,últimas,último,últimos,a,añadió,aún,actualmente,adelante,además,afirmó,agregó,ahí,ahora,al,algún,algo,alguna,algunas,alguno,algunos,alrededor,ambos,ante,anterior,antes,apenas,aproximadamente,aquí,así,aseguró,aunque,ayer,bajo,bien,buen,buena,buenas,bueno,buenos,cómo,cada,casi,cerca,cierto,cinco,comentó,como,con,conocer,consideró,considera,contra,cosas,creo,cual,cuales,cualquier,cuando,cuanto,cuatro,cuenta,da,dado,dan,dar,de,debe,deben,debido,decir,dejó,del,demás,dentro,desde,después,dice,dicen,dicho,dieron,diferente,diferentes,dijeron,dijo,dio,donde,dos,durante,e,ejemplo,el,ella,ellas,ello,ellos,embargo,en,encuentra,entonces,entre,era,eran,es,esa,esas,ese,eso,esos,está,están,esta,estaba,estaban,estamos,estar,estará,estas,este,esto,estos,estoy,estuvo,ex,existe,existen,explicó,expresó,fin,fue,fuera,fueron,gran,grandes,ha,había,habían,haber,habrá,hace,hacen,hacer,hacerlo,hacia,haciendo,han,hasta,hay,haya,he,hecho,hemos,hicieron,hizo,hoy,hubo,igual,incluso,indicó,informó,junto,la,lado,las,le,les,llegó,lleva,llevar,lo,los,luego,lugar,más,manera,manifestó,mayor,me,mediante,mejor,mencionó,menos,mi,mientras,misma,mismas,mismo,mismos,momento,mucha,muchas,mucho,muchos,muy,nada,nadie,ni,ningún,ninguna,ningunas,ninguno,ningunos,no,nos,nosotras,nosotros,nuestra,nuestras,nuestro,nuestros,nueva,nuevas,nuevo,nuevos,nunca,o,ocho,otra,otras,otro,otros,para,parece,parte,partir,pasada,pasado,pero,pesar,poca,pocas,poco,pocos,podemos,podrá,podrán,podría,podrían,poner,por,porque,posible,próximo,próximos,primer,primera,primero,primeros,principalmente,propia,propias,propio,propios,pudo,pueda,puede,pueden,pues,qué,que,quedó,queremos,quién,quien,quienes,quiere,realizó,realizado,realizar,respecto,sí,sólo,se,señaló,sea,sean,según,segunda,segundo,seis,ser,será,serán,sería,si,sido,siempre,siendo,siete,sigue,siguiente,sin,sino,sobre,sola,solamente,solas,solo,solos,son,su,sus,tal,también,tampoco,tan,tanto,tenía,tendrá,tendrán,tenemos,tener,tenga,tengo,tenido,tercera,tiene,tienen,toda,todas,todavía,todo,todos,total,tras,trata,través,tres,tuvo,un,una,unas,uno,unos,usted,va,vamos,van,varias,varios,veces,ver,vez,y,ya,yo,algún,alguna,algunas,alguno,algunos,ambos,ampleamos,ante,antes,aquel,aquellas,aquellos,aqui,arriba,atras,bajo,bastante,bien,cada,cierta,ciertas,cierto,ciertos,como,con,conseguimos,conseguir,consigo,consigue,consiguen,consigues,cual,cuando,dentro,desde,donde,dos,el,ellas,ellos,empleais,emplean,emplear,empleas,empleo,en,encima,entonces,entre,era,eramos,eran,eras,eres,es,esta,estaba,estado,estais,estamos,estan,estoy,fin,fue,fueron,fui,fuimos,gueno,ha,hace,haceis,hacemos,hacen,hacer,haces,hago,incluso,intenta,intentais,intentamos,intentan,intentar,intentas,intento,ir,la,largo,las,lo,los,mientras,mio,modo,muchos,muy,nos,nosotros,otro,para,pero,podeis,podemos,poder,podria,podriais,podriamos,podrian,podrias,por,porqué,porque,primero,puede,pueden,puedo,quien,sabe,sabeis,sabemos,saben,saber,sabes,ser,si,siendo,sin,sobre,sois,solamente,solo,somos,soy,su,sus,también,teneis,tenemos,tener,tengo,tiempo,tiene,tienen,todo,trabaja,trabajais,trabajamos,trabajan,trabajar,trabajas,trabajo,tras,tuyo,ultimo,un,una,unas,uno,unos,usa,usais,usamos,usan,usar,usas,uso,va,vais,valor,vamos,van,vaya,verdad,verdadera,verdadero,vosotras,vosotros,voy,yo,usted,ustedes,tú,rt]
In[]:=
stepspStep1=ToString/@stepsp;stepspAsString=StringJoin[Riffle[stepspStep1," "]]
In[]:=
stepsspAsWordcount=WordCounts[stepspAsString]
In[]:=
twitter
Out[]=
ServiceObject
In[]:=
result=twitter["TweetSearch","Query""#CoronavirusEnPeru",MaxItems100]
In[]:=
Head[Normal[result[[All,"Text"]]]]
Out[]=
List
In[]:=
pret=Normal[result[[All,"Text"]]]
In[]:=
Head[pret]
Out[]=
List
In[]:=
StringDelete["@reymonera hola","@"~~__~~" "]
Out[]=
hola
In[]:=
pret
Out[]=
pret
In[]:=
t=ToLowerCase/@pret
In[]:=
tt=ToString/@t;ttAsString=StringJoin[Riffle[tt," "]]
In[]:=
ttAsString
In[]:=
CleanttAsString=StringDelete[ttAsString,"@"~~__~~","]
Out[]=
rt luego de 23 días de lucha recibiend…
In[]:=
In[]:=
shortTwitter=WordCounts[ttAsString]
In[]:=
shortList=KeyComplement[{shortTwitter,stepsspAsWordcount}]
In[]:=
WordCloud[shortList]
Out[]=
