未在Expss for循环中解析的标签

Question

我对R很陌生，我试图按组来探索我的变量，我使用for循环来传递expss下所有合适的变量名。

下面是一个可重复的例子：

    require(expss)
    require(dplyr)
    colnoms <- as.data.frame(HairEyeColor) %>%  names(.)
    expss_digits(2)

    for (i in colnoms){      

    as.data.frame(HairEyeColor) %>%
        tab_cells(get(i)) %>%
        tab_cols(Eye) %>% 
        tab_stat_cpct() %>%
        tab_last_sig_cpct() %>% 
        tab_pivot() %>%
        set_caption(i) %>% 
        htmlTable() %>% 
        print()  
    }

我希望输出中变量的名称(头发、眼睛、颜色)，但我只得到" get (i)“。谢谢你的建议

Answer 1

在get之后，我们无法知道原始变量名。显示原始名称的最简单方法是将变量名称设置为label：

require(expss)
data(HairEyeColor)
HairEyeColor <- as.data.frame(HairEyeColor)
colnoms <-  names(HairEyeColor)

expss_digits(2)

for (i in colnoms){      
    # if we don't have label we assign name as label
    if(is.null(var_lab(HairEyeColor[[i]])))  var_lab(HairEyeColor[[i]]) = i
    HairEyeColor %>%
        tab_cells(get(i)) %>%
        tab_cols(Eye) %>% 
        tab_stat_cpct() %>%
        tab_last_sig_cpct() %>% 
        tab_pivot() %>%
        set_caption(i) %>% 
        htmlTable() %>% 
        print()  
}