R strsplit太慢了

原始数据如下所示：

modelinputparameter=c("2644971410,35,0,0,65,0.5645161290322581,0,34,0,24,0,59,0,49,526,62,74,100,0,2,74,101,0.06653992395437262,0.0,0.0,0.12357414448669202,0.5384615384615384,0.0,0.0,0.5483870967741935,0.0,0.0,0.3870967741935484,0.0,0.0,0.01773049645390071,0.041666666666666664,1.1935483870967742,0.0,0.0,0.14068441064638784,0.74,1.1935483870967742,0.14068441064638784,0.7326732673267327,0.42957136,0.012157798,0.56455743,0.027011633,0.46380696，-1.0，-1.0，-1,1,1,1,1,0,2,1，第一天，3,3，-1，-1,16,1,5,1，HTL，5,9,5,0,23”）

我的代码如下：

parameter_HTL <- strsplit(filter(rawdata,hotelbelongto!='SHT')$modelinputparameter, ',')
rawbetalog_HTL <- as.data.frame(do.call(rbind,parameter_HTL),stringsAsFactors = F) 

---

参数\u HTL您是否阅读了
strsplit
的文档？它有一个
固定的
参数，您可以使用此参数ModelInputParameter是rawdata的列之一。rawdata是一个数据帧。您是否阅读了
strsplit
的文档？它有一个
固定的
参数，您可以使用此参数ModelInputParameter是rawdata的一列。rawdata是数据帧。