Actividad Individual 3

Importar la base de datos

#file.choose()
bd<-read.csv("C:\\Users\\Daniel Farias\\Downloads\\Dia Pesado\\Arca Continental.csv")

Limpiar la base de datos

# Convertir tipo de variables
bd$Cliente <- as.integer(bd$Cliente)

## Warning: NAs introducidos por coerción

bd$Enero <- as.integer(bd$Enero)

## Warning: NAs introducidos por coerción

bd$Febrero <- as.integer(bd$Febrero)

## Warning: NAs introducidos por coerción

bd$Marzo <- as.integer(bd$Marzo)

## Warning: NAs introducidos por coerción

bd$Abril <- as.integer(bd$Abril)

## Warning: NAs introducidos por coerción

bd$Mayo <- as.integer(bd$Mayo)

## Warning: NAs introducidos por coerción

bd$Junio <- as.integer(bd$Junio)

## Warning: NAs introducidos por coerción

bd$Julio <- as.integer(bd$Julio)

## Warning: NAs introducidos por coerción

bd$Agosto <- as.integer(bd$Agosto)

## Warning: NAs introducidos por coerción

bd$Septiembre <- as.integer(bd$Septiembre)

## Warning: NAs introducidos por coerción

bd$Octubre <- as.integer(bd$Octubre)

## Warning: NAs introducidos por coerción

bd$Noviembre <- as.integer(bd$Noviembre)

## Warning: NAs introducidos por coerción

bd$Diciembre <- as.integer(bd$Diciembre)

## Warning: NAs introducidos por coerción

Realizar las gráficas

library(ggplot2)

## Warning: package 'ggplot2' was built under R version 4.2.3

ggplot(data=bd)+
  geom_point(mapping= aes(x= ID, y= Enero))

## Warning: Removed 233552 rows containing missing values (`geom_point()`).

ggplot(data=bd)+
  geom_point(mapping= aes(x= ID, y= Enero, color=Tamaño.Cte.Industria))

## Warning: Removed 233552 rows containing missing values (`geom_point()`).

Conclusiones

La gráfica muestra ventas elevadas y ventas bajas a lo largo de los ID. Encontramos que tenemos tiendas Extra Grandes que son las que reportan mayores ventas.Recomendamos analizar la base de datos por Tamaño de Cliente para mejores hallazgos-