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 中產生的視覺化中,或單獨匯出。