Teoría

El Reconocimiento Óptico de Caracteres (OCR) es una tecnología utilizada para convertir diferentes tipos de documentos, como imagenes, documentos impresos escaneados, fotografias de texto, archivos PDF o imagenes capturadas con una cámara, en datos editables y buscables.

La Mineria de datos (TM) es el proceso de extraer informacion util, patrones o conocimiento de texts no estructurados.

Consta de 3 etapas:

1. Obtener datos: El reconocimiento optico de caracteres (OCR) es una tecnologia que permite convertir imagenes de texto en texto editable. También es conocido como extraccion de texto de imagenes.

2. Explorar datos: Representacion gráfica o visual de los datos para su interpretacion. Los metodos más comunes son el análisis de sentimientos, la nube de palabras y el topic modeling.

3. Analisis predictivo: son las tecnicas y modelos estadisticos para predecir resultados futuros. Los modelos mas usados son el random forest, redes neuronales y regresiones.

Instalar paquetes y llamar librerías

#install.packages("tidyverse") #Manipulacion de datos
library(tidyverse)

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ ggplot2   3.5.2     ✔ tibble    3.3.0
## ✔ lubridate 1.9.4     ✔ tidyr     1.3.1
## ✔ purrr     1.1.0     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

#install.packages("tesseract") #OCR
library(tesseract)
#install.packages("magick") #PNG
library(magick)

## Linking to ImageMagick 6.9.12.98
## Enabled features: cairo, freetype, fftw, ghostscript, heic, lcms, pango, raw, rsvg, webp
## Disabled features: fontconfig, x11

#install.packages("officer") #Office (Word)
library(officer)
#install.packages("pdftools") #PDF
library(pdftools)

## Using poppler version 25.05.0

#install.packages("purrr") #Para la función "map" para aplicar una función a cada elemento de un vector
library(purrr)
#install.packages("syuzhet") #Analisis de sentimientos
library(syuzhet)
#install.packages("tm")
library(tm) #Mineria de datos

## Loading required package: NLP
## 
## Attaching package: 'NLP'
## 
## The following object is masked from 'package:ggplot2':
## 
##     annotate

#install.packages("wordcloud") #Nube de palabras
library(wordcloud)

## Loading required package: RColorBrewer

#install.packages("RColorBrewer") #Paletas de colores
library(RColorBrewer)

De imagen PNG a texto en Word

imagen1 <- image_read("C:\\Users\\Ib Ara\\Downloads\\R Raul\\imagen1.PNG")
texto1 <- ocr(imagen1)
texto1

## [1] "Linear regression with one variable x is also known as univariate linear regression\nor simple linear regression. Simple linear regression is used to predict a single\noutput from a single input. This is an example of supervised learning, which means\nthat the data is labeled, i.e., the output values are known in the training data. Let us\nfit a line through the data using simple linear regression as shown in Fig. 4.1.\n"

doc1 <- read_docx() #Crea un documento de word en blanco
doc1 <- doc1 %>% body_add_par(texto1) #Pega el texto en el documento
print(doc1, target = "texto1.docx") #Guarda el documento en la computadora

De imagen PNG en español a texto en Word

imagen2 <- image_read("C:\\Users\\Ib Ara\\Downloads\\R Raul\\imagen2.PNG")
tesseract_download("spa") #Descarga el paquete de idioma español

## Training data already exists. Overwriting C:\Users\Ib Ara\AppData\Local\tesseract5\tesseract5\tessdata/spa.traineddata

## [1] "C:\\Users\\Ib Ara\\AppData\\Local\\tesseract5\\tesseract5\\tessdata/spa.traineddata"

texto2 <- ocr(imagen2, engine = tesseract("spa")) #Especifica el idioma español
texto2

## [1] "Un importante, y quizá controversial, asunto político es el que se refiere al efecto del salario mínimo sobre\nlas tasas de desempleo en diversos grupos de trabajadores. Aunque este problema puede ser estudiado con\ndiversos tipos de datos (corte transversal, series de tiempo o datos de panel), suelen usarse las series de\ntiempo para observar los efectos agregados. En la tabla 1.3 se presenta un ejemplo de una base de datos\nde series de tiempo sobre tasas de desempleo y salarios mínimos.\n"

doc2 <- read_docx() #Crea un documento de word en blanco
doc2 <- doc2 %>% body_add_par(texto2) #Pega el texto en el documento
print(doc2, target = "texto2.docx") #Guarda el documento en la computadora

De PDF a texto en Word

pdf_eso <- pdf_convert("C:\\Users\\Ib Ara\\Downloads\\R Raul\\eso.pdf") %>% map(ocr)

## Converting page 1 to eso_1.png... done!
## Converting page 2 to eso_2.png... done!

#Repetir pasos previos para convertir imagenes a texto en Word

Analisis de emociones y sentimientos

texto <- pdf_eso
texto_palabras <- get_tokens(texto)
emociones <- get_nrc_sentiment(texto_palabras, language = "spanish")
#Alegría, Tristeza, Miedo, Sorpresa, Ira, Asco, Anticipación, Confianza
barplot(colSums(prop.table(emociones[,1:8])))

sentimientos <- (emociones$negative *-1)+emociones$positive
simple_plot(sentimientos)

Nube de palabras

palabras <- texto_palabras
palabras <- removeWords(palabras, c(stopwords("spanish"), "habia", "hacia", "casi"))
wordcloud(words=palabras, min.freq=2, rot.per=0, random.order=FALSE)