R读取文件文件为何出错？

> lecture<-read.csv("E:/soft/R/文本分析/hongloumeng.txt", stringsAsFactors=FALSE,header=FALSE)
Warning message:
In scan(file = file, what = what, sep = sep, quote = quote, dec = dec,  :
  EOF within quoted string

> lecture<-read.table("E:/soft/R/文本分析/hongloumeng.txt")
Error in scan(file = file, what = what, sep = sep, quote = quote, dec = dec,  :
  line 1 did not have 3 elements
问题如上，多谢！
hongloumeng.txt (1.68 MB)

2021-1-4 11:42:48 上传

耕耘使者 发表于 2021-1-4 13:25
hongloumeng  
还是不行

我用的是readr包，你用的是utils包，你试试这样，

1. hongloumeng <- readr::read_csv("d:/hongloumeng.txt", locale = locale(encoding = "GB2312"))

复制代码

简体中文吗？编码没选吧，或者试试看用readr

1. hongloumeng <- read_csv("d:/hongloumeng.txt",    locale = locale(encoding = "GB2312"))

复制代码

owenqi 发表于 2021-1-4 12:52
简体中文吗？编码没选吧，或者试试看用readr

hongloumeng <- read.csv("E:/soft/R/文本分析/hongloumeng.txt",locale = locale(encoding = "GB2312"))
Error in read.table(file = file, header = header, sep = sep, quote = quote,  :
  参数没有用(locale = locale(encoding = "GB2312"))
>
还是不行

hongloumeng <- readLines('hongloumeng.txt')
这样读没有编码的问题

owenqi 发表于 2021-1-4 11:44
我用的是readr包，你用的是utils包，你试试这样，

完美解决，谢谢大神！

szxship 发表于 2021-1-5 20:36
hongloumeng

仍然提示错误：
Warning message:
In readLines("hongloumeng.txt") : 读'hongloumeng.txt'时最后一行未遂
感谢！

耕耘使者 发表于 2021-1-13 20:31
仍然提示错误：
Warning message:
In readLines("hongloumeng.txt") : 读'hongloumeng.txt'时最后一行未 ...

这个不是错误，只是一个警告，不影响使用的