我有一个包含四列的数据框，每列都是第一列的子串：df$naics_6有一个6位代码，df$naics_5是这些6位数的前5位的子串代码，df$naics_4和df$naics_3的配置相似。
例如，
naics_6 | naics_5 | naics_4 | naics_3
---------------------------------------
325192 | 32519 | 3251 | 325
311221 | 31122 | 3112 | 311
321113 | 32111 | 3211 | 321
我希望能够配置我的脚本，以便输入对应于n位数字代码的值（例如n = 6，n = 5等），拉出匹配列，然后对它进行其他计算。
前两行是我目前所在的地方。第三行是我被卡住的地方，我只想使用str来提取正确的列，但显然不会那样。
n = 5
str = paste0('naics_', as.character(n))
new_calc = 5 * df$'str'
任何帮助将不胜感激！