expss表输出的rbinding表错误

发布于05月11日

我试图按行绑定两张表，但无法绑定.我们有什么办法来约束它吗

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

output required

推荐答案

你有不同的列名，这就是为什么你不能有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)