Thuc hanh R1

dulieu_hh=read.csv("C:\\Users\\MINH ANH\\OneDrive\\Máy tính\\Thuc hanh PTDL.csv\\doanh_thu_ban_le.csv")

Mô tả dữ liệu

cat("So quan sat;", nrow(dulieu_hh), "\nSo bien:", ncol(dulieu_hh),"\n")

## So quan sat; 108 
## So bien: 4

names(dulieu_hh)

## [1] "thang"     "san_pham"  "khu_vuc"   "doanh_thu"

Kiểu dữ liệu của từng biến

str(dulieu_hh)

## 'data.frame':    108 obs. of  4 variables:
##  $ thang    : int  1 1 1 1 1 1 1 1 1 2 ...
##  $ san_pham : chr  "A" "A" "A" "B" ...
##  $ khu_vuc  : chr  "Bac" "Trung" "Nam" "Bac" ...
##  $ doanh_thu: int  170 170 170 220 220 220 270 270 270 190 ...

Mô tả doanh thu - sử dụng table1

Bảng mô tả doanh thu theo khu vực

library(table1)

## 
## Attaching package: 'table1'

## The following objects are masked from 'package:base':
## 
##     units, units<-

table1(~ doanh_thu | khu_vuc, data = dulieu_hh)

	Bac (N=36)	Nam (N=36)	Trung (N=36)	Overall (N=108)
doanh_thu
Mean (SD)	330 (81.3)	330 (81.3)	330 (81.3)	330 (80.6)
Median [Min, Max]	330 [170, 490]	330 [170, 490]	330 [170, 490]	330 [170, 490]

Bảng mô tả doanh thu theo sản phẩm

table1(~ doanh_thu | san_pham, data = dulieu_hh)

	A (N=36)	B (N=36)	C (N=36)	Overall (N=108)
doanh_thu
Mean (SD)	280 (70.0)	330 (70.0)	380 (70.0)	330 (80.6)
Median [Min, Max]	280 [170, 390]	330 [220, 440]	380 [270, 490]	330 [170, 490]

Trực quan hóa dữ liệu

Biểu đồ tổng doanh thu theo khu vực

library(ggplot2)
tong_kv <- aggregate(doanh_thu ~ khu_vuc, dulieu_hh, sum)

ggplot(tong_kv, aes(x = khu_vuc, y = doanh_thu)) +
  geom_col(fill = "steelblue") +
  labs(title = "Tong doanh thu theo khu vuc",
       x = "Khu vuc",
       y = "Tong doanh thu")

Biểu đồ tổng doanh thu theo sản phẩm

library(ggplot2)
tong_sp <- aggregate(doanh_thu ~ san_pham, dulieu_hh, sum)

ggplot(tong_sp, aes(x = san_pham, y = doanh_thu)) +
  geom_col(fill = "orange") +
  labs(title = "Tong doanh thu theo san pham ",
       x = "San pham",
       y = "Tong doanh thu")

Biểu đồ tổng doanh thu theo khu vực và sản phẩm

library(ggplot2)

tong_kv_sp <- aggregate(doanh_thu ~ khu_vuc + san_pham, dulieu_hh, sum)

ggplot(tong_kv_sp, aes(x = khu_vuc, y = doanh_thu, fill = san_pham)) +
  geom_col(position = "dodge") +
  labs(title = "Tong doanh thu theo khu vuc va san pham",
       x = "Khu vuc",
       y = "Tong doanh thu",
       fill = "San pham")

Biểu đồ phân bố doanh thu sử dụng histogram

hist(dulieu_hh$doanh_thu,
     main = "Phân bố doanh thu",
     xlab = "Doanh thu",
     col = "lightblue",
     border = "black")