我有一个包含4列的数据集：县编号，国会区，县代码和县名称。如图所示
县代码是分配给不同县的电话号码...因此，奥陶加县分配了1，布隆特县分配了9。县号是与国会所在地一致的地方。
我需要做的是编写一个代码，在其中填入与国会选区正确对齐的县名的列。
所以我需要一列前12行是： 奥陶加县 鲍德温县， 巴伯县 比布县 布朗特县， 布朗特县， 布洛克县 巴特勒县， 卡尔洪县， 钱伯斯县 切罗基县 切诺基县
我在这里尝试了此代码，但无法正常工作。我什至在正确的轨道上吗？
counties %>%
mutate(test = NA) %>%
for(i in 1:nrow(counties)) {
if_else(counties$`County Number` == counties$`County Code`, test == counties$`County Name`, NA)
}