Как сделать карту мира без Антарктиды?

Я делаю карты мира с помощью пакета rworldmap. Я использую функцию для доступа к торговым данным из UN Comtrade.

Я отредактировал свой исходный вопрос, чтобы показать реальный пример того, что я делаю. Вот карта, которую я мог бы составить:

Функция

library(rjson)
library(rworldmap)

get.Comtrade <- function(url="http://comtrade.un.org/api/get?", maxrec=50000,
                         type="C", freq="A", px="HS", ps="now", r, p, rg="all",
                         cc="TOTAL", fmt="json") {
  string <- paste(url
                  , "max=", maxrec,"&"  # maximum no. of records returned
                  , "type=", type, "&"  # type of trade (c=commodities)
                  , "freq=", freq, "&"  # frequency
                  , "px=", px, "&"      # classification
                  , "ps=", ps, "&"      # time period
                  , "r=", r, "&"        # reporting area
                  , "p=", p, "&"        # partner country
                  , "rg=", rg, "&"      # trade flow
                  , "cc=", cc, "&"      # classification code
                  , "fmt=", fmt         # Format
                  , sep="")

  if (fmt == "csv") {
    raw.data <- read.csv(string,header=TRUE)
    return(list(validation=NULL, data=raw.data))
  } else {
    if (fmt == "json" ) {
      raw.data <- fromJSON(file=string)
      data <- raw.data$dataset
      validation <- unlist(raw.data$validation, recursive=TRUE)
      ndata <- NULL
      if (length(data) > 0) {
        var.names <- names(data[[1]])
        data <- as.data.frame(t(sapply(data,rbind)))
        ndata <- NULL
        for (i in 1:ncol(data)) {
          data[sapply(data[, i], is.null), i] <- NA
          ndata <- cbind(ndata, unlist(data[, i]))
        }
        ndata <- as.data.frame(ndata)
        colnames(ndata) <- var.names
      }
      return(list(validation=validation, data=ndata))
    }
  }
}

Использование

dt2 <- get.Comtrade(r=32, p="all", rg=1, fmt="csv")
dt2df <- as.data.frame(do.call(rbind, dt2))
total <- sum(dt2df$Trade.Value..US..)
dt2df$p <- 100*dt2df$Trade.Value..US../total
dt2df <- dt2df[order(-dt2df[, "p"]), ]

top3 <- dt2df[4, "p"]
top10 <- dt2df[11, "p"]
q3 <- dt2df[as.integer(1*nrow(dt2df)/4), "p"]
q2 <- dt2df[as.integer(2*nrow(dt2df)/4), "p"]
q1 <- dt2df[as.integer(3*nrow(dt2df)/4), "p"]

mapped_data <- joinCountryData2Map(dt2df, joinCode="ISO3", 
                                   nameJoinColumn="Partner.ISO")

mapCountryData(mapped_data, nameColumnToPlot="p", numCats=6, 
               catMethod=c(0, q1, q2, q3, top10, top3, 100), 
               colourPalette=c('cornsilk', 'cornsilk2', 'palegreen1', 
                               'palegreen2', 'palegreen4', 'darkgreen'), 
               mapTitle="", addLegend=FALSE)

В результате получилась карта, которую я ищу, за исключением того, что мне не нужно видеть Антарктиду. Как мне его удалить?

Я пробовал с xlim & ylim, но это не сработало.