怎样用编程语言做网站,徐州人才网,山西省住房和城乡建设厅官方网站,网站自助建设平台有哪些数据和代码获取#xff1a;请查看主页个人信息#xff01;#xff01;#xff01; 1. 数据读取与处理
首先#xff0c;从CSV文件中读取数据#xff0c;并计算各国每日收入的平均签证成本。
library(tidyverse)
df - read_csv(df.csv) %% group_…数据和代码获取请查看主页个人信息 1. 数据读取与处理
首先从CSV文件中读取数据并计算各国每日收入的平均签证成本。
library(tidyverse)
df - read_csv(df.csv) %% group_by(source, source_iso3) %% summarise(avg_workmean(work_perdailyincome, na.rmTRUE)) %% mutate_all(~ifelse(is.nan(.), NA, .))
2. 数据合并
将处理后的数据与世界地图数据进行合并以便在地图上进行可视化。
library(rnaturalearth)
library(sf)
world - ne_countries(scale medium, returnclass sf) %% select(iso_a3,geometry)
df2 - left_join(world,df,byc(iso_a3source_iso3)
)
3. 可视化设置
使用 ggplot2 和 scico 包进行地图绘制采用自定义主题和配色方案确保地图清晰、美观。
library(showtext)
library(scico)
library(rnaturalearthdata)
showtext_auto(enable TRUE)
font - Fira Sans Condensed
font_add_google(familyfont, font)
theme_set(theme_minimal(base_family font))
bg - #1F1D36
txt_col - grey95
4. 绘制初步地图
根据处理后的数据生成初步地图展示全球各国工作签证的平均成本。
df2 %% ggplot() geom_sf(aes(fillavg_work, geometrygeometry), colorgrey20, size.1) scale_fill_scico(palette imola,direction 1,na.valuegrey95,limitsc(0,180),breaksseq(0,180,45),begin.5,end1)
ggsave(pic1.png, width 7, height 4) 5. 美化地图
进一步美化地图使其更具吸引力和可读性。
df2 %% ggplot() geom_sf(aes(fillavg_work, geometrygeometry), colorgrey20, size.1) scale_fill_scico(palette imola,direction 1,na.valuegrey95,limitsc(0,180),breaksseq(0,180,45),begin.5,end1) coord_sf(crs projmerc, ylim c(-7000000,11000000)) theme(panel.grid element_blank(),axis.title element_blank(),axis.text element_blank(),plot.margin margin(30,30,30,30),plot.background element_rect(colorbg, fillbg),plot.title element_text(hjust0,size18, colortxt_col,lineheight.8, facebold, marginmargin(0,0,0,0)),plot.subtitle element_text(hjust0,size12, colortxt_col,lineheight.8, marginmargin(10,0,20,0)),plot.caption element_text(hjust.5,marginmargin(10,0,0,0), size8, colortxt_col, facebold),legend.position bottom,legend.title element_text(size7, colortxt_col),legend.text element_text(size6, colortxt_col)) guides(fill guide_colourbar(ticks.colour NA,title.positiontop,title.hjust 0.5,barwidth unit(6, cm),barheight unit(.4,cm),))
ggsave(pic2.png, width 7, height 4) 可视化结果
这张地图展示了全球各国申请工作签证的平均成本单位为2019年的美元。深色区域表示成本较高的国家特别是撒哈拉以南非洲和南亚地区这些区域的平均成本显著高于其他地区。
