分组时发现唯一值计数时出错

Question

我有以下数据表

card_id state_id
123     PA
123     PB
123     PA
456     QS
789     PA

我想获取每个card_id的唯一状态ID的数量。我使用了以下代码

numberOfUniqueValues <- data[unique(data$state_id),.N,by=data$card_id]

但这给了我以下错误

 Error in `[.data.table`(data, unique(data$state_id),  : 
  Item 3 of i is -1 and item 1 is 16. Cannot mix positives and negatives.

此代码中的问题是什么以及如何解决？