R 循环中无法识别粘贴的变量名

抱歉，代码太难看了，但我不确定到底出了什么问题

for (i in 1:1) 
    tab_sector[1:48,i] <- 
        tapply(get(paste("employee",1997-1+i, "[birth<=(1997-1+i)]",sep="")),
               ordered(sic2digit[birth<=(1997-1+i)],levels=tab_sector_list))

# Error in get(paste("employee", 1997 - 1 + i, 
# "[birth<=(1997-1+i))]",  : object 'employee97[birth<=(1997-1+i)]' not found

for（1:1中的i）
tab_扇区[1:48，i]您无法
获取索引元素，例如
get（“x[i]”）
失败：您需要
get（“x”）[i]

您的代码几乎太凌乱了，您也无法看到发生了什么，但这是一种翻译尝试：

   for (i in 1:1){
        ind <- 1997-1+i
        v1 <- get(paste0("employee",ind))
        tab_sector[1:48,i] <- tapply(v1[birth<=ind],
             ordered(sic2digit[birth<=ind],levels=tab_sector_list))
    }

for（1:1中的i）{
ind您无法
获取
索引元素，例如
get（“x[i]”）
失败：您需要
get（“x”）[i]

您的代码几乎太凌乱了，您也无法看到发生了什么，但这是一种翻译尝试：

   for (i in 1:1){
        ind <- 1997-1+i
        v1 <- get(paste0("employee",ind))
        tab_sector[1:48,i] <- tapply(v1[birth<=ind],
             ordered(sic2digit[birth<=ind],levels=tab_sector_list))
    }

for（1:1中的i）{
如果你告诉我们你想完成什么，那会有帮助的

在您的代码中，
get
函数正在查找一个名为“'employee97[birth的变量，如果您告诉我们您要实现的目标，这会有所帮助

在您的代码中，
get
函数正在查找一个名为“'employee97[birth]的变量，该变量可以是空的，但不应该粘贴（“employee”，1997-1+i，”[birth抱歉，我的错误，为了使它更简单，我修改了较早的（甚至更难看的）索引：“employee”（1997-1901+i）--为增加一层混乱道歉可能没什么，但不应该粘贴（“雇员”，1997-1+i），[出生对不起，我的错误，为了使它更简单，我修改了早期（甚至更难看）的索引：“雇员”（1997-1901+i）--为增加一层混乱道歉Get（“x”）[i]这确实是我需要的提示--感谢对代码混乱的道歉Get（“x”）[I]确实是我需要的提示--感谢对代码混乱的道歉