# NOT RUN {
library(ggsolvencyii)
library(ggplot2)
sii_z_ex3_data[sii_z_ex3_data$description == "SCR", ]
ggplot() + geom_sii_riskconnection(data = sii_z_ex3_data, mapping = aes(
comparewithid = comparewithid,
x = time,
y = ratio,
id = id,
),
color = "red",
lwd = 0.7,
arrow = arrow()
)
# }
Run the code above in your browser using DataLab