等效于Wolfram Alpha的等高线图

Question

我正在尝试为非常特定的功能创建轮廓图。通过ggplot2获得的轮廓图与Wolfram Alpha的图非常相似，尽管我没有获得与后者相同的“网格状”（白色条纹）行为。

如果不确定那些值是多少，如何获得类似的白色条纹？我应该增加点数吗？

library(tidyverse)

v <- function(r, q){
  value <- pmax(0, 3 * q - 1 + r - 3*r*q)^2 +
    pmax(0, r - 3 * r * q)^2 +
    pmax(0, -2 + 2*r + 2*q - 2*r*q)^2+
    pmax(0, 2*q - 3*r*q)^2
  return(value)
}
  
r <- q <- seq(0, 1, 0.001)
vertices <- expand_grid(r, q)

vertices %>% mutate(v = v(r, q)) %>% 
  ggplot(aes(x = r, y = q, z = v)) +
  geom_contour_filled()