Dữ liệu về mức độ hạnh phúc của các quốc gia trên thế giới, khi hỏi câu hỏi như “Bạn hãy cho biết mức độ hạnh phúc của bạn với thang điểm từ 1-10 , 10 là hạnh phúc nhất” – Kết quả khảo sát năm 2015-2016-2017
Dataset: Tải dữ liệu
2. Một sô câu hỏi
- Các chỉ số kinh tế quốc gia có liên quan đến sự hạnh phúc của người dân
- Các chỉ số chăm sóc y tế quốc gia có liên quan đến sự hạnh phúc của người dân
- Chỉ số hạnh phúc của người dân Việt nam ?
- Chỉ số hạnh phúc của người dân Nhật Bản ?
- much more...
3. Clip bài giới thiệu
4. Một số hình ảnh từ Clip
5. Danh sách câu lệnh
t =
file.choose() ## File: Happiness.csv
da=read.csv(t,header=T)
attach(da)
View(da)
require(ggplot2)
hanhphuc_kinhte
= ggplot(da,aes(x=Economy..GDP.per.Capita.,y=Happiness.Score)) + theme_bw()
hanhphuc_kinhte
+ geom_point(aes(col=Region,size=0.5))
hanhphuc_yte
=
ggplot(da,aes(x=Health..Life.Expectancy.,y=Happiness.Score)) + theme_bw()
hanhphuc_yte
+ geom_point(aes(col=Region,size=0.5))
hanhphuc_kinhte
+ geom_point(aes(col=Region,size=0.5)) + geom_text(aes(label=ifelse(Country=="Vietnam",as.character(Country),'')),hjust=0,vjust=0)
hanhphuc_yte
+ geom_point(aes(col=Region,size=0.2))
+ geom_text(aes(label=ifelse(Country=="Vietnam",as.character(Country),'')),hjust=0,vjust=0)
hanhphuc_yte
+ geom_point(aes(col=Region,size=0.2)) +
geom_text(aes(label=ifelse(Country=="Japan",
as.character(Country),'')),hjust=0,vjust=0)
hanhphuc_kinhte
+
geom_point(aes(col=Region,size=0.5)) +
geom_text(aes(label=ifelse(Country=="Japan",
as.character(Country),'')),hjust=0,vjust=0)
hanhphuc_kinhte
+ geom_point(aes(col=Region,size=0.5)) +
geom_text(aes(label=ifelse(Economy..GDP.per.Capita.<0.25,as.character(Country),'')),hjust=0,vjust=0)
hanhphuc_kinhte
+ geom_point(aes(col=Region,size=0.5)) +
geom_text(aes(label=ifelse(Happiness.Score>7,as.character(Country),'')),hjust=0,vjust=0)
<Viet Nguyen- ngvietlg@gmail.com>
Không có nhận xét nào:
Đăng nhận xét