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

แก้ไขตำแหน่ง label ที่ดูไม่สวยงาม

ขณะนี้ label ยังคงทับซ้อนกับเส้นใน dot plot อยู่บ้าง ให้ใช้ aesthetic hjust แบบมีเงื่อนไขเพื่อจัดตำแหน่งให้ดีขึ้น พร้อมทั้งปรับรูปแบบของ label ด้วย

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

การสื่อสารด้วยข้อมูลใน Tidyverse

ดูคอร์ส

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

  • กำหนด aesthetic hjust ในการเรียกฟังก์ชัน geom_text() ให้มีค่า 1.4 สำหรับ label ของปี "2006" และ -0.4 สำหรับกรณีอื่น โดยใช้ฟังก์ชัน ifelse()
  • เปลี่ยนขนาดฟอนต์ ฟอนต์แฟมิลี และสีเป็น 3, "Bookman" และ "gray25" ตามลำดับ ก็ยังอยู่ในการเรียก geom_text() แต่ต้องอยู่นอก aes() เนื่องจากค่าเหล่านี้ไม่ได้ขึ้นอยู่กับข้อมูล

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

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

# Save plot into an object for reuse
ilo_dot_plot <- ggplot(ilo_data) +
  geom_path(aes(x = working_hours, y = country),
            arrow = arrow(length = unit(1.5, "mm"), type = "closed")) +
    # Specify the hjust aesthetic with a conditional value
    geom_text(
          aes(x = working_hours,
              y = country,
              label = round(working_hours, 1),
              hjust = ifelse(___)
            ),
          # Change the appearance of the text
          ___ = ___,
          ___ = "___",
          ___ = "___"
          )

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