ラベルによって色が変わる折れ線グラフを書きたい


ある行に値とそのラベルがそれぞれ保存されているデータを折れ線グラフとして表示したいです。  
そのとき、値ごとに振られているラベルで色を分けて表示したいです。

下図は、作りたいグラフのイメージ図です。  
[![書きたいグラフのイメージ](https://i.stack.imgur.com/lBbPh.png)](https://i.stack.imgur.com/lBbPh.png)

横軸がデータのインデックス、縦軸がデータの値、線の色がデータのラベルという対応にしたいと考えています。  
このようなグラフを、PythonかRで作るとすれば、どのようにスクリプトを記述すればいいでしょうか?

参考にしたサイト  
[データの値で色を変える方法](https://matplotlib.org/2.0.2/examples/pylab_examples/multicolored_line.html)  
[散布図で色を変える方法](https://teratail.com/questions/130617)




以下Rとggplot2パッケージ(tidyverseパッケージに含まれる)による例です。

[code]

    library(tidyverse)
    
    dt <- data.frame(
      x = 1:4, 
      y = c(4, 2, 3, 4),
      label = c("a", "b", "a", "a"),
      stringsAsFactors = FALSE
    )
    
    print(dt)
    #>   x y label
    #> 1 1 4     a
    #> 2 2 2     b
    #> 3 3 3     a
    #> 4 4 4     a
    
    dt %>% 
      ggplot() + 
      # group = 1としておくことで1本の線としてつなげる
      # group optionを抜くとlabelごとに線が引かれます
      geom_line(aes(x = x, y = y, group = 1, colour = label))
    
[/code]

[![画像の説明をここに入力](https://i.stack.imgur.com/0y5kq.png)](https://i.stack.imgur.com/0y5kq.png)




以下Rとggplot2パッケージ(tidyverseパッケージに含まれる)による例です。

[code]

    library(tidyverse)
    
    dt <- data.frame(
      x = 1:4, 
      y = c(4, 2, 3, 4),
      label = c("a", "b", "a", "a"),
      stringsAsFactors = FALSE
    )
    
    print(dt)
    #>   x y label
    #> 1 1 4     a
    #> 2 2 2     b
    #> 3 3 3     a
    #> 4 4 4     a
    
    dt %>% 
      ggplot() + 
      # group = 1としておくことで1本の線としてつなげる
      # group optionを抜くとlabelごとに線が引かれます
      geom_line(aes(x = x, y = y, group = 1, colour = label))
    
[/code]

[![画像の説明をここに入力](https://i.stack.imgur.com/0y5kq.png)](https://i.stack.imgur.com/0y5kq.png)

