python：pyecharts绘制自动化地图

import pandas as pd 
from pyecharts import options as opts
from pyecharts.charts import Map, Geo
from pyecharts.globals import ChartType
geo = Geo()
geo.add_schema(
    maptype="china",label_opts=opts.LabelOpts(is_show=True),
    itemstyle_opts=opts.ItemStyleOpts(color="#a4a4a4", 
                                      border_color="#005454"))
coordinate = pd.read_excel("G:/地图/11月/11月15日/单位经纬度.xlsx")
for j in range(0,len(coordinate['单位名称'])):
    geo.add_coordinate(
        name=coordinate['单位名称'][j],
        longitude=float(coordinate['longitude'][j]),
        latitude=float(coordinate['latitude'][j])
     )

list1 = list()
for i in range(0,len(coordinate['单位名称'])):
    a = coordinate['单位名称'][i]
    b = int(coordinate['状态'][i])
    c = [a,b]
    list1.append(c)
    
geo.add(
     "科研单位/高校分布",list1,
     type_=ChartType.EFFECT_SCATTER,
        )
geo.set_series_opts(label_opts=opts.LabelOpts(is_show=True, formatter="{b}", font_size=10))
geo.set_global_opts(visualmap_opts=opts.VisualMapOpts(
    is_piecewise=True,  # 表示分段
    pieces=[{'min': 0 , 'max':1, 'label':"待争取单位", 'color':'skyblue'},
            {'min': 1 , 'max':2, 'label':"11月前合作单位", 'color':'#37a2da'},
            {'min': 1 , 'max':3, 'label':"新增合作单位", 'color':'red','font_size':20}
            ],
    #pos_left="800", pos_top="250"
    ))
geo.render('G:/地图/11月/11月15日/11月15日地图2.html')

# 1 -----------------------------------------------------------------------
library(readxl)
library(ggplot2)
danwei <- read_excel('g:/地图/11月/11月15日/订单数量（单位）.xlsx')
p1 <- ggplot2::ggplot(danwei,aes(Var1,Freq,fill='#1c9cd8'))+
  geom_bar(stat = 'identity',position = "stack",
           show.legend = F,col='black',
           width = 0.8)+coord_flip()+
  labs(title = '2022年3-11月\n科研单位/高校订单数量',x = '',y = '')+
  geom_text(aes(label=lab,col='black'),size=5,#position = position_dodge(0,10),
            vjust=0.5,hjust=-0,col='black')+
  scale_y_continuous(limits=c(0,30))+
  theme(text = element_text(face = 'bold'))
p1
# -------------------------------------------------------------------------
yuefen <- read_excel('g:/地图/11月/11月15日/订单数量（月份）.xlsx')
yuefen$yuefen <- factor(yuefen$yuefen,levels = yuefen$yuefen)
p2 <- ggplot2::ggplot(yuefen,aes(yuefen,Freq,fill='#1c9cd8'))+
  geom_bar(stat = 'identity',position = "stack",
           show.legend = F,col='black',
           width = 0.8)+coord_flip()+
  labs(title = '2022年3-11月\n每月订单数量',x = '',y = '')+
  geom_text(aes(label=lab,col='black'),size=5,
            vjust=0.5,hjust=-0.5,col='black')+
  scale_y_continuous(limits=c(0,18))+
  theme(text = element_text(face = 'bold'))
p2
library(patchwork)
pdf("g:/地图/11月/11月15日/订单-月份-单位.pdf",
    family="GB1",width = 12,height =7)

p1+p2
dev.off()

https://wwl.lanzoue.com/b01k446of
密码:hxaj