linechart

So I have a chart plotting traffic vs. date and rate vs. date. I'm trying to shade the area between the two lines. However, I want to shade it a different color depending on which line is higher. The following works without that last requirement: var area = d3.svg.area() .x0(function(d) { return x(d3.time.format("%m/%d/%Y").parse(d.original.date)); }) .x1(function(d) { return x(d3.time.format("%m/%d/%Y").parse(d.original.date)); }) .y0(function(d) { return y(parseInt(d.original.traffic)); }) .y1(function(d) { return y(parseInt(d.original.rate)); }) However, adding that last requirement, I

I have double-y-axis chart made in Excel . In Excel it requires only basic skills. What I'd like to do is to replicate this chart using the ggplot2 library in R . I have already done this, but I need to plot Response on 2nd-y-axis . I enclose reproducible code I've used: #Data generation Year <- c(2014, 2015, 2016) Response <- c(1000, 1100, 1200) Rate <- c(0.75, 0.42, 0.80) df <- data.frame(Year, Response, Rate) #Chart library(ggplot2) ggplot(df) + geom_bar(aes(x=Year, y=Response),stat="identity", fill="tan1", colour="sienna3")+ geom_line(aes(x=Year, y=Rate),stat="identity")+ geom_text(aes