我在取一段时间内的某些股票的开盘价的时候想把它们按股票代码排成列，但是
temp8.new.open_unstack<-unstack(temp8.new.op,form = temp8.new.op$OPENPRICE~temp8.new.op$SCODE)
    运行之后出来的却是这样的

，每个股票代码前面多加了一个X，请问如何把X去掉