วิธีสร้างแปลงแบบเคียงข้างกันใน ggplot2

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

 #install ggplot2 and patchwork packages
install.packages(' ggplot2 ')
install.packages(' patchwork ')

#load the packages 
library(ggplot2)
library(patchwork)

บทช่วยสอนนี้แสดงตัวอย่างหลายประการของการใช้แพ็คเกจเหล่านี้เพื่อสร้างการลงจุดแบบเคียงข้างกัน

ตัวอย่างที่ 1: สองแปลงเคียงข้างกัน

รหัสต่อไปนี้แสดงวิธีสร้างแปลงสองรายการแบบเคียงข้างกันโดยใช้ชุดข้อมูล ม่านตา ในตัวของ R:

 #create box plot
plot1 <- ggplot(iris, aes(x = Species, y = Sepal.Length)) +
  geom_boxplot()

#create density plot
plot2 <- ggplot(iris, aes(x = Sepal.Length, fill = Species)) +
  geom_density(alpha = 0.8)

#display plots side by side
plot1 + plot2 

ตัวอย่างที่ 2: สามแปลงเคียงข้างกัน

รหัสต่อไปนี้แสดงวิธีสร้างแปลงสามแบบเคียงข้างกันโดยใช้ชุดข้อมูล ม่านตา ในตัวของ R:

 #create box plot
plot1 <- ggplot(iris, aes(x = Species, y = Sepal.Length)) +
  geom_boxplot()

#create density plot
plot2 <- ggplot(iris, aes(x = Sepal.Length, fill = Species)) +
  geom_density(alpha = 0.7)

#create scatterplot 
plot3 <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width)) +
  geom_point()

#display three plots side by side
plot1 + plot2 + plot3

ตัวอย่างที่ 3: สองแปลงที่ซ้อนกัน

รหัสต่อไปนี้แสดงวิธีการสร้างพล็อตแบบเรียงซ้อนสองอัน โดยอันหนึ่งอยู่ด้านบนสุดของอีกอัน:

 #create box plot
plot1 <- ggplot(iris, aes(x = Species, y = Sepal.Length)) +
  geom_boxplot()

#create density plot
plot2 <- ggplot(iris, aes(x = Sepal.Length, fill = Species)) +
  geom_density(alpha = 0.7)

#display plots stacked on top of each other
plot1 / plot2 

ตัวอย่างที่ 4: เพิ่มชื่อเรื่อง คำบรรยาย และคำอธิบายภาพ

รหัสต่อไปนี้แสดงวิธีการเพิ่มชื่อเรื่อง คำบรรยาย และคำอธิบายภาพลงในโครงเรื่อง:

 #create box plot
plot1 <- ggplot(iris, aes(x = Species, y = Sepal.Length)) +
  geom_boxplot() +
  ggtitle('Boxplot')

#create density plot
plot2 <- ggplot(iris, aes(x = Sepal.Length, fill = Species)) +
  geom_density(alpha = 0.7) +
  ggtitle('Density Plot')

#display plots side by side with title, subtitle, and captions
patchwork <- plot1 + plot2 

patchwork + plot_annotation(
  title = ' This is a title ',
  subtitle = ' This is a subtitle that describes more information about the plots ',
  caption = ' This is a caption '
)

คุณสามารถค้นหาบทช่วยสอน R เพิ่มเติมได้ ที่นี่