查询如何使用GGR中的绘图绘制世界热图?

查询如何使用GGR中的绘图绘制世界热图?,r,ggplot2,data-visualization,ggplotly,R,Ggplot2,Data Visualization,Ggplotly,我想制作一张特定疾病的世界热图。数据集包含每个国家的国家、纬度、经度和案例列表。数据是可用的。我想用世界热图来表示它,即病例数较高的国家应采用较深的颜色,病例数较少的国家应采用较浅的颜色。 我使用了ggplot和geom_地图来创建相同的。代码如下所示: library(maps) library(plyr) library(gridExtra) h2 <- read_excel("mapdata1.xlsx") world_map <- map_data("world") wo

我想制作一张特定疾病的世界热图。数据集包含每个国家的国家、纬度、经度和案例列表。数据是可用的。我想用世界热图来表示它,即病例数较高的国家应采用较深的颜色,病例数较少的国家应采用较浅的颜色。 我使用了ggplot和geom_地图来创建相同的。代码如下所示:

library(maps)
library(plyr)
library(gridExtra)

h2 <- read_excel("mapdata1.xlsx")

world_map <- map_data("world")
world_map <- subset(world_map, region!="Antarctica")

gg <- ggplot(h2)
gg <- gg + geom_map(dat=world_map, map = world_map, aes(map_id=region), 
                    fill="white", color="#7f7f7f", size=0.25)
gg <- gg + geom_map(map = world_map, aes(map_id = Country, fill = Cases), size=0.25)
gg <- gg + scale_fill_gradient(low="#fff7bc", high="#cc4c02", name="Total Cases")
gg <- gg + expand_limits(x = world_map$long, y = world_map$lat)
gg <- gg + labs(x="", y="", title="World Hotspots")
gg <- gg + theme(panel.grid=element_blank(), panel.border=element_blank())
gg <- gg + theme(axis.ticks=element_blank(), axis.text=element_blank())
gg <- gg + theme(legend.position="top")
gg
库(地图)
图书馆(plyr)
图书馆(gridExtra)

h2原因很简单,美国在您的数据和世界地图中有不同的名称

库(地图)
图书馆(GG2)

mydata欢迎访问SO!一个小提示-您不需要重复
gg请在问题中包含数据,以使您的代码可复制;链接将来可能会断开。使用
h2注释!非常感谢你!先生,我有一个小问题。当我将此代码添加到flexdashboard代码(在R标记中)时,flexdashboard停止工作。它只是显示一个带有标题的空白屏幕。你能帮忙吗?@KhushiThakkar这将是一个新问题。如果你决定问一个新问题,请不要忘记包括一个最小的可重复的例子。如果你认为你关于空美国的问题被回答了,请考虑“接受”这个答案,在我回答的旁边勾勾记号——这样问题不会再被标记为未回答。谢谢,先生。我已经接受了答案。谢谢你的帮助。我已经分别提出了第二个问题,链接如下: