How I have been importing files in xlsx ( read_excel ) and I have run my Rscript well but when importing the same file in csv, I get the first row with NAs
This is a data.frame after a as.tbl with xlsx
str(t)
and this happens when the source is a csv
THIS MAKES ME OUT OF THE RESULTS AND NOT GRAPHIC, SOME SUGGESTION?
#INICIA CODIDO DE COMPARACION Y REFERENCIA, EXTRACION DE DATA PARA EL CALCULO
library(readxl)
library(dplyr)
library(graphics)
library(stats)
library(readr)
CLAVES_SURTIDOR <- read.csv("/home/po11/Desktop/CLAVES_SURTIDOR.csv",
stringsAsFactors = FALSE)
TIEMPOS_SURT <- read.csv("/home/po11/Desktop/T_S.csv", stringsAsFactors=
FALSE)
surt <- data.frame(CLAVES_SURTIDOR, stringsAsFactors=FALSE)
tsu <- data.frame(TIEMPOS_SURT, stringsAsFactors=FALSE)
tsur <- transform(tsu, FECHA.EN.COLA = as.POSIXct(FECHA.EN.COLA,"%Y-%m-%d
%H:%M:%S"),FECHA.DE.ASIGNACION = as.POSIXct(FECHA.DE.ASIGNACION,"%Y-%m-%d
%H:%M:%S"),FECHA.DE.CONFIRMACION = as.POSIXct(FECHA.DE.CONFIRMACION,"%Y-
%m-%d %H:%M:%S"),FECHA.EN.ENTREGAS = as.POSIXct(FECHA.EN.ENTREGAS, "%Y-%m-%d
%H:%M:%S" ))
tablaf <- left_join(surt,tsur)
t <- as.tbl(tablaf)
tdes <- mutate(t, TIEMPO.DE.SURTIDO = (FECHA.DE.CONFIRMACION -
FECHA.DE.ASIGNACION))
timppp <- mutate(tdes, TIEMPO.PROMEDIO.POR.PARTIDA = (TIEMPO.DE.SURTIDO /
PARTIDAS.DEL.TICKET))
tabla_calculada_gral <- mutate(timppp, TIEMPO.EN.COLA = (FECHA.DE.ASIGNACION
- FECHA.EN.COLA))