2017-04-21 1 views

Antwort

4

Natürlich. Vielleicht:

library(tidyverse) 

expand.grid(x = seq(0, 1, .001), # make a grid of x and y values 
      y = seq(0, 1, .001)) %>% 
    filter(y < x, y > x^2) %>% # filter to rows between curves 
    ggplot(aes(x, y, fill = x + y)) + 
    geom_raster() + 
    stat_function(fun = identity, color = 'red') + # add y = x 
    stat_function(fun = function(x){x^2}, color = 'red', linetype = 'dashed') + 
    scale_fill_gradient(low = 'black', high = 'white') + 
    coord_equal() 

Verwandte Themen