การปรับแต่งกราฟให้สวยงาม
โค้ดด้านล่างสร้างกราฟแบบโต้ตอบที่แสดงความสุขระดับชาติเทียบกับดัชนีการสนับสนุนทางสังคม โดยใช้สัญลักษณ์การพล็อตแทนการจัดประเภทรายได้ของแต่ละประเทศ
happy %>%
plot_ly(x = ~social.support, y = ~happiness,
hoverinfo = "text",
text = ~paste("Country: ", country)) %>%
add_markers(symbol = ~income, symbols = c("circle-open", "square-open", "star-open", "x-thin-open"))
ให้แก้ไขข้อมูล hover และป้ายกำกับแกน เพื่อให้ผู้อ่านเข้าใจข้อมูลได้ง่ายขึ้น
โหลด plotly และชุดข้อมูล happy ไว้ให้แล้ว
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
การสร้างภาพข้อมูลเชิงโต้ตอบด้วย plotly ใน R ระดับกลาง
คำแนะนำการฝึกหัด
- เพิ่มข้อมูล hover สำหรับกลุ่ม
income, คะแนนhappiness, และดัชนีsocial.support - ใช้
round(<variable>, 2)เพื่อปัดเศษตัวแปรตัวเลขทั้งหมดเป็นทศนิยม 2 ตำแหน่งในข้อมูล hover - เปลี่ยนป้ายกำกับแกน x เป็น
"Social support index"และป้ายกำกับแกน y เป็น"National happiness score"
แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ
ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์
# Complete the following code to polish the plot
happy %>%
plot_ly(x = ~social.support, y = ~happiness,
hoverinfo = "text",
text = ~paste("Country: ", country,
"
Income: ", ___,
"
Happiness: ", ___,
"
Social support: ", ___)) %>%
add_markers(symbol = ~income,
symbols = c("circle-open", "square-open", "star-open", "x-thin-open")) %>%
layout(xaxis = ___,
yaxis = ___)