R中的双嵌套函数

我有以下代码：

 mdf[,c(4)]<- mdf$`CLAVE EMISORA` %in% BMV[[1]]$`CLAVE EMISORA`
 mdf[,c(5)]<- mdf$`CLAVE EMISORA` %in% BMV[[2]]$`CLAVE EMISORA`
 ...............................................................
 mdf[,c(13)]<- mdf$`CLAVE EMISORA` %in% BMV[[10]]$`CLAVE EMISORA`

---

看起来您想要的是像这样简单地迭代10个索引并执行操作

for (i in 1:10) {
    mdf[,i + 3]<- mdf$`CLAVE EMISORA` %in% BMV[[i]]$`CLAVE EMISORA`
}

for（1:10中的i）{
mdf[，i+3]我的天啊……我实际上写了一个类似的片段，除了昏迷，这让我很沮丧。
   `CLAVE EMISORA` `RAZON SOCIAL`                            SECTOR
   <chr>           <chr>                                     <lgl> 
 1 AC              ARCA CONTINENTAL, S.A.B. DE C.V.          NA    
 2 ACCELSA         ACCEL, S.A.B. DE C.V.                     NA    
 3 ACTINVR         CORPORACION ACTINVER, S.A.B. DE C.V.      NA    
 4 AEROMEX         GRUPO AEROMÉXICO, S.A.B. DE C.V.          NA    
 5 AGRIEXP         AGRO INDUSTRIAL EXPORTADORA, S.A. DE C.V. NA    
 6 AGUA            GRUPO ROTOPLAS, S.A.B. DE C.V.            NA    
 7 AHMSA           ALTOS HORNOS DE MEXICO, S.A. DE C.V.      NA    
 8 ALEATIC         ALEATICA, S.A.B. DE C.V.                  NA    
 9 ALFA            ALFA, S.A.B. DE C.V.                      NA    
10 ALPEK           ALPEK, S.A.B. DE C.V.                     NA   

CLAVE EMISORA RAZON SOCIAL
1   3391      TSURUHA HOLDINGS, INC.
2   4911      SHISEIDO COMPANY, LIMITED
3   ABEV      AMBEV S.A.
4   AC        ARCA CONTINENTAL, S.A.B. DE C.V.
5   ACBE      AC BEBIDAS, S. DE R.L. DE C.V.

for (i in 1:10) {
    mdf[,i + 3]<- mdf$`CLAVE EMISORA` %in% BMV[[i]]$`CLAVE EMISORA`
}