挿入スターは

Question

私の問題は、これは一つの問題を除いて、素敵なテーブルで、次の画像

を使用して理解することができます。ログ差分の列に星印（アスタリスク）を上付き文字にします。どうすればいいの？

私はその後スターゲイザー関数にresマトリックスを渡す次の行列

 Log     Log Difference   
Corn "-4.6242962032095" "-7.92864907263132***" 
HH "-4.6298901146614" "-8.72323131664597***" 
ICE "-4.97319261907647" "-7.93380905076848***" 
AA "-4.1611318165187" "-7.25071259471702***" 

res <-structure(c("-4.6242962032095", "-4.6298901146614", "-4.97319261907647", 
"-4.1611318165187", "-7.92864907263132***", "-8.72323131664597***", 
"-7.93380905076848***", "-7.25071259471702***"), .Dim = c(4L, 
2L), .Dimnames = list(c("Corn", "HH", "ICE", "AA"), c("Log", 
"Log Difference"))) 

を使用するテーブルを生成します。

library(stargazer) 
stargazer(res, 
      type = "latex", 
      title = "Zivot-Andrews Test Statistics", 
      colnames = TRUE, 
      notes = "Sig. Levels: *** p < .01, ** p < .05, * p < .1") 

このことについて奇妙なことは、結果はノートが正しくアスタリスクを指定することである（すなわち、シグレベル：*** P < 0.01、...）。

動作しませんでした一つの試みた修正プログラムは、のような行列エントリを指定した

、

"-7.92864907263132^{***}" 

または

"$-7.92864907263132^{***}$" 

スターゲイザーは、文字列としてこれらのエントリを読み込み、ないラテックスコードとして。

Answer 1

このパッケージのコードを見ると、正規表現の後処理を行うほうが良いでしょう。

library(stargazer) 
startup <- function(x, out=NULL, ...){ 
    undo <- gsub("\\\\textasteriskcentered", "*", stargazer(x, ...)) 
    restar <- gsub("* * *", "${}^{***}$", undo, fixed = TRUE) 
    restar <- gsub("* *", "${}^{**}$", restar, fixed = TRUE) 
    restar <- gsub("* ", "${}^{*}$", restar, fixed = TRUE) 
    if(!is.null(out)) cat(restar, file = out, sep="\n") 
    restar 
} 

startup(res, out = "test.tex", 
      type = "latex", 
      title = "Zivot-Andrews Test Statistics", 
      colnames = TRUE, 
      notes = "Sig. Levels: ${}^{***} p < .01$, ${}^{**} p < .05$, ${}^{*} p < .1$")