尝试让package 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[gr
我试图在R中运行一组频率表,而不必为每个变量编写代码。例如,使用SPSS中的mtcar数据,我会这样做:
FREQUENCIES mpg TO vs
它给出了mpg和vs.m之间变量的8个频率表,我试图用summarytools函数freq或sjPlot函数view_df在R中得到这个效果。我可以使用freq来完成这个任务,但是您必须列出所有变量的名称,而不是使用像TO这样的命令。我可以使用view_df来完成,但是您必须知道变量的列位置(我有数千个变量,所以这是行不通的)。请看我下面有什么。
#####USING FREQ IN SUMMARY TOOLS
library(summaryt
我正在尝试使用expss包中的tab_cells命令在R中创建一组交叉表,该命令显示计数、总数和我的NAs。我不能让它给我NAs。 我尝试过使用na_if和tab_mis_val,也尝试过使用cro命令。我发现了一个我非常喜欢使用fre的频率表,我想把它复制成一个交叉表。我还使用了janitor包中的tabyl,可以获得NA行,但一次只能运行一个交叉表,而不是从var1到var10。 #I feel like I'm close with this
data%>%
tab_cells(var1 %to% var10) %>%
tab_cols(total
就我的目的而言,费用看上去很不错,但我有一个小小的问题。
试1(不起作用):当我在dataframe上使用expss时,一切正常,但是我想对数据帧进行子集,然后对每个子集调用expss。要子集并调用expss,我使用的是for循环。数据帧是正确的子集,但expss不返回任何内容。
municipal_lists <- unique(leeftijd1$Regio)[1:3]
for (i in seq_along(municipal_lists)){
zx <-subset(leeftijd1, leeftijd1$Regio == municipal_lists[i])
使用expss包,我通过读取R中的SPSS文件来创建交叉表。这实际上工作得很好,但是这个过程需要很长时间才能加载。我有一个文件夹,其中包含各种SPSS文件(通常只有3个文件),通过R脚本,我正在获取三个文件中最后修改的文件。 setwd('/file/path/for/this/file/SPSS')
library(expss)
expss_output_viewer()
#get all .sav files
all_sav <- list.files(pattern ='\\.sav$')
#use file.info to get the
我是R新手,不知怎么说,这个问题应该是很容易解决的。但不幸的是,经过大约三天的搜索和实验,我一直未能做到这一点。
我的数据格式接近于宽格式:
color agegroup sex ses
red 2 Female A
blue 2 Female C
green 5 Male D
red 3 Female A
red 2 Male B
blue 1 Female B
...
我正在尝试创建可显示的表,
我正在尝试使用expss 来完成本文中关于表代的一些示例--但是,我一直使用cro和fre的最基本的交叉表函数获得带有两个变量的错误could not find function "setalloccol":
> cro(df$var1, df$var2)
Error in setalloccol(ans) : could not find function "setalloccol"
我使用的是running 1.2.1335,我已经重新安装了包dplyr、data.table、tidyr和expss本身,但是在所有这些库运行时,我似乎仍然会遇到这个错误
我想使用一个列表作为expss包中apply_labels的参数 这是从小插曲开始的: library(expss)
#> Warning: package 'expss' was built under R version 4.1.1
data(mtcars)
mtcars = apply_labels(mtcars,
mpg = "Miles/(US) gallon",
cyl = "Number of cylinders",