r - 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`
它基本上对列的每一行的内容是否包含在列表内数据框的列中进行逻辑测试。结果是对一系列列的逻辑测试,告诉我它包含在哪里,因为我已将第 4-13 列指定为每个列表中每一行是否存在的二分变量。但是现在我想减少代码,而不是将结果映射到不同的列,我想使用具有级别 (1-10) 的单个列,其中每个级别都等于 i 列表。我尝试过使用嵌套的 for 循环,但它没有完成这项工作。
for (i in mdf$`CLAVE EMISORA`){
for (x in 1:10)
if (mdf$`CLAVE EMISORA` %in% BMV[[x]]$`CLAVE EMISORA`)
mdf$`SECTOR` <- x
}
示例数据库:
`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.
解决方案
看起来您想要的只是像这样简单地迭代您的 10 个索引并执行您的操作。
for (i in 1:10) {
mdf[,i + 3]<- mdf$`CLAVE EMISORA` %in% BMV[[i]]$`CLAVE EMISORA`
}
如果你愿意,你可以i+3
用一些程序化的方式来获得更好的列名。
推荐阅读
- r - 用同一列中的时间格式化 R 中的日期
- java - Spring,有没有办法解决无法在 Java 中扩展 2 个类的问题?
- python - 我尝试将预测变量转换为二进制数字变量,但我不断收到错误,我也尝试在线检查但没有解决方案
- r - 在指定的 Excel 工作表中应用函数
- javascript - i18next 插值中的 React 组件显示为 [object Object]
- reactjs - 有没有办法在 Firestore 中获取所有 id?
- c++ - 无法在 STM32f4xx 上启用定时器中断
- android - 如何测试 Android 中的 AdMob 中介?
- javascript - 我无法识别字符串中的最后一个字符
- powershell - 根据内容在不同的打印机上打印 pdf 文件