経時y軸に複数の変数をプロット

Question

Iの2つのレート及びこれらの正確な速度の差から成る時間枠02.01.2007-30.12.2016、から次のデータセットを有する：

head(risk_free_rate_comparison) 

    Dates `  Swap rate` `Sovereign bond yield rate` `Swap rate - Sovereign bond yield rate` 
    <dttm>   <dbl>  <dbl>      <dbl> 
1 2007-01-02  408.9  380.9568     27.9432 
2 2007-01-03  410.3  380.4535     29.8465 
3 2007-01-04  409.2  381.3993     27.8007 
4 2007-01-05  414.3  385.0663     29.2337 
5 2007-01-08  413.1  384.2545     28.8455 
6 2007-01-09  415.5  384.9770     30.5230 

Iをx軸に各年の終わりを表示するために、x軸に日付をプロットする：2007年〜2016年。

そしてデータポイントを通過する線でbasispointsに示される3つの他の変数、y軸上を、持っています。例えば、ソリッド1つ、破線1つ、点線1つのように、異なる線種を持つことはいいでしょう。 最後に、変数名を示すプロットの横に伝説がありたいと思います。

ちょうどグリッドなし多かれ少なかれ、この例のように：簡単かつ迅速にプロットするために

Answer 1

ggplot2を使用しています。

library(ggplot2) 
library(reshape2) 
d <- melt(risk_free_rate_comparison, "Dates") 
d$Dates <- as.Date(d$Dates) 
ggplot(d, aes(Dates, value, color = variable, linetype = variable)) + 
    geom_line() + 
    labs(color = NULL, linetype = NULL) + 
    theme_classic() + 
    theme(legend.position = "bottom") 

reshape2::meltトランスフォーム（データをグループ化する）。この場合はDateで、x軸に配置します。 theme_classic()はグリッドのないテーマggplot2です。