วิธีสร้าง manual legend ใน ggplot2 (พร้อมตัวอย่าง)

บ่อยครั้งที่คุณอาจต้องการเพิ่มคำอธิบายแบบแมนนวลให้กับพล็อตใน ggplot2 ด้วยสี ป้ายกำกับ ชื่อ ฯลฯ ที่กำหนดเอง

โชคดีที่ทำได้โดยใช้ฟังก์ชัน scale_color_manual() และตัวอย่างต่อไปนี้จะแสดงวิธีการ

ตัวอย่าง: การสร้างคำอธิบายแผนภูมิด้วยตนเองใน ggplot2

รหัสต่อไปนี้แสดงวิธีการพล็อตบรรทัดการถดถอยที่ติดตั้งไว้สามบรรทัดในพล็อตใน ggplot2 พร้อมด้วยคำอธิบายแผนภูมิแบบกำหนดเอง:

 library (ggplot2)

#create data frame
df <- data. frame (x=c(1, 2, 2, 3, 5, 6, 8, 8, 9, 9, 10, 11, 12, 15, 15),
                 y=c(2, 3, 3, 4, 5, 5, 6, 7, 8, 8, 9, 10, 16, 19, 28))

#create plot with three fitted regression models
ggplot(df, aes(x, y)) +
  geom_point() +
  geom_smooth(se= FALSE , aes(color=' Linear ')) +
  geom_smooth(formula=y~poly(x, 2), se= FALSE , aes(color=' Quadratic ')) +
  geom_smooth(formula=y~poly(x, 3), se= FALSE , aes(color=' Cubic ')) +
  scale_color_manual(name=' Regression Model ',
                     breaks=c(' Linear ', ' Quadratic ', ' Cubic '),
                     values=c(' Cubic '=' pink ', ' Quadratic '=' blue ', ' Linear '=' purple ')) 

การใช้ฟังก์ชัน scale_color_manual() ทำให้เราสามารถระบุลักษณะต่อไปนี้ของคำอธิบาย:

• name : ชื่อเรื่องของตำนาน
• ตัวแบ่ง : ป้ายกำกับในตำนาน
• ค่า : สีในตำนาน

โปรดทราบว่าเรายังสามารถใช้ฟังก์ชัน theme() เพื่อเปลี่ยนขนาดตัวอักษรขององค์ประกอบคำอธิบาย:

 library (ggplot2)

#create data frame
df <- data. frame (x=c(1, 2, 2, 3, 5, 6, 8, 8, 9, 9, 10, 11, 12, 15, 15),
                 y=c(2, 3, 3, 4, 5, 5, 6, 7, 8, 8, 9, 10, 16, 19, 28))

#create plot with three fitted regression models
ggplot(df, aes(x, y)) +
  geom_point() +
  geom_smooth(se= FALSE , aes(color=' Linear ')) +
  geom_smooth(formula=y~poly(x, 2), se= FALSE , aes(color=' Quadratic ')) +
  geom_smooth(formula=y~poly(x, 3), se= FALSE , aes(color=' Cubic ')) +
  scale_color_manual(name=' Regression Model ',
                     breaks=c(' Linear ', ' Quadratic ', ' Cubic '),
                     values=c(' Cubic '=' pink ', ' Quadratic '=' blue ', ' Linear '=' purple '))+
 theme(legend. title =element_text(size= 20 ),
       legend. text =element_text(size= 14 ))

โปรดทราบว่าขนาดตัวอักษรของป้ายกำกับชื่อและคำอธิบายภาพเพิ่มขึ้น

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีดำเนินการทั่วไปอื่นๆ ใน ggplot2:

วิธีเปลี่ยนตำแหน่งคำอธิบายแผนภูมิใน ggplot2
วิธีเปลี่ยนขนาดคำอธิบายแผนภูมิใน ggplot2
วิธีเปลี่ยนชื่อคำอธิบายใน ggplot2
วิธีเปลี่ยนป้ายกำกับคำอธิบายใน ggplot2