在映射键的向量中查找多个字符串

Question

我有一个键和值列表。还有另一个向量有一些键。我想在列表中搜索这些键并使用相应的值进行进一步计算。

#Inside R environment
simil<-list("key"=c("A","B","C","D"),"val"=c(1.2,3.2,2.0,1.9)) 
someVec = c("B","D")

//CPP code
#include <RcppEigen>
#include <map>
using namespace Rcpp;
// [[Rcpp::export]]
NumericVector someFunc(GenericVector simil, CharacterVector someVec){
  List sim(simil);
  std::map<std::string, double> mymap;
  std::map<std::string, double>::iterator it;
  CharacterVector keys = sim["key"];
  NumericVector vals = sim["val"];

  map[keys] = vals;

  for(int i=0;i<someVec.size();i++){
       it = mymap.find(someVec(i));

      if(it!=mymap.end()){
        // some logic here
  }

}

我不确定 map[keys] = vals 是否有效，因为这看起来更像是一个 R 语句，但编译器不会在此行中抛出任何错误。问题在于在地图上使用 .find() 。它抛出一个错误：没有匹配的成员函数来调用查找。

如何在该地图中搜索键？即使 mymap.count(someVec(i))>0 也显示错误。

Answer 1

I was not sure if map[keys] = vals would work as this looks more like an R statement but the compiler does not throw any error in this line.

我不确定为什么会编译，但它肯定不会按照您的预期进行； std::map 是 C++ class 并且不遵守 R 的向量化语义。它有一个 few different constructors 可用于用数据填充它，但在您的情况下，最简单的方法可能是循环输入并迭代填充它。

The issue is with using the .find() on the map. It throws an error : No matching member function for call to find.

我怀疑这与 CharacterVector::operator[] returns a string_proxy（或 const_string_proxy，取决于上下文）这一事实有关。这不会隐式转换为 std::string，但您可以使用 Rcpp::as<std::string> 执行显式转换。

一起，

#include <Rcpp.h>
#include <map>

using namespace Rcpp;

// [[Rcpp::export]]
NumericVector find_keys(List keyvals, CharacterVector morekeys) {
    std::map<std::string, double> mymap;
    std::map<std::string, double>::iterator it;

    CharacterVector keys = keyvals["key"];
    NumericVector vals = keyvals["val"];

    R_xlen_t i = 0, n = keys.size(), m = morekeys.size();
    NumericVector res(m, NA_REAL);

    // fill map
    for (; i < n; i++) {
        mymap[as<std::string>(keys[i])] = vals[i];
    }

    // look up potential keys
    for (i = 0; i < m; i++) {
        it = mymap.find(as<std::string>(morekeys[i]));
        if (it != mymap.end()) {
            res[i] = it->second;
        }
    }

    return res;
}

/*** R

keyvals <-list(
    key = c("A","B","C","D"),
    val = c(1.2,3.2,2.0,1.9)
)
morekeys = c("B", "D", "x")

find_keys(keyvals, morekeys)
# [1] 3.2 1.9  NA

*/

或者，Rcpp wrap / as 专业知道如何处理 CharacterVector 和 std::vector<std::string> "out of the box" 之间的转换，即

// [[Rcpp::export]]
NumericVector find_keys2(List keyvals, const std::vector<std::string>& morekeys) {
    // ...

    std::vector<std::string> keys = as<std::vector<std::string> >(keyvals["key"]);
    // ...

    // fill map
    for (; i < n; i++) {
        mymap[keys[i]] = vals[i];
    }

    // look up potential keys
    for (i = 0; i < m; i++) {
        it = mymap.find(morekeys[i]);
        // ...
    }

    // ...
}

在映射键的向量中查找多个字符串

Lookup multiple strings in a vector in a map's keys

c++

r

rcpp