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

การพล็อตกราฟ Investment Grade Spread

นอกจากอัตราปลอดความเสี่ยงที่เปลี่ยนแปลงตามเวลาแล้ว อีกหนึ่งปัจจัยที่กำหนดผลตอบแทนพันธบัตรภาคเอกชนคือขนาดของ credit spread ซึ่งก็เปลี่ยนแปลงตามเวลาเช่นกัน วิธีหนึ่งในการสังเกต spread นี้คือการเปรียบเทียบผลตอบแทนของพันธบัตรระดับลงทุนที่ได้รับการจัดอันดับสูงสุด (อันดับ Aaa) กับผลตอบแทนของพันธบัตรระดับลงทุนที่ได้รับการจัดอันดับต่ำสุด (อันดับ Baa)

Investment Grade (IG) Spread สะท้อนให้เห็นว่าตลาดมองว่าการลงทุนในพันธบัตรมีความเสี่ยงมากน้อยเพียงใดในช่วงเวลาหนึ่ง ยิ่ง IG spread กว้างมากเท่าใด นักลงทุนยิ่งต้องการผลตอบแทนชดเชยความเสี่ยงมากขึ้นเท่านั้น

ในแบบฝึกหัดนี้ จะได้พล็อตกราฟ IG spread ตั้งแต่เดือนมกราคม 2006 ถึงเดือนกันยายน 2016 โดยออบเจ็กต์ spread เก็บข้อมูลผลตอบแทนของ Aaa และ Baa (ที่สร้างขึ้นด้วยแพ็กเกจ quantmod)

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

การประเมินมูลค่าและวิเคราะห์พันธบัตรด้วย R

ดูคอร์ส

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

  • ตรวจสอบหกแถวแรกและหกแถวสุดท้ายของ spread โดยใช้ head() และ tail()
  • สร้างคอลัมน์ diff ใน spread ให้เท่ากับผลต่างระหว่างผลตอบแทน Baa (baa) และผลตอบแทน Aaa (aaa) แล้วแปลงเป็นหน่วยจุดเปอร์เซ็นต์ (* 100)
  • ใช้ plot() เพื่อดูการเปลี่ยนแปลงของ spread ตามเวลา โดยกำหนดอาร์กิวเมนต์ x เป็น spread$date และ y เป็น spread$diff

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

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

# Examine first and last six elements in spread
head(___)
tail(___)

# Calculate spread$diff
spread$diff <-

# Plot spread
plot(x = ___,
     y = ___,
     type = "l",
     xlab = "Date",
     ylab = "Spread (bps)",
     col = "red",
     main = "Baa - Aaa Spread")
แก้ไขและรันโค้ด