วิธีเพิ่มแถบข้อผิดพลาดลงในแผนภูมิใน r (พร้อมตัวอย่าง)

คุณสามารถใช้ไวยากรณ์พื้นฐานต่อไปนี้เพื่อเพิ่มแถบข้อผิดพลาดลงในแผนภูมิแท่งใน R:

 ggplot(df) +
    geom_bar( aes (x=x, y=y), stat=' identity ') +
    geom_errorbar( aes (x=x, ymin=y-sd, ymax=y+sd), width= 0.4 )

ตัวอย่างต่อไปนี้แสดงวิธีใช้ฟังก์ชันนี้ในทางปฏิบัติ

ตัวอย่างที่ 1: เพิ่มแถบข้อผิดพลาดโดยใช้ข้อมูลสรุป

สมมติว่าเรามีกรอบข้อมูลต่อไปนี้ใน R ที่แสดงสถิติสรุปสำหรับห้าหมวดหมู่:

 #create data frame
df <- data. frame (category=c('A', 'B', 'C', 'D', 'E'),
                 value=c(12, 17, 30, 22, 19),
                 sd=c(4, 5, 7, 4, 2))

#view data frame
df

  category value sd
1 to 12 4
2 B 17 5
3 C 30 7
4 D 22 4
5 E 19 2

เราสามารถใช้โค้ดต่อไปนี้เพื่อสร้างแผนภูมิแท่งที่มีแถบข้อผิดพลาดเพื่อแสดงภาพข้อมูลนี้:

 library (ggplot2)

#create bar plot with error bars
ggplot(df) +
    geom_bar( aes (x=category, y=value), stat=' identity ', fill=' steelblue ') +
    geom_errorbar( aes (x=category, ymin=value-sd, ymax=value+sd), width= 0.4 )

คุณสามารถใช้อาร์กิวเมนต์ต่อไปนี้เพื่อเปลี่ยนรูปลักษณ์ของแถบข้อผิดพลาดได้:

• width : ความกว้างของแถบข้อผิดพลาด
• ขนาด : ความหนาของแถบค่าคลาดเคลื่อน
• color : สีของแถบข้อผิดพลาด

ตัวอย่างเช่น:

 library (ggplot2)

#create bar plot with custom error bars
ggplot(df) +
    geom_bar( aes (x=category, y=value), stat=' identity ', fill=' steelblue ') +
    geom_errorbar( aes (x=category, ymin=value-sd, ymax=value+sd),
                  width= 0.3 , size= 2.3 , color=' red ')

ตัวอย่างที่ 2: เพิ่มแถบข้อผิดพลาดโดยใช้ข้อมูลดิบ

สมมติว่าเรามีกรอบข้อมูลต่อไปนี้ที่แสดงข้อมูลดิบสำหรับห้าหมวดหมู่ที่แตกต่างกัน:

 #make this example reproducible
set. seeds (0)

#create data frame
df <- data. frame (category=rep(c('A', 'B', 'C', 'D', 'E'), each= 10 ),
                 value=runif(50, 10, 20))

#view first six rows of data frame
head(df)

  category value
1 A 18.96697
2 A 12.65509
3 A 13.72124
4 A 15.72853
5 A 19.08208
6 A 12.01682

รหัสต่อไปนี้แสดงวิธีการสรุปข้อมูลและสร้างแผนภูมิแท่งที่มีแถบข้อผิดพลาด:

 library (dplyr)
library (ggplot2)

#summarize mean and sd for each category
df_summary <- df %>%
  group_by(category) %>%
  summarize(mean=mean(value),
            sd=sd(value))

#view summary data
df_summary

# A tibble: 5 x 3
  category mean sd
       
1 A 16.4 2.80
2B 14.9 2.99
3 C 14.6 3.25
4 D 15.2 2.48
5 E 15.8 2.41 

#create bar plot with error bars
ggplot(df_summary) +
    geom_bar( aes (x=category, y=mean), stat=' identity ', fill=' steelblue ') +
    geom_errorbar( aes (x=category, ymin=mean-sd, ymax=mean+sd), width= 0.3 , color=' red ') 

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

บทช่วยสอนต่อไปนี้จะอธิบายวิธีสร้างการแสดงภาพข้อมูลทั่วไปอื่นๆ ใน R:

วิธีการพล็อต boxplot หลายอันใน R
วิธีการพล็อตฮิสโตแกรมหลายอันใน R
วิธีการวาดหลายบรรทัดใน R