小编Her*_*tra的帖子

假设,我有data.frame以下几点:

set.seed(45)
DF <- data.frame(x=1:10, strata2013=sample(letters[1:3], 10, TRUE))

    x strata2013
1   1          b
2   2          a
3   3          a
4   4          b
5   5          b
6   6          a
7   7          a
8   8          b
9   9          a
10 10          a

我想获得的计数的每个唯一值列strata2013,然后,用data.table(速度),一个能做到这一点以这种方式:

DT <- as.data.table(DF)
DT[, .N, by=strata2013]
   strata2013 N
1:          b 4
2:          a 6

现在,Rcpp作为一项学习练习,我想尝试完成这项工作.我已经编写并尝试了下面显示的代码,它应该提供相同的输出,但它给了我一个错误.这是代码:

#include <Rcpp.h>
using namespace Rcpp;  

// [[Rcpp::export]]
NumericVector LengthStrata (CharacterVector uniqueStrata, DataFrame …