用于观星者提取的标签变量

Question

我正在使用 stargazer 在乳胶中提取一些回归表。我想知道是否存在一种方法可以一次性标记所有变量 而无需 通过“covariate.labels = ..." 每次。我尝试了库expss（和Hmisc），例如：

library(expss)
library(stargazer)

df <- data.frame(replicate(2,sample(0:1,100,rep=TRUE)))

df = apply_labels(df,
                  X1 =  "label x1",
                  X2 = " label x2")

ols <- lm(formula = X1 ~ X2,
          data= df)

stargazer(ols, 
          # covariate.labels = NULL, 
          title = "Regression Results",
          label = "tab:test",
          out="test.tex")

没有成功... 有什么建议吗？

Answer 1

用 expss 解决 use_labels:

library(expss)
library(stargazer)

df <- data.frame(replicate(2,sample(0:1,100,rep=TRUE)))

df = apply_labels(df,
                  X1 =  "label x1",
                  X2 = " label x2")

ols <- use_labels(df, lm(formula = X1 ~ X2))

res <- stargazer(ols, 
          # covariate.labels = NULL, 
          title = "Regression Results",
          label = "tab:test",
          out="test.tex")

# quick and dirty workaround for removing backticks  
remove_backticks = function(text){
    text = gsub("([^A-z]+)`", "\1", text, perl = TRUE)
    text = gsub("`([^A-z]+)", "\1", text, perl = TRUE)
    text = gsub("(^`)|(`$)", "", text, perl = TRUE)
    text
}


res = remove_backticks(res)

writeLines(res, "test.tex")

用于观星者提取的标签变量

label variable for stargazer extraction

r

label

stargazer

expss