对标维密的丝袜新品牌，维诺丝袜。

昨天的帖子，其实很长知识。
我一直以为奥林匹克水立方上面的格子是乱画的

后面经过学员提醒，这个维诺图可以出现在很多场景
比如，长颈鹿的皮肤

比如树木的叶子

比如昆虫的翅膀

难道自然界真的是由数学描绘出来的么。

我们昨天的技能很没有实用性，但是确实可以产生高质量的PPT背景

library(ggvoronoi)
x <- sample(1:200,100)
y <- sample(1:200,100)
points1 <- data.frame(x, y,
                      distance = sqrt((x-100)^2 + (y-100)^2))
ggplot(points1,aes(x,y)) +
  geom_voronoi(aes(fill=distance),color="#4dffb8",size=.125) +
  scale_fill_gradient(low="#4dffb8",high="black",guide=F)+
  theme_void()

像这种背景用于展示珍贵首饰，国宝啊这些项目，完全没有任何违和感。

如果改变稍微改变一下配色，还有点外星人电脑的风范

ggplot(points1,aes(x,y)) +
  geom_voronoi(aes(fill=distance),color="#4dffb8",size=.125) +
  scale_fill_gradient(low="grey",high="black",guide=F)+
  theme_void()

深空灰体现的科技感和瑰宝绿勾现的高档感结合，越看越喜欢。

这是渐变配色的魅力，如果我们用上随机色，会出现戏剧性的改变

points2 <- data.frame(x, y,
                      distance = sample(1:200,100))
ggplot(points2,aes(x,y)) +
  geom_voronoi(aes(fill=distance),color="black",size=.125) +
  scale_fill_gradient(low="grey",high="grey20",guide=F)+
  theme_void()

这有点抽象艺术的风格哈

如果我们把颜色变得夸张一点，线条再粗一点，会怎样呢？

ggplot(points2,aes(x,y)) +
  geom_voronoi(aes(fill=distance),color="red3",size=2) +
  scale_fill_gradient(low="green",high="blue",guide=F)+
  theme_void()

在这里我看到了线条，我就想到，如果女性的丝袜用这样的纹理，会出现什么效果，会因为这个纹理而带来一丝丝小别致么？所以我又尝试了以下几个配色，为丝袜而生。

第一款是标准淡雅黑

x <- sample(1:400,150)
y <- sample(1:800,150)
points3 <- data.frame(x, y,
                      distance = sqrt((x-250)^2 + (y-450)^2))
ggplot(points3,aes(x,y)) +
  geom_voronoi(aes(fill=distance),color="black",size=2) +
  scale_fill_gradient(low="grey",high="black",guide=F)+
  theme_void()

第二款是北纬28度蓝

ggplot(points3,aes(x,y)) +
  geom_voronoi(aes(fill=distance),color="black",size=2) +
  scale_fill_gradient(low="blue",high="grey10",guide=F)+
  theme_void()

第三款是紫气东来顺

ggplot(points3,aes(x,y)) +
  geom_voronoi(aes(fill=distance),color="black",size=2) +
  scale_fill_gradient(low="purple",high="grey10",guide=F)+
  theme_void()

第四款是粉色好印象

ggplot(points3,aes(x,y)) +
  geom_voronoi(aes(fill=distance),color="black",size=2) +
  scale_fill_gradient(low="hotpink",high="grey60",guide=F)+
  theme_void()

第五款是限量迷彩绿

points4 <- data.frame(x, y,
                      distance = sample(1:800,150))
ggplot(points4,aes(x,y)) +
  geom_voronoi(aes(fill=distance),color="black",size=2) +
  scale_fill_gradient(low="khaki",high="olivedrab",guide=F)+
  theme_void()

目前只出了5款，有什么新的配色可以跟我联系。
因为这些网格都是来自于维诺图(voronoi), 所以我给未来的袜子命名为维诺的烦恼，直接对标维多利亚的秘密。
广告语也有了

维多利亚的秘密的秘密早已经不是秘密，维诺的烦恼却如影随形。维诺丝袜，开启人生新篇章。