平滑ggplot2贴图中的边缘-SpatialPolygonsDataFrame

Question

我已经从要在ggplot中绘制的数据库中下载了地图。这些地图都是Class中的SpatialPolygonDataframes。我的代码产生粗糙的边缘，因此我尝试对对象使用ksmooth函数。这有所帮助，但是对于某些边框，我仍然有些奇怪的边缘。

我的代码是这样的

norway2 <- readOGR(dsn="path", use_iconv = TRUE, encoding = "UTF-8")
akershus <- #"Taking out" one county
q <- ggplot(data = merged, aes(x = long, y = lat, group = group))
q <- q + geom_polygon(color = "white", aes(fill = Ex),size = 0.05)
q <- q + scale_fill_gradient2(trans = "log", low = "white", high = "darkblue", guide = FALSE)
q <- q + theme(panel.background = element_rect(fill = "white", colour = "grey"),
             panel.grid.major = element_line(colour = "white"))
q

这个情节给了我类似

我了解到我可以使用类似的东西使对象变平滑

norway3_smooth <-smooth(norway3, method = "ksmooth", smoothness = 2.8) 

但是，这并不是真正令人满意的。我得到了这样的图，其中一些边缘平滑，而其他边缘则不平滑。

有人知道以类似的方式平滑所有线条的方法吗？可能会使用ggplot本身吗？