读取的项目数不是具有read.transactions的列数的倍数

我得到了标题中的警告信息

读取的项目数不是列数的倍数

我已经读过这个警告信息，但我仍然不明白为什么我会收到它

这是我的密码：

data <- read.csv("C:/Users/mouna/Desktop/Targa Consult/BD.csv", header=TRUE,sep=";") 
write.table(data, file ="basket.csv",sep=";",row.names=FALSE,col.names = TRUE)
tr <- read.transactions("basket.csv",format="single",sep=",",cols=c(3,4),rm.duplicates = TRUE) 
summary(tr) 
library(arules)
rules <- apriori(tr,parameter=list(supp=0.005,conf=0.8))

---

数据以防您在尝试读取不同行数的文件时降落在此处。说明如何查找有故障的线路。例如，假设您期望6列，并且您已读取.table返回错误消息
“读取的项数不是列数的倍数”
。您可以通过输入以下内容来找出导致问题的行：

x <- count.fields("A.txt", sep="\t")
which(x != 6)  # print out the lines that are not correct

x此消息来自您的
read.csv
行或
read.transactions
行（可能是read.csv或friend的包装器。我建议您通过查看文件中获取该消息的前5行左右开始调试，并确保您具有与列标题相同的列数。您说read.csv有包装器是什么意思？包装器是一个“环绕”的函数）内部函数通常旨在使内部函数更易于用于特定用途。作为一个简单的示例，通过键入
read.csv
（不带括号），您可以看到
read.csv
本身实际上是
read.table
的包装函数进入你的控制台，点击回车键。
read.csv
在内部调用
read.table
，参数设置专门用于读取.csv文件。我必须使用哪个（is.na（x）），因为坏行有na
rules <- apriori(tr,parameter=list(supp=0.005,conf=0.8))

x <- count.fields("A.txt", sep="\t")
which(x != 6)  # print out the lines that are not correct