DATA

#
#
dta <- read.csv("data0505.csv", header = T)
options(digits = 3)
pacman::p_load(tidyverse, ggplot2, knitr, furniture, broom, lm.beta)
dta <- dta %>% mutate( Gender = relevel(Gender, ref = "女"),
                       Sector = relevel(Sector, ref = "私立"),
                       Field = relevel(Field, ref = "大眾傳播學群"),
                       EduLv = factor(EduLv, levels=c("博士","碩士","普通大學","科技大學",
                                                      "技術學院","五專","三專",
                                                      "二專","高中","高職","國中")),
                       EduLv = relevel(EduLv, ref = "技術學院"),
                       Region = factor(Region, levels =c("宜花東離島","北北基","桃竹苗",
                                                         "中彰投","雲嘉南","高屏澎")),
                       Age = as.numeric(Age), 
                       J_year = as.numeric(J_year), 
                       JobZone = as.numeric(JobZone),
                       EduZone = as.numeric(EduZone),
                       JobZone_D = as.numeric(EduZone-JobZone),
                       Salary = as.numeric(Salary),
                       SubEduOver = relevel(SubEduOver, ref="符合工作要求"),
                       Core = recode_factor(as.factor(JobCor), "1" = "無關聯",
                                            "2" = "部分關聯",
                                            "3" = "核心關聯"),
                       SubEduOver = factor(SubEduOver,levels =c("符合工作要求","高於工作要求","低於工作要求")))

# data construction
glimpse(dta)
## Observations: 1,571
## Variables: 26
## $ SID         <fctr> A1, A10, A100, A102, A103, A104, A105, A106, A107...
## $ Gender      <fctr> 女, 女, 女, 女, 男, 女, 女, 女, 女, 女, 女, 男, 男, 男, 女, 男, 男...
## $ Sector      <fctr> 國立(公立), 國立(公立), 私立, 國立(公立), 國立(公立), 國立(公立), 國立(公立...
## $ EduLv       <fctr> 碩士, 碩士, 普通大學, 普通大學, 高職, 普通大學, 普通大學, 普通大學, 普通大學, 普...
## $ SubEduOver  <fctr> 符合工作要求, 高於工作要求, 符合工作要求, 符合工作要求, 符合工作要求, 符合工作要求, 符...
## $ Require     <fctr> 碩士, 高中/高職, 普通大學, 普通大學, 高中/高職, 普通大學, 普通大學, 普通大學, 普...
## $ Field       <fctr> 教育學群, 資訊學群, 外語學群, 教育學群, 工程學群, 文史哲學群, 文史哲學群, 大眾傳播學...
## $ City        <fctr> 臺南市, 高雄市, 苗栗縣, 新北市, 高雄市, 南投縣, 嘉義市, 臺北市, 臺北市, 南投縣,...
## $ Category    <fctr> 受雇於公營機關, 受雇於公營機關, 受雇於公營機關, 受雇於公營機關, 受雇者於私營企業, 受雇於...
## $ Staff       <fctr> 10-29人, 50-99人, 50-99人, 10-29人, 2-9人, 100-199人, 1...
## $ Hours       <int> 48, 40, 70, 50, 57, 51, 64, 50, 50, 47, 50, 60, 45...
## $ J_year      <dbl> 2, 8, 4, 1, 21, 1, 6, 0, 1, 1, 17, 7, 3, 23, 1, 2,...
## $ J_total     <dbl> 2, 8, 4, 1, 30, 1, 6, 0, 2, 2, 28, 7, 30, 26, 1, 1...
## $ income      <fctr> 2萬以下, 2-3萬以下, 3-4萬以下, 4-5萬以下, 3-4萬以下, 4-5萬以下, 2萬以...
## $ SubMismatch <int> 4, 2, 3, 4, 5, 4, 5, 4, 3, 3, 4, 4, 4, 4, 5, 5, 3,...
## $ JobSat      <int> 6, 4, 3, 5, 5, 6, 7, 5, 3, 6, 3, 5, 4, 7, 3, 4, 4,...
## $ EduZone     <dbl> 5, 5, 4, 4, 2, 4, 4, 4, 4, 4, 5, 5, 3, 5, 4, 4, 4,...
## $ Region      <fctr> 雲嘉南, 高屏澎, 桃竹苗, 北北基, 高屏澎, 中彰投, 雲嘉南, 北北基, 北北基, 中彰投,...
## $ Salary      <dbl> 20000, 25000, 35000, 45000, 35000, 45000, 20000, 3...
## $ Age         <dbl> 26, 34, 30, 25, 62, 25, 21, 24, 25, 26, 57, 35, 54...
## $ JobZone     <dbl> 4, 3, 4, 4, 3, 4, 4, 4, 4, 4, 4, 4, 4, 5, 4, 4, 3,...
## $ JobCor      <int> 3, 1, 2, 3, 1, 2, 1, 3, 1, 1, 1, 3, 1, 1, 3, 1, 3,...
## $ Core        <fctr> 核心關聯, 無關聯, 部分關聯, 核心關聯, 無關聯, 部分關聯, 無關聯, 核心關聯, 無關聯,...
## $ ObjOver     <fctr> over, over, adequate, adequate, under, adequate, ...
## $ X           <int> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA...
## $ JobZone_D   <dbl> 1, 2, 0, 0, -1, 0, 0, 0, 0, 0, 1, 1, -1, 0, 0, 0, ...
# check and pick out
lapply(dta[,c("Sector", "Field", "City", "Region","EduLv", "SubEduOver", "ObjOver")], levels)
## $Sector
## [1] "私立"         "國外學校"     "國立(公立)"
## 
## $Field
##  [1] "大眾傳播學群"   "工程學群"       "文史哲學群"     "外語學群"      
##  [5] "生命科學學群"   "生物資源學群"   "地球與環境學群" "法政學群"      
##  [9] "社會與心理學群" "建築與設計學群" "財經學群"       "教育學群"      
## [13] "資訊學群"       "遊憩與運動學群" "管理學群"       "數理化學群"    
## [17] "醫藥衛生學群"   "藝術學群"      
## 
## $City
##  [1] "宜蘭縣" "花蓮縣" "金門縣" "南投縣" "屏東縣" "苗栗縣" "桃園市"
##  [8] "高雄市" "基隆市" "雲林縣" "新北市" "新竹市" "新竹縣" "嘉義市"
## [15] "嘉義縣" "彰化縣" "臺中市" "臺北市" "臺東縣" "臺南市" "澎湖縣"
## 
## $Region
## [1] "宜花東離島" "北北基"     "桃竹苗"     "中彰投"     "雲嘉南"    
## [6] "高屏澎"    
## 
## $EduLv
##  [1] "技術學院" "博士"     "碩士"     "普通大學" "科技大學" "五專"    
##  [7] "三專"     "二專"     "高中"     "高職"     "國中"    
## 
## $SubEduOver
## [1] "符合工作要求" "高於工作要求" "低於工作要求"
## 
## $ObjOver
## [1] "adequate" "over"     "under"
# pick out
names(dta)
##  [1] "SID"         "Gender"      "Sector"      "EduLv"       "SubEduOver" 
##  [6] "Require"     "Field"       "City"        "Category"    "Staff"      
## [11] "Hours"       "J_year"      "J_total"     "income"      "SubMismatch"
## [16] "JobSat"      "EduZone"     "Region"      "Salary"      "Age"        
## [21] "JobZone"     "JobCor"      "Core"        "ObjOver"     "X"          
## [26] "JobZone_D"
p <- dplyr::select(dta, -City, -income, -JobSat, -X)%>%
  filter(Age <= 65 & Age >= 20 & Category != "自營者" )
p <- p[p$EduLv %in% c("博士","碩士", "普通大學", "科技大學", "技術學院"),]
p <- p %>% mutate(   EduLv = factor(EduLv, levels=c("博士","碩士","普通大學","科技大學",
                                                    "技術學院")),
                     EduLv = relevel(EduLv, ref = "技術學院"),
                     Category = factor(Category,levels=c("受雇者於私營企業","受雇於公營機關")))

MODEL

two style table

#
# Fit the full model 
full<- lm(Salary ~Gender+ Sector+ Field+ Region+ EduLv+ SubEduOver +SubMismatch +ObjOver +Core + J_year+ EduZone+ Hours, data = p)
summary(full)
## 
## Call:
## lm(formula = Salary ~ Gender + Sector + Field + Region + EduLv + 
##     SubEduOver + SubMismatch + ObjOver + Core + J_year + EduZone + 
##     Hours, data = p)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -47206 -10610  -2125   6207 234467 
## 
## Coefficients: (1 not defined because of singularities)
##                        Estimate Std. Error t value Pr(>|t|)    
## (Intercept)             15833.0     6341.4    2.50  0.01265 *  
## Gender男                 8031.3     1279.5    6.28  4.6e-10 ***
## Sector國外學校          11508.6     4429.2    2.60  0.00947 ** 
## Sector國立(公立)       2706.8     1305.8    2.07  0.03837 *  
## Field工程學群           12577.0     3588.6    3.50  0.00047 ***
## Field文史哲學群         -1779.3     3890.1   -0.46  0.64747    
## Field外語學群            5000.0     3921.8    1.27  0.20256    
## Field生命科學學群        3578.8     4694.3    0.76  0.44597    
## Field生物資源學群        1872.9     5406.1    0.35  0.72906    
## Field地球與環境學群     -1096.0     5338.9   -0.21  0.83738    
## Field法政學群            4323.9     4083.5    1.06  0.28984    
## Field社會與心理學群     -1555.2     3646.5   -0.43  0.66981    
## Field建築與設計學群      6110.1     4299.0    1.42  0.15546    
## Field財經學群            5067.6     3712.6    1.36  0.17249    
## Field教育學群            -116.1     3810.5   -0.03  0.97569    
## Field資訊學群            6800.3     3724.5    1.83  0.06809 .  
## Field遊憩與運動學群      2935.7     4939.1    0.59  0.55235    
## Field管理學群            1314.6     3604.3    0.36  0.71536    
## Field數理化學群          3885.9     4153.6    0.94  0.34967    
## Field醫藥衛生學群       11801.4     3816.0    3.09  0.00202 ** 
## Field藝術學群           -3298.2     4738.0   -0.70  0.48648    
## Region北北基             2611.8     3035.5    0.86  0.38971    
## Region桃竹苗             6614.4     3244.1    2.04  0.04165 *  
## Region中彰投              976.6     3203.3    0.30  0.76051    
## Region雲嘉南            -2368.9     3160.2   -0.75  0.45362    
## Region高屏澎            -1640.8     3151.6   -0.52  0.60271    
## EduLv博士               12729.5     7726.2    1.65  0.09967 .  
## EduLv碩士               18701.5     3549.3    5.27  1.6e-07 ***
## EduLv普通大學            4605.2     3419.6    1.35  0.17830    
## EduLv科技大學           -2298.3     3510.3   -0.65  0.51274    
## SubEduOver高於工作要求  -8360.8     1452.7   -5.76  1.1e-08 ***
## SubEduOver低於工作要求  -7727.8     1889.9   -4.09  4.6e-05 ***
## SubMismatch               450.3      509.1    0.88  0.37651    
## ObjOverover             -3790.2     1372.9   -2.76  0.00584 ** 
## ObjOverunder             5452.0     2946.9    1.85  0.06452 .  
## Core部分關聯             3660.9     1715.6    2.13  0.03303 *  
## Core核心關聯             2152.6     1442.8    1.49  0.13594    
## J_year                   1173.2      114.9   10.21  < 2e-16 ***
## EduZone                      NA         NA      NA       NA    
## Hours                     193.4       57.8    3.35  0.00084 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 20200 on 1388 degrees of freedom
## Multiple R-squared:  0.341,  Adjusted R-squared:  0.323 
## F-statistic: 18.9 on 38 and 1388 DF,  p-value: <2e-16
# Fit the null model
null <- lm(Salary ~1, data= p)


#
# 最終模型設定

a1

# 薪資對性別
a1 <- update(null,~.+Gender)
summary(a1)
## 
## Call:
## lm(formula = Salary ~ Gender, data = p)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -33817 -16376  -6376   3624 246183 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    41376        809   51.12   <2e-16 ***
## Gender男       12441       1290    9.65   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 23800 on 1425 degrees of freedom
## Multiple R-squared:  0.0613, Adjusted R-squared:  0.0606 
## F-statistic: 93.1 on 1 and 1425 DF,  p-value: <2e-16

a2

# 薪資對性別 / 公私立.教育程度.學群
a2 <- update(null,~.+Gender+Sector+ EduLv+ Field)
summary(a2)
## 
## Call:
## lm(formula = Salary ~ Gender + Sector + EduLv + Field, data = p)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -45782 -11390  -2831   6618 236352 
## 
## Coefficients:
##                     Estimate Std. Error t value Pr(>|t|)    
## (Intercept)            30004       4882    6.15  1.0e-09 ***
## Gender男                8117       1364    5.95  3.4e-09 ***
## Sector國外學校         12708       4736    2.68  0.00738 ** 
## Sector國立(公立)      2718       1393    1.95  0.05129 .  
## EduLv博士              24082       8204    2.94  0.00339 ** 
## EduLv碩士              16494       3757    4.39  1.2e-05 ***
## EduLv普通大學           2517       3664    0.69  0.49220    
## EduLv科技大學          -4595       3762   -1.22  0.22212    
## Field工程學群          13449       3784    3.55  0.00039 ***
## Field文史哲學群          718       4115    0.17  0.86155    
## Field外語學群           7378       4159    1.77  0.07627 .  
## Field生命科學學群        992       5007    0.20  0.84298    
## Field生物資源學群       -382       5772   -0.07  0.94731    
## Field地球與環境學群     2157       5690    0.38  0.70465    
## Field法政學群           1822       4332    0.42  0.67405    
## Field社會與心理學群     1151       3831    0.30  0.76394    
## Field建築與設計學群     6315       4590    1.38  0.16913    
## Field財經學群           5310       3954    1.34  0.17948    
## Field教育學群           3143       4035    0.78  0.43621    
## Field資訊學群           8383       3961    2.12  0.03451 *  
## Field遊憩與運動學群     4404       5268    0.84  0.40328    
## Field管理學群           1066       3812    0.28  0.77981    
## Field數理化學群         4811       4418    1.09  0.27641    
## Field醫藥衛生學群      14381       3968    3.62  0.00030 ***
## Field藝術學群          -3264       5065   -0.64  0.51944    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 21800 on 1402 degrees of freedom
## Multiple R-squared:  0.225,  Adjusted R-squared:  0.212 
## F-statistic: 16.9 on 24 and 1402 DF,  p-value: <2e-16
kable(tidy(lm.beta(a2)))
term estimate std.error statistic p.value NA
(Intercept) 30004 0.000 4882 6.146 0.000
Gender男 8117 0.162 1364 5.949 0.000
Sector國外學校 12708 0.067 4736 2.683 0.007
Sector國立(公立) 2718 0.055 1393 1.951 0.051
EduLv博士 24082 0.078 8204 2.935 0.003
EduLv碩士 16494 0.312 3757 4.390 0.000
EduLv普通大學 2517 0.051 3664 0.687 0.492
EduLv科技大學 -4595 -0.072 3762 -1.221 0.222
Field工程學群 13449 0.199 3784 3.554 0.000
Field文史哲學群 718 0.007 4115 0.174 0.862
Field外語學群 7378 0.068 4159 1.774 0.076
Field生命科學學群 992 0.006 5007 0.198 0.843
Field生物資源學群 -381 -0.002 5772 -0.066 0.947
Field地球與環境學群 2157 0.011 5690 0.379 0.705
Field法政學群 1822 0.015 4332 0.421 0.674
Field社會與心理學群 1151 0.013 3831 0.300 0.764
Field建築與設計學群 6315 0.046 4590 1.376 0.169
Field財經學群 5310 0.056 3954 1.343 0.179
Field教育學群 3143 0.033 4035 0.779 0.436
Field資訊學群 8383 0.091 3961 2.116 0.035
Field遊憩與運動學群 4404 0.025 5268 0.836 0.403
Field管理學群 1066 0.013 3812 0.280 0.780
Field數理化學群 4811 0.039 4418 1.089 0.276
Field醫藥衛生學群 14381 0.149 3968 3.624 0.000
Field藝術學群 -3264 -0.020 5065 -0.644 0.519

a3

# 薪資對性別 / 公私立.教育程度.學群 / 地區.年資.工時
a31 <- update(null,~.+Gender+Sector+ EduLv+ Field+ Region+ J_year+ Hours+ Category)
summary(a31)
## 
## Call:
## lm(formula = Salary ~ Gender + Sector + EduLv + Field + Region + 
##     J_year + Hours + Category, data = p)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -42909 -10581  -2334   5963 237448 
## 
## Coefficients:
##                        Estimate Std. Error t value Pr(>|t|)    
## (Intercept)             11825.8     6249.2    1.89  0.05865 .  
## Gender男                 7692.9     1311.2    5.87  5.5e-09 ***
## Sector國外學校           9270.6     4542.6    2.04  0.04146 *  
## Sector國立(公立)       3314.1     1352.7    2.45  0.01441 *  
## EduLv博士               15297.9     7913.9    1.93  0.05343 .  
## EduLv碩士               18079.7     3615.2    5.00  6.4e-07 ***
## EduLv普通大學            6048.2     3520.9    1.72  0.08605 .  
## EduLv科技大學           -1359.7     3614.2   -0.38  0.70682    
## Field工程學群           12478.0     3664.5    3.41  0.00068 ***
## Field文史哲學群          -987.8     3987.5   -0.25  0.80438    
## Field外語學群            4937.7     4005.7    1.23  0.21791    
## Field生命科學學群        1044.2     4813.7    0.22  0.82830    
## Field生物資源學群        1028.7     5538.0    0.19  0.85267    
## Field地球與環境學群     -1303.2     5458.8   -0.24  0.81134    
## Field法政學群            2677.4     4179.1    0.64  0.52183    
## Field社會與心理學群      1189.9     3698.4    0.32  0.74770    
## Field建築與設計學群      6338.3     4419.7    1.43  0.15176    
## Field財經學群            5620.5     3805.0    1.48  0.13986    
## Field教育學群            2306.3     3937.1    0.59  0.55813    
## Field資訊學群            7773.6     3805.7    2.04  0.04127 *  
## Field遊憩與運動學群      3180.9     5059.8    0.63  0.52967    
## Field管理學群             173.1     3673.4    0.05  0.96241    
## Field數理化學群          4178.4     4272.6    0.98  0.32827    
## Field醫藥衛生學群       13955.0     3852.5    3.62  0.00030 ***
## Field藝術學群           -3079.1     4870.8   -0.63  0.52739    
## Region北北基             3775.9     3128.9    1.21  0.22772    
## Region桃竹苗             7207.0     3345.7    2.15  0.03140 *  
## Region中彰投             1397.6     3299.3    0.42  0.67192    
## Region雲嘉南            -1453.5     3253.7   -0.45  0.65514    
## Region高屏澎            -1405.1     3253.9   -0.43  0.66594    
## J_year                   1273.0      119.1   10.69  < 2e-16 ***
## Hours                     180.4       59.4    3.04  0.00243 ** 
## Category受雇於公營機關   -467.3     1282.1   -0.36  0.71552    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 20800 on 1394 degrees of freedom
## Multiple R-squared:  0.297,  Adjusted R-squared:  0.281 
## F-statistic: 18.4 on 32 and 1394 DF,  p-value: <2e-16
a32 <- update(null,~.+Gender+Sector+ EduLv+ Field+ Region+ J_year+ Hours)
summary(a32)
## 
## Call:
## lm(formula = Salary ~ Gender + Sector + EduLv + Field + Region + 
##     J_year + Hours, data = p)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -43245 -10582  -2463   5805 237572 
## 
## Coefficients:
##                     Estimate Std. Error t value Pr(>|t|)    
## (Intercept)          11759.2     6244.6    1.88  0.05990 .  
## Gender男              7674.7     1309.8    5.86  5.8e-09 ***
## Sector國外學校        9327.1     4538.5    2.06  0.04005 *  
## Sector國立(公立)    3231.8     1333.3    2.42  0.01548 *  
## EduLv博士            15276.6     7911.2    1.93  0.05368 .  
## EduLv碩士            17988.2     3605.4    4.99  6.8e-07 ***
## EduLv普通大學         5982.8     3515.2    1.70  0.08898 .  
## EduLv科技大學        -1384.9     3612.4   -0.38  0.70151    
## Field工程學群        12491.2     3663.2    3.41  0.00067 ***
## Field文史哲學群      -1138.5     3964.8   -0.29  0.77405    
## Field外語學群         4837.6     3995.0    1.21  0.22614    
## Field生命科學學群      936.4     4803.2    0.19  0.84546    
## Field生物資源學群      948.3     5531.9    0.17  0.86391    
## Field地球與環境學群  -1372.9     5453.7   -0.25  0.80129    
## Field法政學群         2503.1     4150.3    0.60  0.54653    
## Field社會與心理學群   1096.1     3688.3    0.30  0.76636    
## Field建築與設計學群   6376.8     4417.0    1.44  0.14905    
## Field財經學群         5561.1     3800.3    1.46  0.14361    
## Field教育學群         2072.1     3883.2    0.53  0.59370    
## Field資訊學群         7819.3     3802.4    2.06  0.03993 *  
## Field遊憩與運動學群   3141.5     5057.1    0.62  0.53456    
## Field管理學群          137.1     3670.9    0.04  0.97021    
## Field數理化學群       4079.6     4262.7    0.96  0.33871    
## Field醫藥衛生學群    13861.9     3842.8    3.61  0.00032 ***
## Field藝術學群        -3153.1     4865.0   -0.65  0.51701    
## Region北北基          3862.5     3118.9    1.24  0.21576    
## Region桃竹苗          7309.1     3332.9    2.19  0.02847 *  
## Region中彰投          1485.0     3289.6    0.45  0.65176    
## Region雲嘉南         -1378.7     3246.2   -0.42  0.67111    
## Region高屏澎         -1295.7     3239.0   -0.40  0.68920    
## J_year                1265.4      117.2   10.80  < 2e-16 ***
## Hours                  180.7       59.4    3.04  0.00239 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 20800 on 1395 degrees of freedom
## Multiple R-squared:  0.297,  Adjusted R-squared:  0.281 
## F-statistic:   19 on 31 and 1395 DF,  p-value: <2e-16
kable(tidy(lm.beta(a32)))
term estimate std.error statistic p.value NA
(Intercept) 11759 0.000 6244.6 1.883 0.060
Gender男 7675 0.153 1309.8 5.859 0.000
Sector國外學校 9327 0.049 4538.5 2.055 0.040
Sector國立(公立) 3232 0.065 1333.3 2.424 0.015
EduLv博士 15277 0.049 7911.2 1.931 0.054
EduLv碩士 17988 0.340 3605.4 4.989 0.000
EduLv普通大學 5983 0.122 3515.2 1.702 0.089
EduLv科技大學 -1385 -0.022 3612.4 -0.383 0.702
Field工程學群 12491 0.185 3663.2 3.410 0.001
Field文史哲學群 -1138 -0.011 3964.8 -0.287 0.774
Field外語學群 4838 0.045 3995.0 1.211 0.226
Field生命科學學群 936 0.006 4803.1 0.195 0.845
Field生物資源學群 948 0.005 5531.9 0.171 0.864
Field地球與環境學群 -1373 -0.007 5453.7 -0.252 0.801
Field法政學群 2503 0.021 4150.3 0.603 0.547
Field社會與心理學群 1096 0.013 3688.3 0.297 0.766
Field建築與設計學群 6377 0.047 4417.0 1.444 0.149
Field財經學群 5561 0.058 3800.3 1.463 0.144
Field教育學群 2072 0.022 3883.2 0.534 0.594
Field資訊學群 7819 0.085 3802.4 2.056 0.040
Field遊憩與運動學群 3142 0.018 5057.1 0.621 0.535
Field管理學群 137 0.002 3670.9 0.037 0.970
Field數理化學群 4080 0.033 4262.7 0.957 0.339
Field醫藥衛生學群 13862 0.143 3842.8 3.607 0.000
Field藝術學群 -3153 -0.020 4865.0 -0.648 0.517
Region北北基 3863 0.074 3118.9 1.238 0.216
Region桃竹苗 7309 0.105 3332.9 2.193 0.028
Region中彰投 1485 0.022 3289.6 0.451 0.652
Region雲嘉南 -1379 -0.021 3246.2 -0.425 0.671
Region高屏澎 -1296 -0.020 3239.0 -0.400 0.689
J_year 1265 0.252 117.2 10.796 0.000
Hours 181 0.069 59.4 3.043 0.002

a4

# 薪資對性別 / 公私立.教育程度.學群 / 地區.年資.工時 / 自評過量
a41 <- update(null,~.+Gender+Sector+ EduLv+ Field+ Region+ J_year+ Hours+ SubEduOver)
summary(a41)
## 
## Call:
## lm(formula = Salary ~ Gender + Sector + EduLv + Field + Region + 
##     J_year + Hours + SubEduOver, data = p)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -45295 -10027  -2259   6190 232710 
## 
## Coefficients:
##                        Estimate Std. Error t value Pr(>|t|)    
## (Intercept)             15625.5     6130.7    2.55  0.01092 *  
## Gender男                 8186.5     1284.6    6.37  2.5e-10 ***
## Sector國外學校          12180.9     4457.0    2.73  0.00636 ** 
## Sector國立(公立)       2950.6     1311.1    2.25  0.02457 *  
## EduLv博士               13361.6     7748.5    1.72  0.08486 .  
## EduLv碩士               18112.5     3531.6    5.13  3.3e-07 ***
## EduLv普通大學            5469.7     3440.9    1.59  0.11215    
## EduLv科技大學           -1532.2     3535.9   -0.43  0.66484    
## Field工程學群           12179.7     3598.4    3.38  0.00073 ***
## Field文史哲學群         -1216.8     3888.5   -0.31  0.75438    
## Field外語學群            4650.4     3915.1    1.19  0.23511    
## Field生命科學學群        2404.2     4708.0    0.51  0.60967    
## Field生物資源學群         245.1     5417.5    0.05  0.96392    
## Field地球與環境學群      -324.6     5354.5   -0.06  0.95167    
## Field法政學群            3666.6     4064.6    0.90  0.36716    
## Field社會與心理學群       -73.2     3614.9   -0.02  0.98385    
## Field建築與設計學群      6595.9     4327.3    1.52  0.12768    
## Field財經學群            4385.8     3722.9    1.18  0.23897    
## Field教育學群             691.5     3814.2    0.18  0.85615    
## Field資訊學群            7355.7     3737.2    1.97  0.04924 *  
## Field遊憩與運動學群      2084.0     4964.0    0.42  0.67468    
## Field管理學群             732.4     3601.5    0.20  0.83889    
## Field數理化學群          3881.3     4180.2    0.93  0.35330    
## Field醫藥衛生學群       12968.6     3768.4    3.44  0.00060 ***
## Field藝術學群           -2991.4     4765.2   -0.63  0.53027    
## Region北北基             2449.8     3057.5    0.80  0.42313    
## Region桃竹苗             6189.1     3266.1    1.89  0.05831 .  
## Region中彰投              448.8     3222.1    0.14  0.88925    
## Region雲嘉南            -2391.5     3179.5   -0.75  0.45209    
## Region高屏澎            -1909.6     3172.2   -0.60  0.54728    
## J_year                   1172.9      115.3   10.17  < 2e-16 ***
## Hours                     202.8       58.2    3.49  0.00051 ***
## SubEduOver高於工作要求  -9856.0     1390.1   -7.09  2.1e-12 ***
## SubEduOver低於工作要求  -8910.2     1867.6   -4.77  2.0e-06 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 20400 on 1393 degrees of freedom
## Multiple R-squared:  0.328,  Adjusted R-squared:  0.312 
## F-statistic: 20.6 on 33 and 1393 DF,  p-value: <2e-16
kable(tidy(a41))
term estimate std.error statistic p.value
(Intercept) 15625.5 6130.7 2.549 0.011
Gender男 8186.5 1284.6 6.373 0.000
Sector國外學校 12180.9 4457.0 2.733 0.006
Sector國立(公立) 2950.6 1311.1 2.250 0.025
EduLv博士 13361.6 7748.5 1.724 0.085
EduLv碩士 18112.5 3531.6 5.129 0.000
EduLv普通大學 5469.7 3440.9 1.590 0.112
EduLv科技大學 -1532.2 3535.9 -0.433 0.665
Field工程學群 12179.7 3598.4 3.385 0.001
Field文史哲學群 -1216.8 3888.5 -0.313 0.754
Field外語學群 4650.4 3915.1 1.188 0.235
Field生命科學學群 2404.2 4708.0 0.511 0.610
Field生物資源學群 245.1 5417.5 0.045 0.964
Field地球與環境學群 -324.6 5354.5 -0.061 0.952
Field法政學群 3666.6 4064.6 0.902 0.367
Field社會與心理學群 -73.2 3614.9 -0.020 0.984
Field建築與設計學群 6595.9 4327.3 1.524 0.128
Field財經學群 4385.8 3722.9 1.178 0.239
Field教育學群 691.5 3814.2 0.181 0.856
Field資訊學群 7355.7 3737.2 1.968 0.049
Field遊憩與運動學群 2084.0 4964.0 0.420 0.675
Field管理學群 732.4 3601.5 0.203 0.839
Field數理化學群 3881.3 4180.2 0.929 0.353
Field醫藥衛生學群 12968.6 3768.4 3.441 0.001
Field藝術學群 -2991.4 4765.2 -0.628 0.530
Region北北基 2449.8 3057.5 0.801 0.423
Region桃竹苗 6189.1 3266.1 1.895 0.058
Region中彰投 448.8 3222.1 0.139 0.889
Region雲嘉南 -2391.5 3179.5 -0.752 0.452
Region高屏澎 -1909.6 3172.2 -0.602 0.547
J_year 1172.9 115.3 10.172 0.000
Hours 202.8 58.2 3.485 0.001
SubEduOver高於工作要求 -9856.0 1390.1 -7.090 0.000
SubEduOver低於工作要求 -8910.2 1867.6 -4.771 0.000
# 薪資對性別 / 公私立.教育程度.學群 / 地區.年資.工時 / 自評過量.自評關聯
a42 <- update(null,~.+Gender+Sector+ EduLv+ Field+ Region+ J_year+ Hours+ SubEduOver+SubMismatch)
summary(a42)
## 
## Call:
## lm(formula = Salary ~ Gender + Sector + EduLv + Field + Region + 
##     J_year + Hours + SubEduOver + SubMismatch, data = p)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -44571 -10362  -2160   6149 231301 
## 
## Coefficients:
##                        Estimate Std. Error t value Pr(>|t|)    
## (Intercept)             12248.7     6319.1    1.94  0.05278 .  
## Gender男                 8349.0     1285.1    6.50  1.1e-10 ***
## Sector國外學校          12310.7     4451.5    2.77  0.00576 ** 
## Sector國立(公立)       2889.2     1309.7    2.21  0.02755 *  
## EduLv博士               11865.8     7769.3    1.53  0.12692    
## EduLv碩士               17412.4     3541.8    4.92  9.9e-07 ***
## EduLv普通大學            5386.2     3436.6    1.57  0.11727    
## EduLv科技大學           -1803.3     3533.5   -0.51  0.60989    
## Field工程學群           12003.0     3594.6    3.34  0.00086 ***
## Field文史哲學群         -1379.1     3884.1   -0.36  0.72259    
## Field外語學群            4668.0     3910.0    1.19  0.23274    
## Field生命科學學群        2994.0     4709.7    0.64  0.52508    
## Field生物資源學群        1049.7     5423.2    0.19  0.84655    
## Field地球與環境學群      -588.8     5348.8   -0.11  0.91236    
## Field法政學群            3379.7     4061.4    0.83  0.40547    
## Field社會與心理學群      -409.6     3613.5   -0.11  0.90977    
## Field建築與設計學群      6521.5     4321.8    1.51  0.13153    
## Field財經學群            4414.0     3718.0    1.19  0.23536    
## Field教育學群             252.3     3814.6    0.07  0.94727    
## Field資訊學群            7248.7     3732.6    1.94  0.05234 .  
## Field遊憩與運動學群      1882.2     4958.3    0.38  0.70430    
## Field管理學群             835.9     3597.1    0.23  0.81627    
## Field數理化學群          3737.6     4175.2    0.90  0.37085    
## Field醫藥衛生學群       12410.5     3772.4    3.29  0.00103 ** 
## Field藝術學群           -2600.0     4762.4   -0.55  0.58519    
## Region北北基             2548.1     3053.8    0.83  0.40420    
## Region桃竹苗             6328.8     3262.5    1.94  0.05260 .  
## Region中彰投              573.9     3218.4    0.18  0.85851    
## Region雲嘉南            -2268.0     3175.9   -0.71  0.47527    
## Region高屏澎            -1696.4     3169.6   -0.54  0.59260    
## J_year                   1175.8      115.2   10.21  < 2e-16 ***
## Hours                     203.4       58.1    3.50  0.00048 ***
## SubEduOver高於工作要求  -8900.0     1457.2   -6.11  1.3e-09 ***
## SubEduOver低於工作要求  -8157.3     1897.4   -4.30  1.8e-05 ***
## SubMismatch              1058.8      490.2    2.16  0.03096 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 20400 on 1392 degrees of freedom
## Multiple R-squared:  0.33,   Adjusted R-squared:  0.313 
## F-statistic: 20.1 on 34 and 1392 DF,  p-value: <2e-16
kable(tidy(lm.beta(a42)))
term estimate std.error statistic p.value NA
(Intercept) 12249 0.000 6319.1 1.938 0.053
Gender男 8349 0.166 1285.1 6.497 0.000
Sector國外學校 12311 0.064 4451.5 2.765 0.006
Sector國立(公立) 2889 0.058 1309.7 2.206 0.028
EduLv博士 11866 0.038 7769.3 1.527 0.127
EduLv碩士 17412 0.329 3541.8 4.916 0.000
EduLv普通大學 5386 0.110 3436.6 1.567 0.117
EduLv科技大學 -1803 -0.028 3533.5 -0.510 0.610
Field工程學群 12003 0.178 3594.6 3.339 0.001
Field文史哲學群 -1379 -0.013 3884.1 -0.355 0.723
Field外語學群 4668 0.043 3910.0 1.194 0.233
Field生命科學學群 2994 0.019 4709.7 0.636 0.525
Field生物資源學群 1050 0.005 5423.2 0.194 0.847
Field地球與環境學群 -589 -0.003 5348.8 -0.110 0.912
Field法政學群 3380 0.028 4061.4 0.832 0.405
Field社會與心理學群 -410 -0.005 3613.5 -0.113 0.910
Field建築與設計學群 6521 0.048 4321.8 1.509 0.132
Field財經學群 4414 0.046 3718.0 1.187 0.235
Field教育學群 252 0.003 3814.6 0.066 0.947
Field資訊學群 7249 0.079 3732.6 1.942 0.052
Field遊憩與運動學群 1882 0.011 4958.3 0.380 0.704
Field管理學群 836 0.010 3597.1 0.232 0.816
Field數理化學群 3738 0.031 4175.2 0.895 0.371
Field醫藥衛生學群 12410 0.128 3772.4 3.290 0.001
Field藝術學群 -2600 -0.016 4762.4 -0.546 0.585
Region北北基 2548 0.049 3053.8 0.834 0.404
Region桃竹苗 6329 0.091 3262.5 1.940 0.053
Region中彰投 574 0.008 3218.4 0.178 0.859
Region雲嘉南 -2268 -0.035 3175.9 -0.714 0.475
Region高屏澎 -1696 -0.026 3169.6 -0.535 0.593
J_year 1176 0.234 115.2 10.210 0.000
Hours 203 0.078 58.1 3.499 0.000
SubEduOver高於工作要求 -8900 -0.148 1457.2 -6.108 0.000
SubEduOver低於工作要求 -8157 -0.101 1897.4 -4.299 0.000
SubMismatch 1059 0.053 490.2 2.160 0.031

a5

# 薪資對性別 / 公私立.教育程度.學群 / 地區.年資.工時 / 客評過量
a51 <- update(null,~.+Gender+Sector+ EduLv+ Field+ Region+ J_year+ Hours+ ObjOver)
summary(a51)
## 
## Call:
## lm(formula = Salary ~ Gender + Sector + EduLv + Field + Region + 
##     J_year + Hours + ObjOver, data = p)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -43203 -10676  -2229   6247 238369 
## 
## Coefficients:
##                     Estimate Std. Error t value Pr(>|t|)    
## (Intercept)          15395.2     6224.3    2.47  0.01350 *  
## Gender男              7420.8     1298.9    5.71  1.4e-08 ***
## Sector國外學校        8393.7     4497.9    1.87  0.06223 .  
## Sector國立(公立)    2883.5     1325.9    2.17  0.02981 *  
## EduLv博士            15957.6     7837.2    2.04  0.04192 *  
## EduLv碩士            19924.3     3590.8    5.55  3.4e-08 ***
## EduLv普通大學         4928.3     3488.5    1.41  0.15796    
## EduLv科技大學        -1994.4     3579.0   -0.56  0.57744    
## Field工程學群        13622.5     3643.2    3.74  0.00019 ***
## Field文史哲學群       -699.5     3930.1   -0.18  0.85875    
## Field外語學群         6137.2     3970.6    1.55  0.12241    
## Field生命科學學群     1980.7     4774.3    0.41  0.67830    
## Field生物資源學群     2718.6     5501.4    0.49  0.62126    
## Field地球與環境學群  -1089.6     5401.9   -0.20  0.84017    
## Field法政學群         4379.5     4156.5    1.05  0.29223    
## Field社會與心理學群   -155.1     3712.1   -0.04  0.96667    
## Field建築與設計學群   6516.0     4375.8    1.49  0.13669    
## Field財經學群         6617.2     3780.4    1.75  0.08027 .  
## Field教育學群         2182.6     3848.9    0.57  0.57077    
## Field資訊學群         8209.8     3769.5    2.18  0.02958 *  
## Field遊憩與運動學群   4174.2     5019.7    0.83  0.40580    
## Field管理學群         1484.4     3657.4    0.41  0.68490    
## Field數理化學群       4187.6     4227.4    0.99  0.32206    
## Field醫藥衛生學群    13870.4     3860.4    3.59  0.00034 ***
## Field藝術學群        -3330.4     4818.1   -0.69  0.48954    
## Region北北基          3760.3     3090.6    1.22  0.22394    
## Region桃竹苗          7635.5     3304.6    2.31  0.02100 *  
## Region中彰投          1873.5     3264.3    0.57  0.56610    
## Region雲嘉南         -1643.8     3220.3   -0.51  0.60982    
## Region高屏澎         -1205.2     3211.3   -0.38  0.70750    
## J_year                1233.6      116.2   10.61  < 2e-16 ***
## Hours                  172.5       58.8    2.93  0.00342 ** 
## ObjOverover          -5692.6     1352.4   -4.21  2.7e-05 ***
## ObjOverunder          6451.7     2978.4    2.17  0.03047 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 20600 on 1393 degrees of freedom
## Multiple R-squared:  0.312,  Adjusted R-squared:  0.295 
## F-statistic: 19.1 on 33 and 1393 DF,  p-value: <2e-16
kable(tidy(a51))
term estimate std.error statistic p.value
(Intercept) 15395 6224.3 2.473 0.014
Gender男 7421 1298.9 5.713 0.000
Sector國外學校 8394 4497.9 1.866 0.062
Sector國立(公立) 2883 1325.9 2.175 0.030
EduLv博士 15958 7837.2 2.036 0.042
EduLv碩士 19924 3590.8 5.549 0.000
EduLv普通大學 4928 3488.5 1.413 0.158
EduLv科技大學 -1994 3579.0 -0.557 0.577
Field工程學群 13622 3643.2 3.739 0.000
Field文史哲學群 -700 3930.1 -0.178 0.859
Field外語學群 6137 3970.6 1.546 0.122
Field生命科學學群 1981 4774.3 0.415 0.678
Field生物資源學群 2719 5501.4 0.494 0.621
Field地球與環境學群 -1090 5401.9 -0.202 0.840
Field法政學群 4379 4156.5 1.054 0.292
Field社會與心理學群 -155 3712.1 -0.042 0.967
Field建築與設計學群 6516 4375.8 1.489 0.137
Field財經學群 6617 3780.4 1.750 0.080
Field教育學群 2183 3848.9 0.567 0.571
Field資訊學群 8210 3769.5 2.178 0.030
Field遊憩與運動學群 4174 5019.7 0.832 0.406
Field管理學群 1484 3657.4 0.406 0.685
Field數理化學群 4188 4227.4 0.991 0.322
Field醫藥衛生學群 13870 3860.4 3.593 0.000
Field藝術學群 -3330 4818.1 -0.691 0.490
Region北北基 3760 3090.6 1.217 0.224
Region桃竹苗 7636 3304.6 2.311 0.021
Region中彰投 1874 3264.3 0.574 0.566
Region雲嘉南 -1644 3220.3 -0.510 0.610
Region高屏澎 -1205 3211.3 -0.375 0.708
J_year 1234 116.2 10.613 0.000
Hours 173 58.8 2.933 0.003
ObjOverover -5693 1352.4 -4.209 0.000
ObjOverunder 6452 2978.4 2.166 0.030
# 薪資對性別 / 公私立.教育程度.學群 / 地區.年資.工時 / 客評過量.客評關聯
a52 <- update(null,~.+Gender+Sector+ EduLv+ Field+ Region+ J_year+ Hours+ ObjOver+ Core)
summary(a52)
## 
## Call:
## lm(formula = Salary ~ Gender + Sector + EduLv + Field + Region + 
##     J_year + Hours + ObjOver + Core, data = p)
## 
## Residuals:
##    Min     1Q Median     3Q    Max 
## -45155 -10765  -2080   6579 240153 
## 
## Coefficients:
##                     Estimate Std. Error t value Pr(>|t|)    
## (Intercept)          14120.9     6219.9    2.27  0.02334 *  
## Gender男              7497.2     1295.5    5.79  8.8e-09 ***
## Sector國外學校        8903.8     4487.0    1.98  0.04741 *  
## Sector國立(公立)    2920.0     1321.8    2.21  0.02732 *  
## EduLv博士            14758.8     7822.5    1.89  0.05941 .  
## EduLv碩士            19010.5     3588.4    5.30  1.4e-07 ***
## EduLv普通大學         4856.7     3476.6    1.40  0.16265    
## EduLv科技大學        -2247.1     3567.3   -0.63  0.52885    
## Field工程學群        13013.0     3635.4    3.58  0.00036 ***
## Field文史哲學群      -1805.9     3947.9   -0.46  0.64743    
## Field外語學群         5247.3     3983.2    1.32  0.18794    
## Field生命科學學群     2469.4     4762.9    0.52  0.60421    
## Field生物資源學群     2510.7     5482.4    0.46  0.64705    
## Field地球與環境學群  -2086.2     5410.8   -0.39  0.69987    
## Field法政學群         3663.0     4147.3    0.88  0.37727    
## Field社會與心理學群   -619.1     3701.7   -0.17  0.86720    
## Field建築與設計學群   5781.8     4367.0    1.32  0.18573    
## Field財經學群         6292.4     3770.2    1.67  0.09535 .  
## Field教育學群          901.5     3862.4    0.23  0.81548    
## Field資訊學群         6959.0     3774.0    1.84  0.06541 .  
## Field遊憩與運動學群   4249.0     5003.3    0.85  0.39589    
## Field管理學群          930.9     3657.3    0.25  0.79912    
## Field數理化學群       4199.6     4213.6    1.00  0.31909    
## Field醫藥衛生學群    12519.7     3870.5    3.23  0.00125 ** 
## Field藝術學群        -3712.7     4809.3   -0.77  0.44025    
## Region北北基          3855.7     3080.5    1.25  0.21090    
## Region桃竹苗          7664.9     3293.1    2.33  0.02008 *  
## Region中彰投          2005.5     3253.2    0.62  0.53769    
## Region雲嘉南         -1491.0     3209.9   -0.46  0.64237    
## Region高屏澎         -1103.6     3200.5   -0.34  0.73027    
## J_year                1256.4      116.2   10.81  < 2e-16 ***
## Hours                  171.6       58.6    2.93  0.00350 ** 
## ObjOverover          -4754.4     1383.4   -3.44  0.00061 ***
## ObjOverunder          5846.9     2994.8    1.95  0.05110 .  
## Core部分關聯          5050.5     1710.8    2.95  0.00321 ** 
## Core核心關聯          3387.4     1421.1    2.38  0.01727 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 20500 on 1391 degrees of freedom
## Multiple R-squared:  0.317,  Adjusted R-squared:   0.3 
## F-statistic: 18.5 on 35 and 1391 DF,  p-value: <2e-16
kable(tidy(lm.beta(a52)))
term estimate std.error statistic p.value NA
(Intercept) 14121 0.000 6219.9 2.270 0.023
Gender男 7497 0.149 1295.5 5.787 0.000
Sector國外學校 8904 0.047 4487.0 1.984 0.047
Sector國立(公立) 2920 0.059 1321.8 2.209 0.027
EduLv博士 14759 0.048 7822.5 1.887 0.059
EduLv碩士 19010 0.360 3588.4 5.298 0.000
EduLv普通大學 4857 0.099 3476.6 1.397 0.163
EduLv科技大學 -2247 -0.035 3567.3 -0.630 0.529
Field工程學群 13013 0.193 3635.4 3.579 0.000
Field文史哲學群 -1806 -0.018 3947.9 -0.457 0.647
Field外語學群 5247 0.049 3983.2 1.317 0.188
Field生命科學學群 2469 0.016 4762.9 0.518 0.604
Field生物資源學群 2511 0.013 5482.4 0.458 0.647
Field地球與環境學群 -2086 -0.011 5410.8 -0.386 0.700
Field法政學群 3663 0.031 4147.3 0.883 0.377
Field社會與心理學群 -619 -0.007 3701.7 -0.167 0.867
Field建築與設計學群 5782 0.042 4367.0 1.324 0.186
Field財經學群 6292 0.066 3770.2 1.669 0.095
Field教育學群 902 0.010 3862.4 0.233 0.815
Field資訊學群 6959 0.076 3774.0 1.844 0.065
Field遊憩與運動學群 4249 0.024 5003.3 0.849 0.396
Field管理學群 931 0.011 3657.3 0.255 0.799
Field數理化學群 4200 0.034 4213.6 0.997 0.319
Field醫藥衛生學群 12520 0.130 3870.5 3.235 0.001
Field藝術學群 -3713 -0.023 4809.3 -0.772 0.440
Region北北基 3856 0.074 3080.5 1.252 0.211
Region桃竹苗 7665 0.110 3293.1 2.328 0.020
Region中彰投 2005 0.029 3253.2 0.616 0.538
Region雲嘉南 -1491 -0.023 3209.9 -0.464 0.642
Region高屏澎 -1104 -0.017 3200.5 -0.345 0.730
J_year 1256 0.250 116.2 10.810 0.000
Hours 172 0.066 58.6 2.925 0.003
ObjOverover -4754 -0.092 1383.4 -3.437 0.001
ObjOverunder 5847 0.049 2994.8 1.952 0.051
Core部分關聯 5050 0.070 1710.8 2.952 0.003
Core核心關聯 3387 0.060 1421.1 2.384 0.017

```