我有一个包含 2 个变量（STATE 和 COUNTY，用于州 fips 代码和县 fips 代码）的数据集 (popdata)，我需要将其转换为与县 fips 代码格式匹配的新变量 (county_fips_code)另一个数据框，以便我可以加入它们（由 2 位州代码 + 3 位县代码组成的 5 位县 FIP 代码）。
我为州和县代码创建了新的重新格式化的变量以获得正确的前导零，然后将它们粘贴在一起以创建新变量。它大部分都有效，但是在我为最初只有 1 位数字的状态代码粘贴前导零后，它消失了。任何想法如何将重新格式化的州和县代码粘贴在一起而不会丢失州代码的前导零？对不起，这不是很好解释，我是一个新的 R 用户！
is.character(popdata$STATEreformat) #TRUE
is.character(popdata$COUNTYreformat) #TRUE
#Create new STATE and COUNTY variables in popdata that are padded with zeros
popdata$STATEreformat <- with(popdata, ifelse(nchar(STATE) == 1, str_c(0,STATE), STATE)) #if 1 digit in state, add 1 leading zero
popdata$COUNTYreformat <- with(popdata, ifelse(nchar(COUNTY) == 1, str_c("00",COUNTY), COUNTY)) #if 1 digit in county, add 2 leading zeros
popdata$COUNTYreformat <- with(popdata, ifelse(nchar(COUNTY) == 2, str_c(0,COUNTY), COUNTYreformat)) #if 1 digit in county, add 2 leading zeros
#Merge STATEreformat and COUNTYreformat variables in popdata into a single new variable
popdata$county_fips_code <- paste(popdata$STATEreformat, popdata$COUNTYreformat,sep="")