不匹配的列数

如何解决不匹配的列数

我正在尝试使用 rbind 函数为匹配进程创建一些数据，但出现此错误：

Error in rbind(deparse.level,...) : 
  numbers of columns of arguments do not match

我已经检查并调整了顺序，因此它们肯定匹配，但仍然出现错误。知道为什么吗？

这是我的代码：

# Match on the data from the year before treatment,matching on counttotal and countbrown
matchData <-
  rbind(treat_firms_1year_prior[,-c(
    grep("year_int_tx",colnames(treat_firms_1year_prior)),grep("matchingyear",grep("flag",colnames(treat_firms_1year_prior))
  )],control_firms_year_int_tx)

这些是列名：

> colnames(treat_firms_1year_prior)
 [1] "investor"            "dealyear"            "totalUSD"            "counttotal"          "greenUSD"            "countgreen"         
 [7] "brownUSD"            "countbrown"          "signatory"           "treatment"           "firsttreat"          "matchingyear"       
[13] "country"             "region"              "yearest"             "strategy"            "capsources"          "historicfunds"      
[19] "eligible_treat_firm" "year_int_tx"         "flag"               

> colnames(control_firms_year_int_tx)
 [1] "investor"            "dealyear"            "totalUSD"            "counttotal"          "greenUSD"            "countgreen"         
 [7] "brownUSD"            "countbrown"          "signatory"           "treatment"           "firsttreat"          "matchingyear"       
[13] "country"             "region"              "yearest"             "strategy"            "capsources"          "historicfunds"      
[19] "eligible_treat_firm" "year_int_tx"         "flag"  

解决方法

rbind 要求 2 个数据框具有相同的列数。

您的列与 treat_firms_1year_prior 删除 3 列（“year_int_tx”、“matchingyear”、flag”）不同，而 control_firms_year_int_tx 没有。

您还需要将它们放在 control_firms_year_int_tx 中，或将它们保留在 treat_firms_1year_prior 中。

matchData <-
  rbind(treat_firms_1year_prior[,-c(
    grep("year_int_tx",colnames(treat_firms_1year_prior)),grep("matchingyear",grep("flag",colnames(treat_firms_1year_prior))
  )],control_firms_year_int_tx[,colnames(treat_firms_1year_prior))
  )])

或

excludeColumns <- c("year_int_tx","matchingyear","flag")

matchData <-
  rbind(
    treat_firms_1year_prior[,!(names(treat_firms_1year_prior) %in% excludeColumns)],!(names(control_firms_year_int_tx) %in% excludeColumns)]
  )

或

matchData <-
  rbind(treat_firms_1year_prior,control_firms_year_int_tx)