Plotting the response curves of the Robyn Allocator Output

[apoorvabc]

Hello Team,

I am tying to plot the response curves for the allocation period and using the piece of code below. I am assuming this will be for the entire duration of the allocation period and not just per week as shown in the image below. What is the best way to capture the initial and bounded values shown on the plot? Also, is there a way I can extract these values separately to plot two different graphs?

    scurve <- list()
    scurve[["data"]] <- AllocatorCollect$plots$p3$data
    plot_data <- scurve[["data"]][, c("channel", "spend", "total_response")]