How can I colour the area between y=0 and the datapoints in green? At the moment it is colouring the whole y [0:1]
Variable <- c(1,2,3,4,5,6,7) value &