물론이야. 아마도:
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()
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다