2
"rworldmap"패키지로 세계지도를 만들고 있습니다. UN Comtrade의 무역 데이터에 액세스하는 기능을 사용하고 있습니다. 내가 뭘하는지의 실제 예를 보여줄 수 있도록 남극 대륙없이 R로 세계지도를 만들려면 어떻게해야합니까?
은 내 원래의 질문을 편집했다.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으로 시도했지만 작동하지 않았다.