R 阅读包含非传统电子表格的压缩文件夹

我正在尝试读取中包含的名为etfreit.zip的压缩文件夹

压缩文件夹中有一个名为2016.xls的文件，该文件很难读取，因为它包含空行和日文文本

我尝试了各种从R读取xls的方法，但我不断地出错。这是我尝试的代码：

download.file("http://www3.boj.or.jp/market/jp/etfreit.zip", destfile="etfreit.zip")
unzip("etfreit.zip")
data <- read.csv(text=readLines("2016.xls")[-(1:10)])

download.file（“http://www3.boj.or.jp/market/jp/etfreit.zip，destfile=“etfreit.zip”）
解压（“etfreit.zip”）
数据我认为这里发生了不止一件奇怪的事情，但我在使用（稍旧的）
gdata
package时取得了一些成功：

data = gdata::read.xls("2016.xls")

顺便说一下，将xls文件视为csv很少起作用。实际上，它根本不应该工作：）为您的数据类型找到一个合适的导入函数，然后使用它，不要假设
read.csv
将处理除csv以外的任何事情（正确）

根据您的评论：我不确定您所说的“未正确对齐”是什么意思，但这里有一些代码可以稍微清理数据，并为您提供数字变量而不是因子（注意，我使用的是
tidyr
）：

另外，请注意，我只删除了上面的7行-这似乎是包含日文标题的数据部分。
我认为这里发生了不止一件怪事，但我在使用（稍旧的）
gdata
包时取得了一些成功：

data = gdata::read.xls("2016.xls")

顺便说一下，将xls文件视为csv很少起作用。实际上，它根本不应该工作：）为您的数据类型找到一个合适的导入函数，然后使用它，不要假设
read.csv
将处理除csv以外的任何事情（正确）

根据您的评论：我不确定您所说的“未正确对齐”是什么意思，但这里有一些代码可以稍微清理数据，并为您提供数字变量而不是因子（注意，我使用的是
tidyr
）：

另外，请注意，我只删除了上面的7行-这似乎是包含日文标题的数据部分。
可以使用
jailbreakr
包读取“奇数”异常excel表格。它仍在开发中，但看起来很不错：

可以使用
jailbreakr
软件包阅读“奇数”异常excel表格。它仍在开发中，但看起来很不错：

Lol，“这么好”是指拥有10k+代表的人。但是如果你想要一个提示，那么阅读并尝试回答这里的问题是一个很好的学习方法。很棒的提示-也谢谢你。恐怕我还不够好，还不能为此做出贡献。至少会尝试回答问题并努力提高。Lol，“非常好”是指拥有10k+代表的人。但是如果你想要一个提示，那么在这里阅读并尝试回答问题是一个很好的学习方式。很棒的提示-也谢谢你。恐怕我还不够好，还不能为此做出贡献。至少会尝试回答问题并努力改进。