library(readxl)
library(openxlsx)
library(tidyverse)
## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --
## v ggplot2 3.3.5 v purrr 0.3.4
## v tibble 3.1.6 v dplyr 1.0.8
## v tidyr 1.2.0 v stringr 1.4.0
## v readr 2.1.2 v forcats 0.5.1
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag() masks stats::lag()
dat <- read_excel("C:/Users/Nga/Desktop/So lieu cam quan sua gao banh gao.xlsx", sheet = "sua gao", skip = 1)
Rice_Milk <- dat %>%
janitor::clean_names()
Rice_Milk <- as.data.frame(Rice_Milk)
summary(Rice_Milk)
## ma_nguoi_thu ma_san_pham tong_the mau_sac
## Length:420 Length:420 Min. :1.000 Min. :1.000
## Class :character Class :character 1st Qu.:4.000 1st Qu.:5.000
## Mode :character Mode :character Median :5.000 Median :6.000
## Mean :5.048 Mean :5.516
## 3rd Qu.:6.000 3rd Qu.:7.000
## Max. :8.000 Max. :8.000
## NA's :1
## mui_vi cau_truc mau mui_sua
## Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.000
## 1st Qu.:3.000 1st Qu.:5.000 1st Qu.:2.000 1st Qu.:1.000
## Median :5.000 Median :5.000 Median :2.000 Median :2.000
## Mean :4.971 Mean :5.345 Mean :1.983 Mean :1.802
## 3rd Qu.:6.000 3rd Qu.:6.000 3rd Qu.:2.000 3rd Qu.:2.000
## Max. :8.000 Max. :8.000 Max. :3.000 Max. :3.000
## NA's :1 NA's :9
## mui_gao vi_ngot do_beo_ngay vi_nong do_sanh_dac
## Min. :1.000 Min. :1.000 Min. :1.000 Min. :1.00 Min. :1.000
## 1st Qu.:1.000 1st Qu.:1.000 1st Qu.:1.000 1st Qu.:1.00 1st Qu.:1.000
## Median :2.000 Median :2.000 Median :2.000 Median :2.00 Median :2.000
## Mean :1.676 Mean :2.007 Mean :1.871 Mean :1.94 Mean :1.602
## 3rd Qu.:2.000 3rd Qu.:3.000 3rd Qu.:2.000 3rd Qu.:3.00 3rd Qu.:2.000
## Max. :3.000 Max. :3.000 Max. :3.000 Max. :3.00 Max. :3.000
##
## hau_vi
## Min. :1.000
## 1st Qu.:1.000
## Median :2.000
## Mean :1.812
## 3rd Qu.:2.000
## Max. :3.000
##