R语言执行代码时出现dim(X) must have a positive length报错求助

嘿，看到你遇到了dim(X) must have a positive length的报错，我来一步步帮你拆解原因和解决办法！

先搞懂报错本质 #

这个错误说白了就是你代码里某个要处理的对象是空的，或者根本没有正确的维度（比如不是矩阵/数据框类型），结合你贴的代码，主要问题出在这两个地方：

1. 输入数据残缺且格式不对 #

你写的pos_feeds最后一行是c('Talwalkar stock...，明显没写完、没闭合，这会让R没法把它识别成完整的两列数据。而且你用rbind拼出来的是字符矩阵，RTextTools处理文本和标签的时候，更认数据框格式，矩阵容易出问题。

2. 缺少RTextTools的完整工作流 #

RTextTools不是光定义数据就行的，得先把文本转换成文档矩阵，再创建分析容器，你目前的代码只写了部分数据，流程没走完，内部函数自然拿不到有效的处理对象。

具体解决步骤，照着做就行 #

第一步：补全并整理数据 #

先把没写完的文本补全，然后转换成规范的数据框，明确哪列是文本、哪列是标签：

library(RTextTools)
library(e1071)
library(SparseM)

# 补全正样本，转成数据框
pos_feeds <- data.frame(
  text = c('ICICI Bank stocks soars',
           'Thomas Cook India stocks increase by 4.92%',
           'Sensex surges over 1000 pts',
           'Oil stocks up',
           'PSU bank stocks rise',
           'GDP nos are good',
           'State Bank of India stocks experience jump',
           'CPI nos are good',
           'Stock market is positive',
           'Talwalkar stock gains momentum'), # 把最后一条文本补全
  sentiment = rep('positive', 10),
  stringsAsFactors = FALSE
)

# 建议加几条负样本，不然模型学不到对比信息（可选但非常推荐）
neg_feeds <- data.frame(
  text = c('ICICI Bank stocks plummet',
           'Thomas Cook India stocks drop by 3.5%',
           'Sensex falls over 800 pts'),
  sentiment = rep('negative', 3),
  stringsAsFactors = FALSE
)

# 合并所有样本
all_feeds <- rbind(pos_feeds, neg_feeds)

第二步：走RTextTools的标准流程 #

接下来创建文档矩阵和分析容器，这一步是解决维度错误的核心：

# 把文本转换成模型能识别的文档矩阵
text_matrix <- create_matrix(all_feeds$text, 
                        language = "english", 
                        removeNumbers = TRUE,
                        stemWords = TRUE,
                        removePunctuation = TRUE)

# 创建分析容器，指定好标签列
analysis_container <- create_container(text_matrix, 
                              labels = all_feeds$sentiment, 
                              trainSize = 1:nrow(all_feeds), 
                              testSize = NULL, # 不需要测试集就设为NULL
                              virgin = FALSE)

# 训练模型，比如用SVM
svm_model <- train_model(analysis_container, "SVM")

第三步：验证效果 #

做完上面两步，之前的apply内部调用就能拿到有有效维度的对象，那个维度报错应该就消失了。

额外提醒 #

• 确保你的RTextTools是最新版本，旧版本可能有数据处理的小bug
• 别只用正样本训练模型，这样模型根本不会判断其他情感，泛化能力极差
• 检查文本列里有没有空值，空值也会导致后续维度出问题

内容的提问来源于stack exchange，提问作者Deepan Dutta