评论

收藏

[R语言] R语言热力地图之渐变分析——西班牙开店选址

编程语言 编程语言 发布于:2021-06-29 21:11 | 阅读数:375 | 评论:0

  在芝加哥开一家店铺,主要为西班牙人进行服务,因此考虑芝加哥位置下的:城市的西班牙创造收入,西班牙家庭数量,西班牙人口数量,西班牙的祖辈习俗,西班牙语言的普及程度区域,周围西班牙的经济能力。
1.城市人口总平均值分析
  不同城市下的西班牙人口总平均值
city Inc_Race_Hispanic_Aggr_Average
CHICAGO 2,580,915,057
CICERO 403,886,620
BERWYN 170,119,980
HAMMOND 168,362,498
FRANKLIN PARK 163,312,895
MELROSE PARK 145,986,095
PALATINE 130,126,088
BLUE ISLAND 108,106,075
AURORA 104,713,520
BOLINGBROOK 88,225,246
WAUKEGAN 87,209,927
JOLIET 80,305,942
WHITING 74,872,790
OAK LAWN 71,630,381
HOFFMAN ESTATES 65,760,443
EAST CHICAGO 62,450,673
VILLA PARK 48,816,077
ELK GROVE VILLAGE 43,092,325
BRIDGEVIEW 42,466,770
通过上表发现,芝加哥的西班牙人口总平均值数最大,远远高于其它省份,因此在芝加哥进行西班牙的店铺选择十分有必要。
1. 假定以西班牙人分布位置的人均收入为基准进行选店铺
DSC0000.png
通过西班牙人在芝加哥的地理位置进行分析,得出芝加哥周围西班牙收入分布热力图如上所示,可以看出西班牙收入最高的分布在芝加哥城市的两端,即两个红色区域和红棕色区域的位置西班牙人的人均收入最高,选择离这些较近的位置开店较好。而棕色区域主要分布在I-90W和I-294的位置棕色较多,该位置离红色区域(-87.8,42.2)较近,而另一个红色区域的西班牙人均收入较低的绿色分布较多,因此总体来看,从人均收入角度来看选择在I-90W和I-294的位置开店较好。

2. 假定以西班牙人分布位置的家庭人口数多少基准进行选店铺
DSC0001.png
西班牙的家庭人口数超过2个分布如上图所示,从生活实际考虑,家庭人口数越多,说明周围的西班牙人群分布较为集中,同样可以看出在I-90E周围的家庭人口数较多,结合图一,可以说明在I-90W和I-90E周围开店选址效果较好。

3. 假定以今年西班牙人人口数的多少基准进行选店铺
DSC0002.png
通过数据对不同位置下的今年西班牙人口数分布进行分析,得出围绕在芝加哥I-90E周围的人口数最多,而外网的人口数相对较少,因此在I-90E周围开店选址效果较好。

4. 假定以今年西班牙人人口祖先数的多少基准进行选店铺
DSC0003.png
通过对西班牙的祖先数量分布进行分析,发现围绕市中心芝加哥的西班牙人数多于外围的西班牙人口数,通用在I-90E和I-55N周围的西班牙祖先数量较多,祖辈的习俗将影响后代的生活饮食习惯,因此在这个范围进行选择效果较好。

5. 不同收入位置下会讲西班牙语言的人口数量分布
DSC0004.png
通过上图得到芝加哥不同区域下会说西班牙语言的人口数量分布,得出在I-90E周围的西班牙语言普及较多,因此在该区域进行西班牙店铺的选择,将更交易于近乡情更切的交流,更能吸引西班牙人来此处店铺进行消费。

  综上人口数量、家庭数量、经济收入、祖辈文化、西班牙母语普及程度5个方面,总结得出西班牙的店铺选择最佳集中的区域如下图红色标记区域所示:
DSC0005.png
整理程序代码如下所示:
library(ggmap)
library(XML)
library(RCurl)
library(baidumap)
require(ggplot2)
ak = 'ZwxSqEZwdYC2A'
options(baidumap.key = ak)
map <- getBaiduMap(c(116.39,39.93),width =350,height = 350,zoom = 10,scale = 2,color = "bw",messaging = FALSE)
dat1$price=gsub("1","是",dat1$price)
dat1$price=gsub("0","否",dat1$price)
ggmap(map)+
  geom_point(aes(dat1$LONG,dat1$LAT,colour=price),data = dat1)+
  labs(x = "经度", y="经度")+
  theme(text = element_text(family="SimHei")
  
关注下面的标签,发现更多相似文章