R编程：如何将变量标签作为expss包的fre函数输出的表中的第一列名称删除？

如何解决R编程：如何将变量标签作为expss包的fre函数输出的表中的第一列名称删除？

我正在对调查数据进行探索性分析，并且数据框是标记为避风港的数据集，也就是说，每个变量已经具有值标签和变量标签。

我想将频率表存储在一个列表中，然后将每个列表元素命名为变量标签。我正在使用expss软件包。问题在于输出表的第一列名称中包含以下描述：values2labels(Df$var。如何从表中删除此描述？

可复制的示例：

# Dataframe 
df <- data.frame(sex = c(1,1,2,2),agegroup= c(1,3,1),weight = c(100,20,400,300,50,80,250,100,100))
library(expss)

# Variable labels
   var_lab(df$sex) <-"Sex"
   var_lab(df$agegroup) <-"Age group"

# Value labels 
   val_lab(df$sex) <- make_labels("1 Male 
                               2 Female")

   val_lab(df$agegroup) <- make_labels("1 1-29
                                        2 30-49
                                        3 50 and more")

# Save variable labels  
   var_labels1 <- var_lab(df$sex)
   var_labels2 <- var_lab(df$agegroup)

# Drop variable labels
   var_lab(df$sex) <- NULL
   var_lab(df$agegroup) <- NULL

# Save frequencies
   f1 <- fre(values2labels(df$sex))
   f2 <- fre(values2labels(df$agegroup))

  # Note: I use the function 'values2labels' from 'expss' package in order to display the value <br />
      labels instead of the values of the variable.In this example,since I manually created the value <br /> 
      labels,I don't need that function,but when I import haven labelled data,I need it to 
      display value labels by default.

# Add frequencies on list
   my_list <- list(f1,f2)

# Name lists elements as variable labels
   names(my_list) <- c(var_labels1,var_labels2)

在以下输出中，如何摆脱两个表中的第一列名称：values2labels(df$sex)和values2labels(df$agegroup)？

$Sex
                                                                                                     
 | values2labels(df$sex) | Count | Valid percent | Percent | Responses,% | Cumulative responses,% |
 | --------------------- | ----- | ------------- | ------- | ------------ | ----------------------- |
 |                Female |     6 |            60 |      60 |           60 |                      60 |
 |                  Male |     4 |            40 |      40 |           40 |                     100 |
 |                #Total |    10 |           100 |     100 |          100 |                         |
 |                  <NA> |     0 |               |       0 |              |                         |

$`Age group`
                                                                                                          
 | values2labels(df$agegroup) | Count | Valid percent | Percent | Responses,% |
 | -------------------------- | ----- | ------------- | ------- | ------------ | ----------------------- |
 |                       1-29 |     3 |            30 |      30 |           30 |                      30 |
 |                      30-49 |     4 |            40 |      40 |           40 |                      70 |
 |                50 and more |     3 |            30 |      30 |           30 |                     100 |
 |                     #Total |    10 |           100 |     100 |          100 |                         |
 |                       <NA> |     0 |               |       0 |              |                         |

解决方法

您需要将var_lab设置为空字符串而不是NULL：

library(expss)
a = 1:2
val_lab(a) = c("One" = 1,"Two" = 2)
var_lab(a) = ""
fre(values2labels(a))
 # |        | Count | Valid percent | Percent | Responses,% | Cumulative responses,% |
 # | ------ | ----- | ------------- | ------- | ------------ | ----------------------- |
 # |    One |     1 |            50 |      50 |           50 |                      50 |
 # |    Two |     1 |            50 |      50 |           50 |                     100 |
 # | #Total |     2 |           100 |     100 |          100 |                         |
 # |   <NA> |     0 |               |       0 |              |                         |