r - Rでポリゴンの一部を抽出するには?

Question

R でヨーロッパの地図を作成して、データの一部をプロットしたいと考えています。以下のコード ( http://www.r-bloggers.com/provincial-map-using-gadm/から取得) を変更して、ヨーロッパの地図を表示しました。バルト海沿いのロシアのスライバーが消えることを除けば、すべてが素晴らしいです。

ロシアのポリゴンのその部分を抽出して、ヨーロッパの真の地図を維持するにはどうすればよいですか?

library(sp)
library(raster)
## Download Map of the World ##
WorldMap <- getData('countries')

## Subset world map to European countries ##
EuropeMap <- (WorldMap[WorldMap$CONTINENT=="Europe" & WorldMap$COUNTRY != "Russia",])

## Plot map ##
plot(EuropeMap, bg = "dodgerblue", axes = T)
plot(EuropeMap, lwd = 10, border = "skyblue", add = T)
plot(EuropeMap, col ="green4", add = T)
grid()
box()
invisible(text(getSpPPolygonsLabptSlots(EuropeMap), labels = as.character(EuropeMap$COUNTRY), cex = 0.5, col = "white", font = 2))
mtext(side = 3, line = 1, "Map of Europe", cex = 2)
mtext(side = 1, "Longtiude", line = 2.5, cex = 1.1)
mtext(side = 2, "Latitude", line = 2.5, cex = 1.1)
text(40,30, "Projection: Geographic\nCoordinate System: WGS 1984\nData Source: GADM.org\nCreated by: Keith Larson", adj = c(0,0), cex = 0.7, col = "grey20")
text(-35, 75, "Calopteryx splendens", col="white", font=3, cex=1.5)