Вам нужно сначала создать / прочитать в фрейме данных, который вы хотите использовать.
dat <- read.spss("mydataframe.sav")
Затем вам нужно перевести его в нужный вам формат: как в вашем примере кросс-таблиц, вы можете сделатьthis:
library(reshape2)
ct <- reshape2::dcast(iris, variable1 ~ variable2, fun.aggregate = length)
#depending on what data you want, you can change the fun.aggreagte function (e.g. sum or mean).
Затем вы можете использовать пакет xltabr для подготовки файла Excel, создав рабочую книгу:
wb <- xltabr::auto_crosstab_to_wb(ct)
Затем вы можете сохранить его как файл .xlsx:
library(openxlsx)
openxlsx::saveWorkbook(wb, file = "crosstable.xlsx", overwrite = T)
Надеюсь, это поможет