( 100分 )
假想某只债券在上海证券交易所交易,其面值为100元,票面利率为4%,每半年支付一次利息,2025年4月11日到期。,并假设在该期间债券的收益率维持在3%的水平不变。
(1)编写函数计算该债券于2019年11月13日至2022年11月13日期间每天的净价、全价和应计利息的变化,并以数据框的形式给出。
(2)并用ggplot2画出债券价、全价和应计利息的变化。
# 加载必要的库
library(lubridate)
library(dplyr)
library(ggplot2)
# 定义计算债券净价、全价和应计利息的函数
bond_price <- function