画图

宇翔

大家好，有个问题请教一下
setwd("C:/Users/fuwanglong/Documents/R/win-library/3.2/rgdal")
library(rgdal)
library(ggplot2)
library(sp)
dsn <- system.file("vectors", package = "rgdal")[1]
##This will create a longlat-projected world map.
# read shapefile

wmap <- readOGR(dsn = dsn, layer="ne_110m_land")
# convert to dataframe
wmap_df <- fortify(wmap)

# create a blank ggplot theme
theme_opts <- list(theme(panel.grid.minor = element_blank(),
                         panel.grid.major = element_blank(),
                         panel.background = element_blank(),
                         plot.background = element_rect(fill="#e6e8ed"),
                         panel.border = element_blank(),
                         axis.line = element_blank(),
                         axis.text.x = element_blank(),
                         axis.text.y = element_blank(),
                         axis.ticks = element_blank(),
                         axis.title.x = element_blank(),
                         axis.title.y = element_blank(),
                         plot.title = element_text(size=22)))

# plot map
ggplot(wmap_df, aes(long,lat, group=group)) +
  geom_polygon() +
  labs(title="World map (longlat)") +
  coord_equal() +
  theme_opts

ggsave("maps/map1.png",  width=12.5, height=8.25, dpi=72)
富望龙 [西南大学]  10:11:54
在 Rstudio  运行以上代码，出现以下结果
Error in grDevices::png(..., width = width, height = height, res = dpi,  :
  无法启动png()装置
In addition: Warning messages:
1: In grDevices::png(..., width = width, height = height, res = dpi,  :
  无法打开'maps/map1.png'文本写入
2: In grDevices::png(..., width = width, height = height, res = dpi,  :
  opening device failed
请问该如何解决？