Expss - использование префикса переменной для создания набора переменных для таблицы средних

Попытка получить пакет Expss для создания таблиц средних значений из наборов (аналогично таблицам с несколькими ответами, при этом вы вводите префикс, общий для всех переменных в наборе).

Вот моя попытка решить эту проблему ниже, но этот сценарий создает таблицу с пустым выводом. Есть ли способ сделать это?

library(expss)
#generate dummy data
q8_1<-rnorm(30,2,2)
q8_2<-rnorm(30,2,1)
df<-data.frame(q8_1,q8_2)

#Use regex to identify variables with Q8 prefix and then list
varssmeanio<-names(df[grep("^Q8", names(df))])
as.list(varssmeanio)
variolistio = calc(data, as.list(varssmeanio))

df %>%
tab_cells(variolistio) %>%
tab_stat_mean(label = "")  %>%
tab_pivot()

r expss
person CK7    schedule 17.04.2020    source источник

Ответы (2)


arrow_upward
0
arrow_downward

Есть специальные функции для выбора переменных. Вы можете найти справку по ним, набрав ?vars в консоли. Один из них ..p - он выбирает переменную с помощью регулярных выражений в стиле Perl. Итак, у нас есть:

library(expss)
#generate dummy data
q8_1<-rnorm(30,2,2)
q8_2<-rnorm(30,2,1)
df<-data.frame(q8_1,q8_2)

df %>%
    tab_cells(..p("^q8")) %>%   # 'p' means 'perl' 
    tab_stat_mean(label = "")  %>%
    tab_pivot()
person Gregory Demin    schedule 17.04.2020

arrow_upward
2
arrow_downward

Это будет работать

varssmeanio<-df[grep("[Q8]", names(df))]

df %>%
  tab_cells(varssmeanio) %>%
  tab_stat_mean(label = "")  %>%
  tab_pivot()

Таблица выходных данных

 |      | #Total |
 | ---- | ------ |
 | q8_1 |    1.8 |
 | q8_2 |    1.6 |
person Mohanasundaram    schedule 17.04.2020