运行FactoMineR包

Question

我有一张这样的表：

这只是一个样本！我们读它如下：

a1存在于状态fl和nc中 a2存在于状态fl和nc中，因此一直到目前为止 我创建了一个表，使用状态的名称作为列（fl，nc等...）
和a1，a2为行。
如果在F1中存在a1，则我们有一个否则为零 最后，我们提出了一个零和一个表。

我使用以下代码创建它：

st <- levels(data$X2)[-1] # to get the names of the states
v <- as.character(unlist(data[1,][-1])) # to get the names of the states where a1 is present. Here fl and nc.
as.integer(st %in% v) # Compare st and vt and we give one if we have an element in st which is equal to an element in v

data_rs <- t(apply(data, 1, function(v) as.integer(st %in% as.character(unlist(v)))))

问题是当我在其上运行MCA（包factorminer）时，我收到以下错误消息：

Error in xj[i] : only 0's may be mixed with negative subscripts

我希望我的解释清楚。

由于