A neat way to show world map in ggplot()

world_map_data<-map_data("world")
world2_map_data<-map_data("world2")
#us_state_map_date <- map_data("state")


ggplot() +
  geom_polygon(data=world2_map_data, aes(x=long,y=lat,group=group), color = "grey", size = 0.1, fill="gainsboro") +
  geom_polygon(data = subset(world_map_data, world_map_data$region == "India"), aes(x=long,y=lat, group = group), 
               fill= "royalblue", size = 0.1)