1

stargazer を使用して分位点回帰結果の表を作成したいと考えています。結果は次のようになりますここに画像の説明を入力

これまでに行ったことは次のとおりです。最初にデータを適合させ、標準エラーの要約関数を呼び出します。各分位点の対応する p_val の係数値を抽出し、すべてを tibble に収集します。次のようになります。

tau = c(0.1, 0.3, 0.5, 0.7, 0.9)    
sum_male_qr <- tibble(tau = tau, 
coef = c(0.02007477,  0.06914977, -0.07867272, -0.11111504, -0.15044577),
se = c(0.2572446, 0.1167441, 0.1099517, 0.1213363, 0.2465198),
p_val = c(0.9378020, 0.5536708, 0.4743298, 0.3598485, 0.5417125)) %>% as.matrix

#for sake of simplicity we just expect results for both genders to be the same
sum_female_qr <- tibble(tau = tau, 
coef = c(0.02007477,  0.06914977, -0.07867272, -0.11111504, -0.15044577),
se = c(0.2572446, 0.1167441, 0.1099517, 0.1213363, 0.2465198),
p_val = c(0.9378020, 0.5536708, 0.4743298, 0.3598485, 0.5417125)) %>% as.matrix

私はスターゲイザーにはまったく慣れていませんが、これを行う方法が必要だと思います。どんな助けでも大歓迎です。私はすでにビネットを通して自分で作業しましたが、より良いものを思いつくことができませんでした:

  stargazer(column.labels = c("$\tau = 0.1$", "$\tau = 0.3$", "$\tau = 0.5$", "$\tau = 0.7$", "$\tau = 0.9$" ),
        align = T,
        coef = list(Males = exo_sum_male[,1],Females = exo_sum_female[,1]),
        se =  list(Males = exo_sum_male[,2],Females = exo_sum_female[,2]),
        p = list(Males = exo_sum_male[,3],Females = exo_sum_female[,3]),
        style = 'qje',
        title = "Quantile Effects When Education is Treated as Exogenous"
        )

次のエラーが発生します。Error in if (substr(inside[i], 1, nchar("list(")) == "list(") { : missing value where TRUE/FALSE needed

編集：結果がどのように見えるか知っています。もちろんひどい。しかし、これは気にしないでください。これは既知の問題であり、この説明の一部ではありません。

4

1 に答える 1