AnalisisFiltex

HéctorZapata

17/10/2020

library(DT)
library(tidyverse)
## -- Attaching packages ---------------------------------------------------------------------------- tidyverse 1.3.0 --
## v ggplot2 3.3.2     v purrr   0.3.4
## v tibble  3.0.3     v dplyr   1.0.2
## v tidyr   1.1.1     v stringr 1.4.0
## v readr   1.3.1     v forcats 0.5.0
## -- Conflicts ------------------------------------------------------------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
library(ggplot2)
library(pacman)
library(readr)
library(DT)

Caso de estudio: “Filtex, S. A.”

Estudiaremos, analizaremos y visualizaremos los datos arrojados por la empresa Filtex para hacer nuestros modelos gráficos y presentar los datos de forma ordenada y precisa

library(readxl)
DatosFiltex <- read_excel("C:/Users/progr/OneDrive/Escritorio/AnalisisFundamentos/DatosFiltex.xlsx")

Tabla de productos en Aumento-Decremento de la empresa

Esta tabla representa una recopilación de los datos de forma ordenada tales que gracias a esta tabla se pueda observar de forma limpia.

datatable(DatosFiltex)

Grafica de crecimiento

La grafica esta ajustada al valor maximo de ventas alcanzado por la empresa, ese valor fue arrojado por el producto Ultra, podremos observar es el crecimiento a la par de los 3 productos

ggplot(data = DatosFiltex) +
  geom_point(mapping = aes(x = Mes, y = Ultra, color = "Ultra"))+ geom_point(mapping = aes(x = Mes, y = Finex, color = "Micro"))+ geom_point(mapping = aes(x = Mes, y = Micro, color = "Finex"))