expss表输出的重新绑定表中的错误

Question

我试图逐行绑定两个表，但无法绑定它。我们有什么办法把它绑起来吗？

mtcars$vs<-factor(mtcars$vs, levels=c(0,1), labels=c("Male","female"))
mtcars$am<-factor(mtcars$am, levels=c(0,1), labels=c("Male","female"))


t1 <- expss::cro_cpct(mtcars$vs) %>% t()
t2 <- expss::cro_cpct(mtcars$am) %>% t()
t3 <- rbind(t1,t2)

Error in match.names(clabs, names(xi)) : 
  names do not match previous names

所需输出

​

Answer 1

您有不同的列名，这就是不能使用rbind表的原因。您需要做一些事情来使列名相同，例如：

library(expss)
data("mtcars")
mtcars$vs<-factor(mtcars$vs, levels=c(0,1), labels=c("Male","female"))
mtcars$am<-factor(mtcars$am, levels=c(0,1), labels=c("Male","female"))

# set the same variable labels on both variable
var_lab(mtcars$vs) = "|"
var_lab(mtcars$am) = "|"

t1 <- expss::cro_cpct(mtcars$vs) %>% t()
t2 <- expss::cro_cpct(mtcars$am) %>% t()
t3 <- rbind(t1,t2)