png - ggmap 雄蕊水彩 png 错误

Question

对于我在使用 ggmap 和雄蕊水彩时遇到的问题，我真的很感激一些帮助/想法。

每次尝试创建雄蕊水彩图时，我都会收到相同的错误消息:

"Error in readPNG(destfile) : file is not in PNG format"

以下是一些返回此错误的简单代码示例:

qmap("new-york", zoom=13, source="stamen", maptype="watercolor")

或者

get_map(location='Auckland', source="stamen", maptype="watercolor", zoom=13)

我正在使用 r 版本:[默认] [64 位] C:\Program Files\R\R-3.0.2 在 windows 8 下

我意识到一些人已经发布了关于同样问题的帖子——但只有少数人——我还没有看到任何解释/建议。我很难过和沮丧，我真的希望有比我更有经验的人遇到(并解决)了这个问题。提前致谢或您可以提供的任何帮助

Answer 1

作为临时修复，您可以自己进行更改。类型

get_stamenmap 

在 R 终端。这将转储加载 map 的代码。您将需要编辑此代码并替换命名空间中的函数。

将代码复制到文本编辑器并通过更改第一行再次创建函数:

get_stamenmap <- function (bbox = 

然后你需要切换到加载 jpegs。搜索 png 并将文本更改为 jpg。我有两个实例，它们看起来像您在文件扩展名中需要的文本，它们在我的第 64 行和第 71 行。

64: urls <- paste(urls, ".jpg", sep = "")
71: destfile <- paste(filename, "jpg", sep = ".")

在第 75 行有函数 readPNG，您需要将其更改为 readJPEG。

tile <- readJPEG(destfile)

您还需要确保加载 jpeg 包，即 library(jpeg)，因为 ggmap 没有意识到现在需要这样做。我还需要 library(plyr) 但我不知道为什么 - 我这样做是因为我后来收到了一条关于 ldply() 的错误消息，我在那个包中找到了它。

现在将此“全新”功能粘贴回终端。之后，你需要覆盖包中嵌入的函数，这与你刚刚粘贴到终端的本地副本不同，因此需要键入:

assignInNamespace("get_stamenmap",get_stamenmap,ns="ggmap")

现在你应该准备好再次使用 qmap 了。这个过程对我有用，比用相同的更改重新编译包或下载具有这些修复和编译的最新源代码更简单。