How to overlay line and bar chart?

[reygoch]

I want to create a bar chart of sin function by sampling a value on every natural number (sin 1, sin 2, etc.) but, I also want to overlay continuous sin function over that bar chart. I kind of understand why this isn't directly possible with bar chart, but maybe there is some trick that could help?

Currently I'm using "points" to represent how tall the bar would be for my disc array, but I can't replace plot $ points mempty disc with plot $ fmap plotBars $ bars [""] $ addIndexes $ fmap ( (:[]) . snd ) disc otherwise I get an error for obvious reasons.

import Graphics.Rendering.Chart.Easy
import Graphics.Rendering.Chart.Backend.Cairo
--
sinG :: IO ()
sinG = toFile def "sinus-continuous.png" $ do
  -- hi res "continuous" sin data
  let cont = [ ( x, sin x ) | x <- [ 0,0.1..50 ] :: [ Double ] ]
  -- lo res discrete sin data
  let disc = [ ( x, sin x ) | x <- [ 0,1..50] :: [ Double ] ]

  layout_title .= "Sinus Function"

  plot $ line   mempty [ cont ]
  plot $ points mempty   disc

---

This is how my discrete graph would look:

sinG :: IO ()
sinG = toFile def "sinus-discrete.png" $ do
  -- lo res discrete sin data
  let disc = [ ( x, sin x ) | x <- [ 0,1..50] :: [ Double ] ]

  layout_title .= "Sinus Function"

  plot $ fmap plotBars $ bars [""] $ addIndexes $ fmap ( (:[]) . snd ) disc

---

And here is the final result that I want to achieve (rendered in photoshop 😄):

[chrissound]

I believe a solution for this is here: https://www.reddit.com/r/haskellquestions/comments/hfl7sk/drawing_bar_charts_over_line_chart_using_chart/

plot $ plotBars <$> bars seems to be the solution