Создание вопросов с несколькими ответами из файла SPSS с использованием R - PullRequest
Новая
       27

Создание вопросов с несколькими ответами из файла SPSS с использованием R

0 голосов
/ 07 октября 2019

Я новичок в R. В настоящее время я создаю кросс-таблицы, используя PHP и R-скрипт. Я использую функцию MRSET для создания вопросов с несколькими ответами, но я не получаю метки и данные. Он просто отображает номер вопроса, который передается из кода PHP. Я попробовал следующее ... 

setwd('/files/are/inside/this/PATH/SPSS')

library(foreign)
library(expss)

expss_output_viewer()


mydata = read.spss("SPSS123456.sav", stringsAsFactors = FALSE,reencode=FALSE)


w <- data.frame(mydata)
args <- commandArgs(TRUE)



Ques<-as.character(args[1])   ## number of beds
Ban<-as.character(args[2])

Ques_Vec = strsplit(Ques, ',')[[1]]
Ban_Vec = strsplit(Ban, ',')[[1]]

temp1 <- w[c(Ques_Vec)]
temp2 <- w[c(Ban_Vec)]



Banner1 = w %>% 
tab_cells(mrset(as.category(temp1))) %>%
tab_cols(total(),mrset(as.category(temp2))) %>% 
tab_stat_cases(total_row_position = "none",label = "")
#tab_pivot(Banner1)

Banner2 = w %>%
  tab_cells(mrset(as.category(temp1))) %>%
  tab_cols(total(),mrset(as.category(temp2)))%>% 
  tab_stat_cpct(total_row_position = "below",label = "")%>%
tab_last_sig_cpct(sig_labels = paste0("<span style='color:red'>",LETTERS, "</b>"))
tab_pivot(Banner2)

Может кто-нибудь сказать мне, где я иду не так. Я пробовал то же самое с файлами CSV, и он прекрасно работает. Один вопрос выбора работает отлично, за исключением этих вопросов с несколькими вариантами ответов.

например, вот результат, который я получаю ... 

         Total cases   Q13_1    Q13_2    Q13_3


Total         0           0        0        0
             0%           0%       0%      0%

Q12_1        0            0        0        0
             0%          0%        0%      0%

Q12_2        0           0         0        0
             0%          0%        0%       0%


Q12_3         0          0           0       0
              0%          0%         0%      0%
...