Einsetzen Stern in Benutzerdefinierte Stargazer Tabelle

Question

Mein Problem

Dies ist eine nette Tabelle folgendes Bild verstanden werden, mit der Ausnahme für ein Problem. Ich möchte, dass die Sterne (d. H. Sternchen) in der Spalte Log-Differenz hochgestellt sind. Wie mache ich das.

die Tabelle zu erzeugen, verwendete ich die folgende Matrix

 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"))) 

I dann die res Matrix auf die stargazerlilie Funktion übergeben.

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

Die seltsame Sache über diese Ergebnisse ist, dass die Note richtig die Sternchen angibt (das heißt Sig Level. *** p < .01, ...).

Eine versuchte fix, die nicht funktionierte war die Matrixeinträge wie

"-7.92864907263132^{***}" 

oder

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

Stargazer liest diese Einträge als String und nicht als Latex-Code angeben .

Answer 1

Mit Blick auf den Code in diesem Paket, sind Sie wahrscheinlich besser dran, einige Regex-Nachbearbeitung, z.

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$")