Codigo
Para comenzar se necesitan de las siguientes librerias que ocuparemos para leer el archivo xls, graficar , y obtener un tema para la presentacion como para las graficas.
require(readr)
require(tidyr)
require(dplyr)
require(readxl)
require(ggplot2)
library(plotly)
library(hrbrthemes)
archivo <- "MC1001.xls"Nombramos achivo al documento con el que trabajaremos.
ser <- function(archivo){La función llevara como nombre “ser” y necesitara de archivo.
series <- read_excel(archivo)
Generamos un valor pseudoaleatorio que nos servira para elegir el renglon donde se encuentra la serie que queremos obtener.
s1 <- sample(1:1001,1)Obtenemos la serie y le quitamos las columnas del principio para tomar el vector con solo los tiempos.
x <- series[s1,-c(1:7)]Trasponemos el vector para solo tener un vector columna y poder quitar todas las celdas sin ningun valor
x1 <- t(x)
x2 <- x1[!is.na(x1)]
En tabla acomodaremos el vector columna con la serie y los tiempos , donde tabla es un data.frame que nos ayudara a graficar la serie.
tabla <- data.frame(1:length(x2),x2)
En la grafica tenemos un vector de 1 hasta el tamaño del vector de la serie, respecto a los valores de la serie, donde estaran representados con puntos , se uniran con lineas del color #56B4E9 (azul), tendra unas etiquetas respecto a los ejes , y un modesto titulo. Se delimitara la grafica solo a los valores donde hay puntos y al final se agrega un tema para despues crear el grafico animado.
d <- ggplot(tabla,aes(1:length(x2),x2))+geom_point()+geom_line(colour="#56B4E9")+
xlab("Tiempo")+ylab("Valor Serie")+ggtitle("Grafica Serie")+
coord_cartesian(xlim=c(0,length(x2)),ylim=c(min(x2),max(x2)))+
theme_ft_rc()
ggplotly(d)
}
ser(archivo)