Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/65.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
需要帮助使用rworldmap向绘图上的国家添加名称吗_R_Rworldmap - Fatal编程技术网

需要帮助使用rworldmap向绘图上的国家添加名称吗

需要帮助使用rworldmap向绘图上的国家添加名称吗,r,rworldmap,R,Rworldmap,我只需要绘制数据框中出现的国家的名称,而不是所有世界国家的名称。有什么建议吗 library(grid) library(rworldmap) q = c("ESP","AND","MCO","VCT","NLD", "LUX", "GBR", "LIE", "BEL","NLD",

我只需要绘制数据框中出现的国家的名称,而不是所有世界国家的名称。有什么建议吗

library(grid)
library(rworldmap)


q = c("ESP","AND","MCO","VCT","NLD", "LUX", "GBR", "LIE", "BEL","NLD", 
      "LUX","GBR","DNK","SWE","NOR","ATG","AUS", "BHS", "BHR","BRB",
      "BLZ","BTN","BRN","KHM","CAN","SWZ","GRD","JAM","JPN","KWT","JOR","LSO","MYS","MAR","NZL",
      "OMN","PNG","QAT","KNA","LCA","VCT","SAU","SLB","THA","TON","TUV","ARE")

DF = data.frame(q = c("ESP","AND","MCO","VCT","NLD", "LUX", "GBR", "LIE", "BEL","NLD", 
                      "LUX","GBR","DNK","SWE","NOR","ATG","AUS", "BHS", "BHR","BRB",
                      "BLZ","BTN","BRN","KHM","CAN","SWZ","GRD","JAM","JPN","KWT","JOR","LSO","MYS","MAR","NZL",
                      "OMN","PNG","QAT","KNA","LCA","VCT","SAU","SLB","THA","TON","TUV","ARE"), Assignment = ("Monarchies Worldwide"))
                

Map = joinCountryData2Map(DF, joinCode = "ISO3", nameJoinColumn ="q", mapResolution = "coarse" ) 

mapParams = mapCountryData(Map, nameColumnToPlot="Assignment", catMethod = "categorical",
               missingCountryCol = gray(.4))

``

这里有一些东西可以试试。创建一个国家名称向量,该向量可用于对坐标(地图)进行子集划分。您将获得选定的国家名称,而不是地图上的所有国家名称

library(rworldmap)

DF = data.frame(q = c("ESP", "CAN"), 
                Assignment = ("Monarchies Worldwide"))

country = c("Spain", "Canada")

Map = joinCountryData2Map(DF, 
                          joinCode = "ISO3", 
                          nameJoinColumn ="q", 
                          mapResolution = "coarse") 

mapParams = mapCountryData(Map, 
                           nameColumnToPlot="Assignment", 
                           catMethod = "categorical",
                           missingCountryCol = gray(.4))

country_coord <- data.frame(coordinates(Map))[country, ]

text(x = country_coord$X1, 
     y = country_coord$X2, 
     labels = row.names(country_coord))
库(rworldmap)
DF=数据帧(q=c(“ESP”、“CAN”),
分配=(“全球君主政体”))
国家=c(“西班牙”、“加拿大”)
地图=joinCountryData2Map(DF,
joinCode=“ISO3”,
nameJoinColumn=“q”,
mapResolution=“粗略”)
mapParams=mapCountryData(地图,
nameColumnToPlot=“分配”,
catMethod=“分类”,
missingCountryCol=灰色(.4))

country_coord确实满足了您的需求?不幸的是,它没有,已经尝试过了!我很想这样做,但只适用于国家而不是城市。这很有效,非常感谢你,本!