SO SÁNH GIÁ TRỊ GDP 2020 vs 2021
Làm nổi bậc lên tốt nhất
1. Lấy dữ liệu
dulieu <-read.csv("http://solieu.vip/csv/dothi2.csv")
attach(dulieu)
dulieu <-dulieu[order(dulieu$GDP),]
head(dulieu)
## ï..STT Tinh Nam GDP Ploai Bap Lua Heo Ga
## 13 13 Can Tho 2020 -35 Tinh13 21.02 14.75 26.24 24.42
## 12 12 Ben Tre 2020 -33 Tinh12 4.19 25.92 23.23 23.66
## 11 11 Tra Vinh 2020 -31 Tinh11 15.78 13.47 22.10 25.97
## 10 10 Vinh Long 2020 -29 Tinh10 13.39 20.76 30.97 29.77
## 9 9 Hau Giang 2020 -27 Tinh9 26.03 21.86 21.80 23.34
## 8 8 Bac Lieu 2020 -25 Tinh8 11.01 16.32 16.10 19.40
2. Vẽ đồ thị hình tháp so sánh
library(ggplot2)
gg <-ggplot() +
geom_bar(data=dulieu, aes(x=Tinh, y=GDP, fill=factor(Nam)),stat = "identity", width = 0.6) +
coord_flip()
gg
3. Sắp xếp lại cho đẹp
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
gg2 <-gg +
geom_text(data=filter(dulieu,GDP <0),aes(x=Tinh, y=GDP,label=-GDP), hjust =-0.5,col="red") +
geom_text(data=filter(dulieu,GDP >0),aes(x=Tinh, y=GDP,label=GDP), hjust =1.2,col="blue")
gg2
4. Ghi thêm năm vào
dulieumoi <-filter(dulieu,Tinh =="Vinh Long")
#dulieumoi <-dulieu[c(10,23),]
head(dulieumoi)
## ï..STT Tinh Nam GDP Ploai Bap Lua Heo Ga
## 1 10 Vinh Long 2020 -29 Tinh10 13.39 20.76 30.97 29.77
## 2 23 Vinh Long 2021 30 Tinh23 19.18 22.40 16.47 22.08
gg3 <-gg2 +
scale_x_discrete(expand = c(0,1.2)) +
geom_text(data=filter(dulieumoi,GDP<0),aes(x=Tinh,y=GDP,label="Nam 2020"), vjust=-1.2) +
geom_text(data=filter(dulieumoi,GDP>0),aes(x=Tinh, y=GDP,label="nam 2021"), vjust= -1.2)
gg3
