GIẢI THÍCH DỮ LIỆU

SwissLabor Dữ liệu tham gia thị trường lao động ở Thụy Sĩ

Mô tả: Dữ liệu mặt cắt ngang có nguồn gốc từ cuộc khảo sát sức khỏe SOMIPOPS cho Thụy Sĩ năm 1981.

Một khung dữ liệu chứa 872 quan sát trên 7 biến.

participation: Yếu tố. Cá nhân có tham gia vào lực lượng lao động không?

income: Logarit của thu nhập phi lao động.

age: Tuổi tính bằng thập kỷ (năm chia cho 10).

education: Những năm giáo dục chính quy.

youngkids: Số trẻ nhỏ (dưới 7 tuổi).

oldkids: Số trẻ lớn hơn (trên 7 tuổi).

foregin: Yếu tố. Cá nhân có phải là người nước ngoài (tức là không phải người Thụy Sĩ) không?

installed.packages("AER")
##      Package LibPath Version Priority Depends Imports LinkingTo Suggests
##      Enhances License License_is_FOSS License_restricts_use OS_type Archs
##      MD5sum NeedsCompilation Built
library(AER)
## Loading required package: car
## Loading required package: carData
## Loading required package: lmtest
## Loading required package: zoo
## 
## Attaching package: 'zoo'
## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric
## Loading required package: sandwich
## Loading required package: survival
# Lấy dữ liệu của SwissLabor
data("SwissLabor")
# Gán dữ liệu của SwissLabor vào d
d <- SwissLabor
# Mô tả chi tiết kiểu biến số của dataset SwissLabor
str(SwissLabor)
## 'data.frame':    872 obs. of  7 variables:
##  $ participation: Factor w/ 2 levels "no","yes": 1 2 1 1 1 2 1 2 1 1 ...
##  $ income       : num  10.8 10.5 11 11.1 11.1 ...
##  $ age          : num  3 4.5 4.6 3.1 4.4 4.2 5.1 3.2 3.9 4.3 ...
##  $ education    : num  8 8 9 11 12 12 8 8 12 11 ...
##  $ youngkids    : num  1 0 0 2 0 0 0 0 0 0 ...
##  $ oldkids      : num  1 1 0 0 2 1 0 2 0 2 ...
##  $ foreign      : Factor w/ 2 levels "no","yes": 1 1 1 1 1 1 1 1 1 1 ...
# Cá nhân có tham gia vào lực lượng lao động có mức thu nhập lớn hơn 10
table(d$participation, d$income > 10)
##      
##       FALSE TRUE
##   no     18  453
##   yes    12  389

Bảng kết quả cho thấy trong tổng số cá nhân không tham gia vào lực lượng lao động có mức thu nhập lớn hơn 10 là 453 quan sát và mức thu nhập nhỏ hơn 10 là 18 quan sát.Trong tổng số cá nhân có tham gia vào lực lượng lao động có mức thu nhập lớn hơn 10 là 389 quan sát và mức thu nhập nhỏ hơn 10 là 12 quan sát.

# Cá nhân là người nước ngoài có những năm giáo dục chính quy trên 7 
table(d$foreign, d$education > 7)
##      
##       FALSE TRUE
##   no     68  588
##   yes   119   97

Bảng kết quả cho thấy : Trong tổng số cá nhân không phải là người Thụy Sĩ có những năm giáo dục chính quy trên 7 là 588 cá nhân và có những năm giáo dục chính quy dưới 7 là 68 cá nhân. Trong tổng số cá nhân là người Thụy Sĩ có những năm giáo dục trên 7 là 97 cá nhân và có những năm giáo dục dưới 7 là 119 cá nhân.

# Cá nhân là người nước ngoài có số tuổi lớn hơn 30
table(d$foreign, d$age > 3.0)
##      
##       FALSE TRUE
##   no    132  524
##   yes    51  165

Bảng kết quả cho thấy: Tổng số cá nhân là người Thụy Sĩ có tuổi lớn hơn 30 là 165 cá nhân và nhỏ hơn 30 tuổi là 51 cá nhân. Tổng số cá nhân không phải là người Thụy Sĩ có tuổi lớn hơn 30 là 524 cá nhân và nhỏ hơn 30 tuổi là 132 cá nhân.

# Cá nhân không có trẻ nhỏ hơn 7 và có trẻ lớn hơn 7 nhiều hơn 2
table(d$youngkids < 1, d$oldkids > 2)
##        
##         FALSE TRUE
##   FALSE   202    5
##   TRUE    597   68

Bảng kết quả cho thấy: Trong tổng số cá nhân không có trẻ nhỏ hơn 7 và có trẻ lớn hơn 7 nhiều hơn 2 là 5 quan sát, cá nhân không có trẻ nhỏ hơn 7 và có trẻ lớn hơn 7 ít hơn 2 là 202 quan sát. Trong tổng số cá nhân có trẻ nhỏ hơn 7 và có trẻ lớn hơn 7 nhiều hơn 2 68, cá nhân có trẻ nhỏ hơn 7 và có trẻ lớn hơn 7 ít hơn 2 là 597 quan sát

knitr::opts_chunk$set(echo = TRUE)


## R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see <http://rmarkdown.rstudio.com>.

When you click the **Knit** button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:


```r
summary(cars)
##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.