เริ่มต้นใช้งานเริ่มต้นใช้งานได้ฟรี

การสรุปข้อมูล

ขณะนี้ข้อมูลของเรายังอยู่ในรูปแบบหนึ่งแถวต่อหนึ่งคนต่อหนึ่งคำถาม แต่เพื่อให้นำไปสร้างกราฟได้ เราต้องแปลงให้แต่ละแถวแทนคำถามหนึ่งข้อพร้อมข้อมูลสรุปของคำตอบสำหรับคำถามนั้น

แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร

ข้อมูลเชิงหมวดหมู่ใน Tidyverse

ดูคอร์ส

คำแนะนำการฝึกหัด

  • สรุปชุดข้อมูลให้เหลือสองคอลัมน์ ได้แก่ คอลัมน์คำถาม (คือ response_var) และคอลัมน์ใหม่ชื่อ perc_rude ซึ่งเป็นค่าเฉลี่ยของคอลัมน์ rude สำหรับแต่ละคำถาม
  • บันทึกผลลัพธ์ไว้ในตัวแปร rude_behaviors แล้วแสดงชุดข้อมูลใหม่ของคุณ

แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ

ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์

rude_behaviors <- gathered_data %>%
    mutate(response_var = str_replace(response_var, '.*rude to ', '')) %>%
    mutate(response_var = str_replace(response_var, 'on a plane', '')) %>%
	# Remove rows that are NA in the value column
	filter(!is.na(value)) %>%
    mutate(rude = if_else(value %in% c("No, not rude at all", "No, not at all rude"), 0, 1)) %>%
    # Group by response_var
    ___ %>%
    # Create perc_rude, the percent considering each behavior rude
    ___

rude_behaviors
แก้ไขและรันโค้ด