使用seqdef的额外不需要的级别

Question

当我将TramineR包中的seqdef函数应用于vector列表然后查看获得的级别时，我得到两个不需要的级别。我无法弄清楚如何删除这些级别。这是我的代码：

> require(TraMineR)
> seqW <- lapply(X = myListOfVectors, FUN = function(s){
  seqdef(s, alphabet = 1:9)
})

验证后，我的序列中只有1到9的数字，但后来我

> levels(s$T1)
 [1] "1" "2" "3" "4" "5" "6" "7" "8" "9" "*" "%"

这些＆＃34; *＆＃34;和＆＃34;％＆＃34;来自 ？我怎样才能避免他们的创作？