Whatnots 分享了我们的 MASC 数据可视化教学中使用的一些(但不是全部)R 代码和数据文件 (https://warwick.ac.uk/fac/cross_fac/cim/apply-to-study/masters-programmes/visualization/) 。
它可能对您自己的教学、研究或学习有用。脚本和文件“按原样”共享,不承担任何责任,而且重要的是,不共享我们在教学中如何使用它们的上下文。如果您发现任何错误,请联系我们。
在某些情况下,下面给出的可视化说明了使用数据可以生成什么,而不一定是由这些函数生成的。学生们已将这些数据用于我们模块中的可视化项目。
许多气候可视化使用来自 https://berkeleyearth.org 的数据。此通用函数返回focalCountry
的气候数据。该脚本以简单、可用的方式格式化数据。
国家名称/格式遵循 BerkleyEarth.org 的名称/格式,这样就可以工作:
get_berkley_earth_climate_data( "Cook Islands" )
但这会返回一个错误:
get_berkley_earth_climate_data( "Cook-Islands" )
作为简要说明,该函数连接来自国家/地区名称的 URL,从第 51 行读取该数据(使用skip
),如下所示:
focalCountry <- "Kenya"
dataUrl <- paste("https://berkeleyearth.org/wp-content/themes/client-theme/temperature-data/",
focalCountry,
"-projection.txt", sep="")
thisData <- read.table( dataUrl, skip=51 )'
names( thisData ) <- c("Year", "AnnualAverage", "AnnualAverageUncertainty", "10YearSmooth", "SSP1-2.6", "SSP2-4.5", "SSP3-7.0", "ModelHistorical")
重命名列后,该数据文件本身也被重命名,并由函数输出。
countryNameWithoutBlankSpace <- gsub( pattern = " ", replacement = "", x = focalCountry )
countryNameWithoutBlankSpaceOrDashes <- gsub( pattern = "-", replacement = "", x = countryNameWithoutBlankSpace )
countryDataName <- paste( countryNameWithoutBlankSpaceOrDashes,
"Data", sep="")
assign( countryDataName, thisData )
get_berkley_earth_climate_data
函数执行这些步骤,因此更容易调试和修改,并且更容易以批处理模式运行。
输出形状文件 – elect_states.shp
– 具有:
该文件是由一个脚本生成的,该脚本将来自麻省理工学院选举数据和科学实验室 (https://doi.org/10.7910/DVN/42MVDX) 的美国投票数据与 tigris R 包可用的空间合并起来 (Walker 2023,https://doi.org/10.7910/DVN/42MVDX) /github.com/walkerke/tigris)。目标是为共和党、民主党和其他人以及每个投票年度生成投票数据的形状文件。
除其他考虑因素外,合并还需要:
“qrcode”R 包 (https://cran.r-project.org/web/packages/qrcode/index.html) 生成一个描述给定 url 的 qr 代码的矩阵。基于“library(qrcode)”这些函数的输出:
qr_matrix_2_dataframe
- 将矩阵转换为数据帧格式qr_plot
- 使用圆角矩形绘制数据框中的二维码,可以生成矩形、圆形或圆角矩形(形状类型是为整个二维码定义的,或者是为单个指南和主要内容单独定义的)。qr_test_redundnacy_swatch
- 生成测试样本来评估可能过度绘制的冗余可用区域。这种格式允许将 QR 码绘制到 R 中生成的可视化中,或单独导出。