使用openxlsx从Web导入Excel

我尝试使用openxlsx()直接从网页读取Excel文件,而不是一个警告,我得到了一个数据框与正确数量的列和一行丢失,但看似随机值(有值不应该有任何并且这些值与原始值不一致)。 我无法想象一个会暗示解决scheme的模式。

我尝试了不同的包( readxlxlsx ),并试图通过指定要导入的区域来查找错误。 这是我的代码:

 library(openxlsx) lp <- read.xlsx("http://www.longtermproductivity.com/download/BCLDatabase_online_v2.0.xlsx", sheet = 2, skipEmptyRows = F, skipEmptyCols = F, rows=1:218, cols=1:26) lp2 <- read.xlsx("BCLDatabase_online_v2.0.xlsx", sheet = 2) 

我所有的尝试都有相同的结果:前50行中的随机值,除了“年”列以外,只有NA。

我使用了一种解决方法,只需将表单转换为单个.csv文件,即可正常工作。 但是,我经常需要阅读excel文件,并想了解上面代码中的错误。

数据 (与代码中的链接相同)

第二名隐藏着名为GDP的表格。 所以请尝试表单名称

  library(openxlsx) lp read.xlsx("http://www.longtermproductivity.com/download/BCLDatabase_online_v2.0.xlsx", sheet = "LP") str(lp) 'data.frame': 217 obs. of 25 variables: $ Year : chr "1800" "1801" "1802" "1803" ... $ ARG : num NA NA NA NA NA NA NA NA NA NA ... $ AUS : num NA NA NA NA NA NA NA NA NA NA ... $ AUT : num NA NA NA NA NA NA NA NA NA NA ... $ BEL : num NA NA NA NA NA NA NA NA NA NA ... $ BRA : num NA NA NA NA NA NA NA NA NA NA ... $ CAN : num NA NA NA NA NA NA NA NA NA NA ... $ CHE : num NA NA NA NA NA NA NA NA NA NA ... $ CHL : num NA NA NA NA NA NA NA NA NA NA ... $ DEU : num NA NA NA NA NA NA NA NA NA NA ... $ DNK : num NA NA NA NA NA NA NA NA NA NA ... $ ESP : num NA NA NA NA NA NA NA NA NA NA ... $ FIN : num NA NA NA NA NA NA NA NA NA NA ... $ FRA : num NA NA NA NA NA NA NA NA NA NA ... $ GBR : num NA NA NA NA NA NA NA NA NA NA ... $ ITA : num NA NA NA NA NA NA NA NA NA NA ... $ JPN : num NA NA NA NA NA NA NA NA NA NA ... $ MEX : num NA NA NA NA NA NA NA NA NA NA ... $ NLD : num NA NA NA NA NA NA NA NA NA NA ... $ NOR : num NA NA NA NA NA NA NA NA NA NA ... $ NZL : num NA NA NA NA NA NA NA NA NA NA ... $ PRT : num NA NA NA NA NA NA NA NA NA NA ... $ SWE : num NA NA NA NA NA NA NA NA NA NA ... $ USA : num NA NA NA NA NA NA NA NA NA NA ... $ Euro.Area: num NA NA NA NA NA NA NA NA NA NA ...