重命名列代码正在从我的data.frame中删除一列

Question

在编译我的代码以添加列并重命名输入值时，最终结果是少一列，这意味着我的代码正在擦除我想要重命名的列。重命名前的数据框Teste有13列，在使用函数Lotacao_Small之后我得到12列。我没有找到错误？

link <- url("https://raw.githack.com/fsbmat/salarioDocente/master/Teste/Dez2018SerT.csv")
Teste <- read.csv2(link, header = TRUE, encoding = "ASCII", skipNul = TRUE)
source("https://raw.githack.com/fsbmat/salarioDocente/master/Teste/Lotacao_Small.R")
Teste <- Lotacao_Small(Teste)
sessionInfo()


R version 3.5.2 (2018-12-20)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows >= 8 x64 (build 9200)

Matrix products: default

locale:
[1] LC_COLLATE=Portuguese_Brazil.1252  LC_CTYPE=Portuguese_Brazil.1252   
[3] LC_MONETARY=Portuguese_Brazil.1252 LC_NUMERIC=C                      
[5] LC_TIME=Portuguese_Brazil.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

loaded via a namespace (and not attached):
[1] compiler_3.5.2 plyr_1.8.4     tools_3.5.2    yaml_2.2.0     Rcpp_1.0.0

Answer 1

您的函数尝试重命名ORG_LOTACAO列中的因子级别，这在您的数据框中不存在。生成的错误将分配给您的LOTACAO列，这会使其消失。

尝试仅运行函数中嵌入的代码以查看它生成的错误。