Presentacion text mining - Analisis de los Tweets de esta semana sobre Logistica Svilupo (Italia)
Ricardo Palma
abril de 2018
PASO 1: CARGAR LAS BIBLIOTECAS TM
# install.packages("tm")
library(tm)
PASO 2: CREAR CORPUS
Es necesario crear una carpeta con archivos txt. Cada archivo sera un documento unico A partir de ello se crea en memoria de R-CRAN un corpus
#Crear corpus con paquete tm
docs <- Corpus(DirSource("/media/rpalma/Windows/AAA_Datos/2018/Posgrado/R-CRAN/Logistics/Corpus_2"))
PASO 3: EXAMINAR EL OBJETO CORPUS
docs
<<SimpleCorpus>>
Metadata: corpus specific: 1, document level (indexed): 0
Content: documents: 10
PASO 4: EXAMINAMOS UN DOCUMENTO: NUMERO 4
# inspect a particular document
writeLines(as.character(docs[[3]]))
Durante l’ultima edizione di MECSPE (Fiere di Parma) Kardex Italia ha esposto presso il suo stand uno dei prodotti di punta della sua gamma: il magazzino automatico a piani rotanti Megamat RS. L’interesse dimostrato dai visitatori si è focalizzato sulle sue caratteristiche peculiari: efficienza, flessibilità e personalizzazione, che lo rendono un prodotto di successo nei vari mercati di riferimento. Basato sul principio “materiali alla persona”, il Megamat RS è un magazzino automatico verticale in grado di fornire un accesso rapido e preciso ai materiali immagazzinati. È particolarmente indicato per materiali con alta frequenza di accesso poiché, tramite il percorso più breve possibile, porta al punto di accesso il piano richiesto. Il design del magazzino automatico offre la massima capacità di stoccaggio, occupando una minima superficie a pavimento. Queste caratteristiche favoriscono una struttura efficiente dei processi di lavoro e un significativo aumento della produttività. Il Megamat RS può essere facilmente installato come struttura indipendente oppure integrato su più piani, con vari punti di accesso, fino a un’altezza di 10 metri. Ogni magazzino automatico può essere utilizzato come soluzione stand-alone oppure inserito in un sistema integrato. Panoramica dei vantaggi:
Elevata velocità di rotazione: accesso rapido a tutti i materiali immagazzinati
Massima capacità grazie allo stoccaggio ad alta densità
Massimo sfruttamento dello spazio con ingombro minimo
Garanzia per l’investimento grazie al sistema modulare facilmente modificabile
Ampie caratteristiche di sicurezza e design ergonomico
Unità di controllo Logicontrol
Maggior precisione nei prelievi
Tecnologia a risparmio energetico: consumo fino al 40% in meno
Sviluppo energetico ambientale
innovazione
PASO 5: PRE PROCESAMIENTO
Estos comandos permiten remover puntuaciones, espacios en blancos, numeros entre otros
getTransformations()
[1] "removeNumbers" "removePunctuation" "removeWords"
[4] "stemDocument" "stripWhitespace"
PASO 5.1: Remover puntaciones
#Remove punctuation - replace punctuation marks with " "
docs <- tm_map(docs, removePunctuation)
PASO 5.2: Remover comillas
toSpace <- content_transformer(function(x, pattern) {return (gsub(pattern, " ", x))})
PASO 5.3: Eliminar caracteres especiales
docs <- tm_map(docs, toSpace, "'")
docs <- tm_map(docs, toSpace, "'")
docs <- tm_map(docs, toSpace, " -")
PASO: 5.4: Convertir corpus a minuscula
docs <- tm_map(docs,content_transformer(tolower))
PASO 5.5: Remover Numeros
docs <- tm_map(docs, removeNumbers)
PASO 5.6: Remover articulos, preposiciones u otros
docs <- tm_map(docs, removeWords, stopwords("italian"))
PASO 5.7: Remover espacios dobles
docs <- tm_map(docs, stripWhitespace)
PASO 6: CREAR MATRIZ DE TERMINOS
dtm <- DocumentTermMatrix(docs)
dtm
<<DocumentTermMatrix (documents: 10, terms: 1209)>>
Non-/sparse entries: 1538/10552
Sparsity : 87%
Maximal term length: 19
Weighting : term frequency (tf)
PASO 6.1: Inspeccionar la Matriz
inspect(dtm[1:10,488:500,5])
<<DocumentTermMatrix (documents: 10, terms: 13)>>
Non-/sparse entries: 13/117
Sparsity : 90%
Maximal term length: 13
Weighting : term frequency (tf)
Sample :
Terms
Docs completa comprende conad concesso consumi coop crescerà dario dati
1 0 0 0 0 0 0 0 0 0
10 0 0 0 0 0 0 0 0 0
2 0 0 0 0 0 0 0 0 0
3 0 0 0 0 0 0 0 0 0
4 0 0 0 0 0 0 0 0 0
5 1 1 1 1 1 1 1 1 1
6 0 0 0 0 0 0 0 0 0
7 0 0 0 0 0 0 0 0 0
8 0 0 0 0 0 0 0 0 0
9 0 0 0 0 0 0 0 0 0
Terms
Docs denominazione
1 0
10 0
2 0
3 0
4 0
5 3
6 0
7 0
8 0
9 0
PASO 7: ENCONTRAR FRECUENCIA RELATIVA
dtmr <-DocumentTermMatrix(docs, control=list(wordLengths=c(3, 20),
bounds = list(global = c(1,27))))
findFreqTerms(dtmr,lowfreq=0)
[1] "alis" "alis–" "ambientale"
[4] "ambito" "aprile" "associazione"
[7] "associazionismo" "auguriamo" "avviare"
[10] "beneficio" "caterina" "coinvolta"
[13] "commentato" "comuni" "condividi"
[16] "condivisione" "consapevoli" "considerata"
[19] "contribuire" "convocazione" "decisionali"
[22] "definizione" "direttore" "diventati"
[25] "economici" "economico" "efficiente"
[28] "efficienti" "elemento" "energetico"
[31] "essere" "europeo”" "facebook"
[34] "fare" "favoriscano" "ferroviaria"
[37] "finalità" "finalizzate" "forma"
[40] "generale" "generare" "grande"
[43] "importante" "importanza" "imprescindibile"
[46] "infatti" "iniziative" "innovativo"
[49] "innovazione" "intermodale" "intermodale“"
[52] "intermodali" "intervento" "invitata"
[55] "istituzionali" "lanciato" "livello"
[58] "logistica" "logistico" "marcello"
[61] "mercato" "miglioramento" "miglio”"
[64] "nazionale" "nazionali" "nodi"
[67] "obiettivi" "opera" "orgogliosi"
[70] "paese" "parole" "partecipa"
[73] "partecipato" "particolare" "percorso"
[76] "persegue" "persona" "piano"
[79] "plauso" "possa" "potendo"
[82] "potenziamento" "presentazione" "prestigio"
[85] "prima" "primaria" "primario"
[88] "processi" "progetto" "promuovendo"
[91] "prova" "può" "rapidi"
[94] "rappresenta" "realmente" "realtà"
[97] "redazione" "rende" "resi"
[100] "rfi" "ricevuto" "rilancio"
[103] "sano" "scelte" "sempre"
[106] "servizi" "settore" "sinergie"
[109] "sistema" "soddisfazione" "sostenibile"
[112] "stakeholders" "stata" "stessa"
[115] "strategie" "strutturale" "sviluppo"
[118] "tangibile" "tavoli" "trasporti"
[121] "tweet" "twitter" "unica"
[124] "utilità" "–" "–conferma"
[127] "’accessibilità" "’ambito" "’eccellenza"
[130] "’economia" "’evento" "’iniziativa"
[133] "’intermodalità" "’invito" "’obiettivo"
[136] "’ottica" "“" "“penultimoultimo"
[139] "“’invito" "accompagna" "addirittura"
[142] "adibito" "aiutiamo" "alcuna"
[145] "amazon" "amazon‘" "americane"
[148] "amministratore" "angeles" "aperti"
[151] "articolo" "attirato" "attraversare"
[154] "aziende" "bassa" "bella"
[157] "bezos" "calo" "camion"
[160] "caos" "capire" "capitalizzazione"
[163] "commercianti" "consegna" "consegnare"
[166] "consegnarli" "contrattazioni" "conversazioni"
[169] "costi" "costo" "così"
[172] "crescita" "criticata" "data"
[175] "delegato" "denominato" "destinatari"
[178] "diamo" "dicono" "direzione"
[181] "distributiva" "domanda" "due"
[184] "enorme" "fante" "febbraio"
[187] "fedex" "fiume" "fondamentale"
[190] "generato" "giorni" "già"
[193] "imamgine" "inferiori" "inizierà"
[196] "innovativa" "intraprendere" "investimento"
[199] "invidiata" "italiane" "jeff"
[202] "journal" "lato" "los"
[205] "magazzini" "maggiori" "mantenendo"
[208] "matteo" "merci" "migliorando"
[211] "momento" "mondo" "motivo"
[214] "nota" "notizia" "nuova"
[217] "offerto" "ottenere" "pacchi"
[220] "pari" "però" "piattaforma"
[223] "pochi" "poste" "potrebbe"
[226] "preapertura" "prepara" "pronto"
[229] "proprio" "prossime" "provenienti"
[232] "pungerà’" "qual" "questione"
[235] "raccolta" "rana" "redditività"
[238] "rete" "ricavi" "richiede"
[241] "rilasciato" "rilevante" "risparmiare"
[244] "rispettivamente" "scorpione" "scritta"
[247] "sensazione" "sentirsi" "servizio"
[250] "settimane" "società" "sorge"
[253] "sostiene" "sottolineare" "sottolineato"
[256] "spedizione" "spinge" "spontanea"
[259] "strada" "street" "sviluppare"
[262] "sì" "tecnici" "terzi"
[265] "trasporto" "trend" "ufficiale"
[268] "ups" "usa" "uscito"
[271] "veloce" "vendono" "verso"
[274] "visione" "voce" "wall"
[277] "with" "‘shipping" "‘sì"
[280] "’altissima" "’assetto”" "’attenzione"
[283] "’efficace" "accesso" "alta"
[286] "ampie" "aumento" "automatico"
[289] "basato" "breve" "capacità"
[292] "caratteristiche" "consumo" "controllo"
[295] "densità" "design" "dimostrato"
[298] "durante" "edizione" "efficienza"
[301] "elevata" "ergonomico" "esposto"
[304] "facilmente" "favoriscono" "fiere"
[307] "fino" "flessibilità" "focalizzato"
[310] "fornire" "frequenza" "gamma"
[313] "garanzia" "grado" "grazie"
[316] "immagazzinati" "indicato" "indipendente"
[319] "ingombro" "inserito" "installato"
[322] "integrato" "italia" "kardex"
[325] "lavoro" "logicontrol" "magazzino"
[328] "maggior" "massima" "massimo"
[331] "materiali" "mecspe" "megamat"
[334] "meno" "mercati" "metri"
[337] "minima" "minimo" "modificabile"
[340] "modulare" "occupando" "offre"
[343] "ogni" "oppure" "panoramica"
[346] "parma" "particolarmente" "pavimento"
[349] "peculiari" "personalizzazione" "persona”"
[352] "piani" "poiché" "porta"
[355] "possibile" "precisione" "preciso"
[358] "prelievi" "presso" "principio"
[361] "prodotti" "prodotto" "produttività"
[364] "punta" "punti" "punto"
[367] "rapido" "rendono" "richiesto"
[370] "riferimento" "risparmio" "rotanti"
[373] "rotazione" "sfruttamento" "sicurezza"
[376] "significativo" "soluzione" "spazio"
[379] "stand" "standalone" "stoccaggio"
[382] "struttura" "successo" "superficie"
[385] "tecnologia" "tramite" "unità"
[388] "utilizzato" "vantaggi" "vari"
[391] "velocità" "verticale" "visitatori"
[394] "’altezza" "’interesse" "’investimento"
[397] "’ultima" "“materiali" "accedere"
[400] "ammirare" "apprezzati" "assistere"
[403] "astestesar" "brevemente" "building"
[406] "chiusure" "civili" "competizione"
[409] "consolidamento" "conviviale" "divertimento"
[412] "emx" "famosi" "filiale"
[415] "giornata" "gruppo" "hörmann"
[418] "industriali" "intrattenersi" "mondiale"
[421] "moto" "motocross" "nonché"
[424] "noto" "occasione" "official"
[427] "oltre" "paddock" "partner"
[430] "penisola" "piacevole" "pietramurata"
[433] "piloti" "pista" "possibilità"
[436] "potenti" "potuto" "qualità"
[439] "quarta" "quest’anno" "riunito"
[442] "scende" "scorso" "spirito"
[445] "squadra" "svolta" "tappa"
[448] "team" "trascorrere" "trentina"
[451] "trento" "vede" "venti"
[454] "vicino" "yamaha" "’avvincente"
[457] "’insegna" "’omonimo" "acquisti"
[460] "altre" "ampia" "ancora"
[463] "andando" "anno" "appropriato"
[466] "assorbiti" "atto" "aumenta"
[469] "aumentare" "aumenti" "avvio"
[472] "bianchi" "biologico" "bollicine"
[475] "bonato" "boom" "bottiglia"
[478] "bottiglie" "bottiglie”" "buona"
[481] "cantine" "catene" "cattiva"
[484] "causa" "cercando" "circa"
[487] "colpire" "completa" "comprende"
[490] "conad" "concesso" "consumi"
[493] "coop" "crescerà" "dario"
[496] "dati" "denominazione" "dichiara"
[499] "distributive" "distributori" "distributrice"
[502] "distribuzione" "distribuzione”" "diverse"
[505] "dopo" "doveroso" "dovrebbe"
[508] "dovrebbero" "d’origine" "eccellenze"
[511] "ecornaturasi" "enologiche" "etichette"
[514] "euro" "evidente" "evidenzia"
[517] "famila" "fascia" "flessibili"
[520] "francesco" "frascaroli" "futuro"
[523] "grandi" "incrementi" "incremento"
[526] "inoltre" "insegne" "investito"
[529] "iper" "iri" "libero"
[532] "limitate" "linea" "listini"
[535] "litri" "litro" "marchio"
[538] "marco" "medio" "mediomedioalta"
[541] "meglio" "mezze" "michele"
[544] "milione" "milioni" "moderato"
[547] "molto" "nonostante" "offerti"
[550] "oggi" "operando" "origine"
[553] "ovviamente" "parte" "peduzzi"
[556] "pesato" "piccolo" "poco"
[559] "portare" "potranno" "potrebbero"
[562] "precedente" "presenta" "presentiamo"
[565] "previsioni" "prezzi" "prezzo"
[568] "probabilmente" "prodotto”" "promozionale"
[571] "proporre" "proseguirà" "puntano"
[574] "qualche" "quel" "quindi"
[577] "quotidiano" "rallentare" "reale"
[580] "recupero" "regionali" "regioni"
[583] "registrato" "rialzi" "ricerca"
[586] "riduzione" "riferisce" "ripetere"
[589] "rischia" "rossi" "scaffali"
[592] "scarcelli" "secondo" "segmento”"
[595] "selex" "semplificata" "senza"
[598] "settori" "solfiti" "specializzata"
[601] "specie" "spiega" "spinta"
[604] "spumante" "spumanti" "supermercati"
[607] "svalorizzare" "tavola" "testimoniato"
[610] "tipici" "traduca" "triarico"
[613] "tutta" "ulteriormente" "ultimi"
[616] "uso" "valerio" "valore"
[619] "vedere" "vendemmia" "vendita"
[622] "vendite" "vendute" "venduti"
[625] "venduto" "verificarsi" "vie"
[628] "vigne" "vini" "vinitaly"
[631] "vino" "volume" "volume”"
[634] "‘giovane’" "’acquisto" "’analisi"
[637] "’anno" "’aumento" "’offerta"
[640] "’ulteriore" "’uva”" "“tavola”"
[643] "“’aumento" "aeromobile" "aeroportuali"
[646] "airport" "ambulift" "anni"
[649] "approccio" "articolata" "attrezzature"
[652] "avanti" "aviogei" "backeye®"
[655] "bagagli" "ben" "brigade"
[658] "cabina" "cargo" "caricoscarico"
[661] "civile" "collaborazione" "commercializzando"
[664] "compagnia" "comparto" "conta"
[667] "costruisce" "costruito" "deciso"
[670] "dedicata" "dimenticare" "disabili"
[673] "disegna" "dispositivi" "elettronica"
[676] "europe" "guardando" "guida"
[679] "installare" "integrata" "inter"
[682] "internazionale" "italy" "leader"
[685] "loader" "made" "mezzi"
[688] "militare" "monaco" "nastri"
[691] "nuovo" "operatore" "ottobre"
[694] "paesi" "passeggeri" "passo"
[697] "pioneristico" "potabile" "prende"
[700] "presentato" "proposta" "propria"
[703] "riconosciuta" "rientra" "rivolta"
[706] "rivolto" "scale" "scarico"
[709] "serve" "solo" "specifici"
[712] "tipo" "tipologie" "toilette"
[715] "transporter" "veicolare" "veicoli"
[718] "vende" "volo" "’acqua"
[721] "’assistenza" "’esposizione" "’innovazione"
[724] "accessibilità" "accogliere" "alte"
[727] "altezza" "altezze" "ampliato"
[730] "angolazione" "articoli" "aspettare"
[733] "automaticamente" "aziendali" "basa"
[736] "base" "bisogno" "braccia"
[739] "buffer" "carichi" "cassetta"
[742] "cassette" "certa" "ciò"
[745] "collo" "comoda" "componenti"
[748] "configurazione" "configurazioni" "conformi"
[751] "confort”" "consegnati" "consente"
[754] "consentono" "contempo" "contenitore"
[757] "definirlo" "dematic" "desiderata"
[760] "detto" "dimensioni" "direttamente"
[763] "elevati" "eliminando" "ergonomica"
[766] "esigenze" "estremamente" "evasione"
[769] "famiglie" "fermo" "fluido"
[772] "fragili" "garantire" "gruppi"
[775] "icona" "impiegando" "includono"
[778] "indicazioni" "inserisce" "intelligente"
[781] "linee" "lotti" "mani"
[784] "mentre" "modo" "modulari"
[787] "molte" "multiple" "multishuttle™"
[790] "necessità" "operatori" "ordine"
[793] "ordini" "ospitare" "pesanti"
[796] "picking" "portata" "posizione"
[799] "posizioni" "poter" "precisa"
[802] "preleva" "prelevato" "prelievo"
[805] "preparazione" "prestazioni" "progettato"
[808] "progettazione" "propri" "qualsiasi"
[811] "raggio" "rapida" "rapidpick"
[814] "rapidpick™" "regolabile" "regolato"
[817] "requisiti" "resta" "richiesta"
[820] "ridotto" "ridurre" "rimossi"
[823] "scambio" "scatole" "schermate"
[826] "schermo" "semplici" "semplificare"
[829] "sequenza" "sku" "solamente"
[832] "sollevare" "sopra" "spalle"
[835] "spingere" "stazione" "stazioni"
[838] "stendere" "successivo" "tassi"
[841] "tempo" "universale" "uomo”"
[844] "utilizzando" "venga" "vengono"
[847] "viene" "volta" "’"
[850] "’affaticamento" "’articolo" "’elevata"
[853] "’interno" "’inventario" "’operatore"
[856] "“intelligente”" "“merce" "“motore”"
[859] "“zona" "addetti" "adeguare"
[862] "allora" "ama" "amministrazioni"
[865] "annuncia" "aperta" "arrivare"
[868] "assicurare" "assume" "assumere"
[871] "assunto" "attivamente" "attuali"
[874] "berendsen" "bologna" "business"
[877] "calcio" "capillarità" "carica"
[880] "carriera" "centri" "chairman"
[883] "chiave" "chief" "cittadini"
[886] "classe" "coesa" "comitato"
[889] "commercio" "competenze" "competitività"
[892] "concorrenza" "conosce" "contare"
[895] "contesto" "continua" "continuare"
[898] "continuità" "contribuendo" "contributo"
[901] "correre" "costantemente" "crescente"
[904] "dare" "determinazione" "dichiarato"
[907] "digitale" "dinamiche" "dirette"
[910] "diretto" "dirigente" "distinguendosi"
[913] "distributivo" "elettronico" "escursionismo"
[916] "esecutivo" "esperienza" "evolva"
[919] "felice" "fianco" "fiducia"
[922] "figli" "filiali" "financial"
[925] "fisico" "focalizzerà" "focus"
[928] "fondo" "funzioni" "general"
[931] "giocare" "guardare" "guidare"
[934] "indirette" "iniziata" "innovativi"
[937] "integrando" "interne" "investendo"
[940] "italiana" "italiano" "leva"
[943] "luciano" "lunga" "lungo"
[946] "mailparcel" "manager" "membro"
[949] "mesi" "modena" "nazionale”"
[952] "network" "nexive" "nomina"
[955] "nominare" "officer" "olandese"
[958] "ora" "orgoglio" "persone"
[961] "piena" "pim" "points"
[964] "politiche" "postale" "postnl"
[967] "post–" "primo" "privato"
[970] "professionalità" "pubbliche" "pugliese"
[973] "quest’evoluzione" "radicamento" "recapito"
[976] "responsabile" "responsabilità" "retail"
[979] "ricoperto" "riempie" "rinnova"
[982] "rinnovata" "riporto" "rispecchia"
[985] "rispondere" "ruoli" "ruolo"
[988] "sana" "scelta" "seguire"
[991] "semestre" "sfida" "soluzioni"
[994] "sostenendo" "sposato" "staff"
[997] "strategico" "supporto" "sviluppando"
[1000] "s’impegna" "tecnologici" "termine"
[1003] "territorio" "tnt" "traja"
[1006] "trasformazione" "tre" "tutte"
[1009] "ufficialmente" "valorizzazione" "vanta"
[1012] "vita" "vivere" "’aria"
[1015] "’azienda" "’esperienza" "’evoluzione"
[1018] "’intenzione" "’intera" "’italia"
[1021] "adatto" "alloggiamento" "analisi"
[1024] "automazionerobotica" "board" "campioni"
[1027] "caratterizzato" "cavo" "cmos"
[1030] "codici" "configurabile" "custodia"
[1033] "dcr" "decodifica" "diretta"
[1036] "dotato" "economica" "electronic"
[1039] "esempio" "fili" "imager"
[1042] "intralogistica" "laboratori" "leggere"
[1045] "lettore" "lettura" "letture"
[1048] "leuze" "liberi" "macchine"
[1051] "macr" "metallo" "modelli"
[1054] "modulo" "ottico" "ottime"
[1057] "packaging" "piccoli" "precablato"
[1060] "profondità" "proprietà" "protettiva"
[1063] "rack" "reagenti" "sensor"
[1066] "sicura" "software" "speciale"
[1069] "standard" "studio”" "trasportatori"
[1072] "via" "’apposita" "’automazione"
[1075] "’individuazione" "’integrazione" "’interfaccia"
[1078] "’opzione" "“leuze" "accontentare"
[1081] "adottato" "aereo" "affidandosi"
[1084] "africa" "alcun" "america"
[1087] "ampio" "apac" "aree"
[1090] "asiapacifico" "associates" "azure"
[1093] "basata" "canali" "catena"
[1096] "ciascun" "cio" "cliente"
[1099] "clienti" "cloud" "coerenza"
[1102] "consolidata" "contemporaneamente" "coprire"
[1105] "costante" "decisa" "disponibilità"
[1108] "diversi" "dover" "dura"
[1111] "elevato" "emea" "entusiasti"
[1114] "esigenti" "estensibilità" "europa"
[1117] "facilità" "farlo" "fase"
[1120] "fattori" "favorendo" "fin"
[1123] "fornisce" "fornitori" "fornitura"
[1126] "funzionalità" "geografiche" "gestione"
[1129] "globale" "globali" "gomma"
[1132] "gudger" "henri" "hub"
[1135] "implementabile" "implementare" "implementazione"
[1138] "implementazioni" "locali" "logistics"
[1141] "logistics“" "manhattan" "marittimo"
[1144] "massimizzando" "microsoft" "molteplici"
[1147] "multicanale" "multisiti" "naturale"
[1150] "necessarie" "operazioni" "oriente"
[1153] "ormai" "ownership" "passato"
[1156] "president" "pressione" "prime"
[1159] "principali" "priorità" "problema"
[1162] "processo" "profittevolmente" "programma"
[1165] "prossima" "recentemente" "relativamente"
[1168] "relativo" "reti" "rilevato"
[1171] "scegliere" "scelto" "selezione"
[1174] "senior" "serie" "seroux"
[1177] "serviva" "singoli" "sistemi"
[1180] "siti" "soddisfare" "specifiche"
[1183] "spettro" "spiegato" "standardizzare"
[1186] "stato" "storia" "strategica"
[1189] "subiscono" "sud" "supportando"
[1192] "tco" "tecnologie" "tony"
[1195] "totale" "uniforma" "utilizzare"
[1198] "vice" "visto" "wms"
[1201] "yusen" "’ampia" "’azienda”"
[1204] "’efficienza" "’erogazione" "’impegno"
[1207] "’implementazione" "’ottimizzazione" "’unica"
PASO 8: PLOTEO DE LA MATRIZ DE TERMINOS
freqr <- colSums(as.matrix(dtmr))
wf=data.frame(term=names(freqr),occurrences=freqr)
PASO 9: UTILIZACION DE LA BIBLIOTECA ggplot2
library(ggplot2)
p <- ggplot(subset(wf, freqr>5), aes(term,
occurrences))
p <- p + geom_bar(stat="identity")
p <- p + theme(axis.text.x=element_text(angle=45,
hjust=1))
PASO 10: PLOTEO DE LA MATRIZ
p
PASO 11: NUBE DE TERMINOS
#wordcloud
library(wordcloud)
set.seed(42)
wordcloud(names(freqr),freqr, min.freq=5)
Relación de Términos
Buscaremos los terminos más significativos de la nube y veremos con que palabras se relacionan.
Asociar <- findAssocs(dtmr,c("economici","logistico","vino"),c(0.7,0.7,0.5))
Asociados de economici
Asociar$economici[c(20,90,30)]
elemento ’ottica imprescindibile
1 1 1
Asociar$economici[c(75,45,8)]
stakeholders obiettivi beneficio
1 1 1
Asociados de logistica
Asociar$logistico[10:14]
coinvolta condivisione consapevoli considerata convocazione
1 1 1 1 1
Asociar$logistico[15:19]
decisionali direttore diventati economico efficienti
1 1 1 1 1
Asociados de vino
Asociar$vino[35:38]
dati denominazione dichiara distributive
1 1 1 1
Asociar$vino[49:51]
etichette euro evidente
1 1 1