WhatNots

WhatNots - ข้อมูลและเครื่องมือจาก MASC Data Visualization, CIM, Warwick

Whatnots แบ่งปันโค้ด R และไฟล์ข้อมูลบางส่วน แต่ไม่ใช่ทั้งหมดที่ใช้ในการสอน MASC Data Visualization ของเรา (https://warwick.ac.uk/fac/cross_fac/cim/apply-to-study/masters-programmes/visualisation/) .

อาจนำไปใช้ในการสอน การวิจัย หรือการเรียนรู้ของคุณเอง สคริปต์และไฟล์จะถูกแชร์ 'ตามสภาพ' โดยไม่มีความรับผิดชอบ และที่สำคัญ โดยไม่ต้องเปิดเผยบริบทของวิธีที่เราใช้ในการสอน กรุณาติดต่อหากคุณพบข้อบกพร่องใด ๆ

ในบางกรณี การแสดงภาพด้านล่างนี้เป็นตัวอย่างของสิ่งที่สามารถสร้างได้โดยใช้ข้อมูล แทนที่จะถูกสร้างขึ้นโดยฟังก์ชันเหล่านั้น นักเรียนได้ใช้ข้อมูลนี้สำหรับโครงงานการแสดงภาพในโมดูลของเรา

1. ค้นหาข้อมูลอุณหภูมิจาก https://berkeleyearth.org/

การแสดงภาพสภาพภูมิอากาศจำนวนมากใช้ข้อมูลจาก 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 ดำเนินการตามขั้นตอนเหล่านี้ ดังนั้นจึงง่ายต่อการแก้ไขข้อบกพร่องและแก้ไข และเรียกใช้ในโหมดแบตช์ได้ง่ายขึ้น

2. ข้อมูลการลงคะแนนเสียงเลือกตั้งของสหรัฐอเมริกาเป็นไฟล์รูปร่าง (พ.ศ. 2519 ถึง 2563)

ไฟล์รูปร่างเอาต์พุต – elect_states.shp - มี:

• แต่ละแถวเป็นสถานะ
• คอลัมน์ได้แก่
  • รหัส fips (ตัวระบุตัวเลขเฉพาะสำหรับแต่ละรัฐ)
  • ชื่อรัฐ
  • ตัวอักษรสองตัวชื่อย่อของรัฐ
  • คะแนนเสียง (จำนวนสัมบูรณ์และสัดส่วน) ทุกๆ ปีที่สี่ตั้งแต่ปี พ.ศ. 2519 ถึง พ.ศ. 2563
  • โดยฝ่ายที่มีอำนาจเหนือกว่า (รีพับลิกันและเดโมแครต) หรือ "อื่น ๆ "
  • centroid (lat/long) ของแต่ละสถานะสำหรับการติดฉลาก
  • sf เชิงพื้นที่ 'เรขาคณิต' (ประเภท: MULTIPOLYGON) ในคอลัมน์สุดท้าย

ไฟล์นี้สร้างขึ้นโดยสคริปต์ที่รวมข้อมูลการลงคะแนนเสียงของสหรัฐอเมริกาจาก MIT Election Data and Science Lab (https://doi.org/10.7910/DVN/42MVDX) เข้ากับพื้นที่ที่มีอยู่ในแพ็คเกจ tigris R (Walker 2023, https:/ /github.com/walkerke/tigris) เป้าหมายคือการสร้างไฟล์ข้อมูลการลงคะแนนเสียงสำหรับพรรครีพับลิกัน เดโมแครต และอื่นๆ และสำหรับปีการลงคะแนนเสียงแต่ละปี

ท่ามกลางข้อควรพิจารณาอื่น ๆ การผสานต้อง:

• การลบข้อมูลการลงคะแนนเสียงและข้อมูลเชิงพื้นที่ที่ไม่เกี่ยวข้องกับรัฐ (เช่น ดินแดนโพ้นทะเล ด้านล่างข้อมูลการลงคะแนนเสียงของรัฐ)
• การรวมคะแนนเสียงสำหรับพรรคอื่นที่ไม่ใช่พรรครีพับลิกันและเดโมแครต

3. การวางแผนและการจัดรูปแบบโค้ด QR

แพ็คเกจ 'qrcode' R (https://cran.r-project.org/web/packages/qrcode/index.html) สร้างเมทริกซ์ที่อธิบายโค้ด qr สำหรับ URL ที่กำหนด ขึ้นอยู่กับผลลัพธ์ของ 'library(qrcode)' ฟังก์ชันเหล่านี้:

1. qr_matrix_2_dataframe - แปลงเมทริกซ์เป็นรูปแบบเฟรมข้อมูล
2. qr_plot - พล็อตโค้ด QR จากกรอบข้อมูลด้วยสี่เหลี่ยมมุมมนซึ่งสามารถสร้างสี่เหลี่ยม วงกลม หรือสี่เหลี่ยมมุมมนได้ (ประเภทรูปร่างถูกกำหนดไว้สำหรับโค้ด QR ทั้งหมดหรือกำหนดแยกกันสำหรับคำแนะนำแต่ละรายการและเนื้อหาหลัก)
3. qr_test_redundnacy_swatch - สร้างตัวอย่างทดสอบเพื่อประเมินพื้นที่ใช้งานซ้ำซ้อนที่อาจมีการวางแผนมากเกินไป

รูปแบบนี้อนุญาตให้ลงจุดโค้ด QR ลงในการแสดงภาพที่สร้างใน R หรือส่งออกด้วยตัวเอง

4. เพิ่มเติม

5. เพิ่มเติม