วิธีเพิ่มตัวยกและตัวห้อยลงในแปลงใน r

คุณสามารถใช้ไวยากรณ์พื้นฐานต่อไปนี้เพื่อเพิ่มตัวยกหรือตัวห้อยลงในพล็อตใน R:

 #define expression with superscript
x_expression <- expression(x^ 3 ~ variable ~ label)

#define expression with subscript
y_expression <- expression(y[ 3 ] ~ variable ~ label)

#add expressions to axis labels
plot(x, y, xlab = x_expression, ylab = y_expression)

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

ตัวอย่างที่ 1: เพิ่มเลขยกกำลังให้กับป้ายกำกับแกน

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

 #define data
x <- c(1, 2, 3, 4, 5, 6, 7, 8)
y <- c(9, 12, 14, 16, 15, 19, 26, 29)

#define x and y-axis labels with superscripts
x_expression <- expression(x^3 ~ variable ~ label)
y_expression <- expression(y^3 ~ variable ~ label)

#createplot
plot(x, y, xlab = x_expression, ylab = y_expression)

โปรดทราบว่าแกน X และ Y ต่างก็มีเลขชี้กำลังอยู่ในป้ายกำกับ

เลขชี้กำลังของแกน y ถูกตัดออกไปเล็กน้อยในโครงเรื่อง เพื่อให้ฉลากเข้าใกล้แกนของพล็อตมากขึ้น เราสามารถใช้ฟังก์ชัน par() ใน R:

 #adjust by values (default is (3, 0, 0))
by(mgp=c(2.5, 1, 0))

#createplot
plot(x, y, xlab = x_expression, ylab = y_expression) 

หมายเหตุ : เราเลือก “3” เป็นค่าสุ่มเพื่อวางเป็นเลขชี้กำลัง คุณสามารถวางค่าตัวเลขหรืออักขระเป็นตัวยกได้ตามใจชอบ

ตัวอย่างที่ 2: เพิ่มตัวห้อยให้กับป้ายกำกับแกน

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

 #define data
x <- c(1, 2, 3, 4, 5, 6, 7, 8)
y <- c(9, 12, 14, 16, 15, 19, 26, 29)

#define x and y-axis labels with superscripts
x_expression <- expression(x[3] ~ variable ~ label)
y_expression <- expression(y[3] ~ variable ~ label)

#createplot
plot(x, y, xlab = x_expression, ylab = y_expression) 

ตัวอย่างที่ 3: การเพิ่มตัวยกและตัวห้อยภายในพล็อต

รหัสต่อไปนี้แสดงวิธีการเพิ่มตัวยกให้กับองค์ประกอบข้อความภายในเส้นทาง:

 #define data
x <- c(1, 2, 3, 4, 5, 6, 7, 8)
y <- c(9, 12, 14, 16, 15, 19, 26, 29)

#createplot
plot(x, y)

#define label with superscript to add to plot
R2_expression <- expression(paste(" ", R^2 , "= ", .905))

#add text to plot
text(x = 2, y = 25, label = R2_expression)

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

วิธีสร้าง Scatterplot ใน R พร้อมตัวแปรหลายตัว
วิธีการสร้างพล็อตกล่องแบบเคียงข้างกันใน R
วิธีวางซ้อนแปลงใน R