Отобразите функцию, разделенную интервалами, и построите ее как кусочно-постоянный график

Сначала мне жаль, что я не могу так хорошо описать свою проблему, надеюсь, вы понимаете.

У меня есть математическая функция на графике (рисунок один), и я хочу описать процесс, в котором я использовал этот график. Сначала я разделил все это на интервалы, как показано на второй картинке. Затем я написал программу, которая повторяла каждый интервал и вызывала функцию в начале каждого интервала и возвращала приблизительное и округленное значение. Частота интервала устанавливается для эксперимента, но может быть легко отрегулирована. Теперь у меня есть набор округленных чисел, равный количеству интервалов, которые я хочу отобразить на угловом графике, как показано на третьем рисунке.

Я не уверен, описывают ли эти три графика мою процедуру, или это обычная проблема с простым решением или нет. Я использую rstudio как инструмент, чтобы описать это, и у меня есть некоторый опыт работы с ggplot2, но я открыт, если вы предложите мне использовать другую библиотеку или другой подход.

Вот несколько примеров данных для функции (-0.06x ^ 3) + (0.43x ^ 2) -x + 3:

myTable <- "ID Data Rounded
        1     2.973  3
        2     2.976  3
        3     2.970  3
        4     2.978  3
        5     2.976  3
        6     2.973  3
        7     2.630  2.6
        8     2.630  2.6
        9     2.633  2.6
       10     2.632  2.6
       11     2.630  2.6
       12     2.273  2.3
       13     2.273  2.3
       14     2.273  2.3
       15     2.273  2.3
       16     2.179  2.2
       17     2.179  2.2
       18     2.179  2.2
       19     2.179  2.2
       20     2.179  2.2
       21     2.179  2.2
       22     2.179  2.2
       23     2.179  2.2
       24     2.179  2.2
       25     2.179  2.2
       26     2.179  2.2
       27     2.179  2.2
       28     2.179  2.2
       29     2.179  2.2
       30     2.179  2.2
       31     2.073  2.1
       32     2.073  2.1
       33     2.073  2.1
       34     2.073  2.1
       35     2.073  2.1
       36     2.073  2.1
       37     2.076  2.1
       38     2.073  2.1
       39     2.073  2.1
       40     1.886  1.9
       41     1.886  1.9
       42     1.886  1.9
       43     1.886  1.9
       44     1.886  1.9
       45     1.628  1.6
       46     1.628  1.6
       47     1.631  1.6
       48     1.628  1.6
       49     1.630  1.6
       50     1.628  1.6
       51     1.631  1.6
       52     1.631  1.6
       53     1.631  1.6"
Data <- read.table(text=myTable, header = TRUE)