嘿,我是R的新手并且有一个问题
我有以下数据集由12个不同的债券组成:
dput(Synthetic_bond_creation)
structure(list(`Days to maturity` = c(1419, 202, 1565, 1182,
2080, 1036, 811, 2436, 1296, 609, 1792, 986), `Yield to maturity` = c(2.699,
0.487, 4.019, 1.421, 2.394, 1.366, 1.107, 2.717, 1.592, 0.988,
2.151, 2.278)), .Names = c("Days to maturity", "Yield to maturity"
), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA,
-12L))
到目前为止,我得到了以下内容:
library(readxl)
Synthetic_bond_creation <- read_excel("~/UZH/Bachelorarbeit/Synthetic bond
creation.xlsx")
View(Synthetic_bond_creation)
plot(Synthetic_bond_creation$`Days to maturity`,
Synthetic_bond_creation$`Yield to maturity`, xlab = "Days to maturity", ylab
= "Yield to maturity in %", main = "Bonds of 'Societe Generale SA' on
13.03.2013")
abline(lm (Synthetic_bond_creation$`Yield to maturity` ~
Synthetic_bond_creation$`Days to maturity`))
现在我想构建一个合成的5年期债券,这意味着我需要在回归线上的值为x = 1300的到期日和相应的到期收益率y值,即1.951930573舍入到1.95。
我尝试使用:
abline(v=1300) +
abline(h=1.95)
但是我想调整线条,使它们在回归线处结束并且不通过它。此外,如果回归线截距处的x和y值出现在相应的轴
,那将是很好的我试图&#34;画&#34;我的目标如下:
答案 0 :(得分:2)
您可以在绘图和下划线后添加线段。
segments(x0=1300,y0=0,y1=1.95) #vertical line
segments(x0=0, y0=1.95, x1=1300) #horizontal line
默认值为x,y表示起始点(x0,y0)和终点(x1,y1),但由于它们是水平和垂直的,因此分别只更改x或y。您可以照常更改线条类型和颜色,即lty
或col
。
你可能不得不调整两端的值,但你明白了。