咸鱼楼主最近打算用echarts4r包来画花，使用嵌套环形图的形式，最里面第一层当做花蕊，第二层当做花瓣，粗略代码如下： library(echarts4r) data1 <- data.frame(name = 'A', value1 = 1) data2 <- data.frame(name2 = rep('B', 8), value2 = rep(3, 8)) #第一层的外圈半径需要小于第二层的内圈半径 data1 |> e_charts(name) |> e_pie(value1, radius = c("0%", "8%"), color='#FF6A6A') |> e_data(data2, value2) |> e_pie(value2, radius = c("10%", "40%"), color='#FF3030', itemStyle = list( borderRadius = 40, borderColor = '#fff', borderWidth = 5 )) |> e_labels(show = FALSE)|> e_legend(show=FALSE) 得到图案，如下：但是本咸鱼希望能够改变花瓣的形状，于是想要在上面的基础上再叠加一层，然后将第三层的图案颜色设置为近乎白色，可是却发现第三层的图案颜色设置了也不起作用，而是直接沿用了第二层的颜色，代码如下： data3 <- data.frame(name3 = rep('B', 24), value3 = rep(3, 24)) #第一层的外圈半径需要小于第二层的内圈半径 data1 |> e_charts(name) |> e_pie(value1, radius = c("0%", "8%"), color = '#FF6A6A') |> e_data(data2, value2) |> e_pie( value2, radius = c("10%", "40%"), color = '#FF3030', itemStyle = list( borderRadius = 40, borderColor = '#fff', borderWidth = 5 ) ) |> #引入第三层 e_data(data3, value3) |> e_pie( value3, radius = c("35%", "45%"), color = 'white', 设置第三层的颜色 itemStyle = list( borderRadius = 40, borderColor = '#fff', borderWidth = 5 ) ) |> e_labels(show = FALSE) |> e_legend(show = FALSE) 最终效果如下：不知道是不是我哪里参数设置有问题，还是这个包本身的问题，请小伙伴们帮忙看看。另，如果有其他可以实现的画图包也烦请告知，咸鱼想要达到的效果是：绘制一朵花，有花蕊，有花瓣，且能改变花瓣的形状。

yuanfan 说老实话我不太看得懂上面的代码，再次凭瞎子多年的直觉猜答案：把那个颜色设置移进 itemStyle 里就好了。完整代码： library(echarts4r) data1 <- data.frame(name = 'A', value1 = 1) data2 <- data.frame(name2 = rep('B', 8), value2 = rep(3, 8)) data3 <- data.frame(name3 = rep('B', 24), value3 = rep(3, 24)) #第一层的外圈半径需要小于第二层的内圈半径 data1 |> e_charts(name) |> e_pie(value1, radius = c("0%", "8%"), color = '#FF6A6A') |> e_data(data2, value2) |> e_pie( value2, radius = c("10%", "40%"), color = '#FF3030', itemStyle = list( borderRadius = 40, borderColor = '#fff', borderWidth = 5 ) ) |> #引入第三层 e_data(data3, value3) |> e_pie( value3, radius = c("35%", "45%"), itemStyle = list( color = 'white', # <- <- 就是这里 <- <- borderRadius = 40, borderColor = '#fff', borderWidth = 5 ) ) |> e_labels(show = FALSE) |> e_legend(show = FALSE) 咸鱼楼主居然能把一锅大饼烙出一朵花，不得不说这创意有点厉害。看了这朵小花后，我惭愧地低头看了看胸前的红领巾……

毫无难度～ df=expand.grid(x=(1:8),y=seq(300,600,1)) df$size=df$y^2 df.middle=data.frame(x=0,y=0,size=600^2) df.outer=data.frame(x=seq(0,8,1/3)) df.outer$y=800 df.outer$size=400^2 p <- ggplot(df, aes(x, y, size = size)) + geom_point(color = "#FF3030") + geom_point(data = df.middle, color = "#FF6A6A") + geom_point(data = df.outer, color = "white") + ylim(0, 1100) + xlim(0, 8) + scale_size(range = c(7, 20)) + coord_polar(start = .4) + theme_void() + theme(legend.position = "none") p

tctcab 厉害。这些花瓣的边缘怎么好像并不平滑。

yihui ……红领巾…… 我的24K纯金狗眼已被戳瞎。奉劝其他小伙伴们不要去戳那个黑幕，即使戳了也不要运行那段代码，绝对不要把灯泡放嘴里啊喂。

yuanfan 我本来没有去运行那段代码，但是被你这么带的，我跑看了下，我知道为啥原博客没有附图了。

tctcab 哦，你用ggplot2画的原理好高大上啊，有没有兴趣再鼓捣稍微复杂一些的呢？比如下面的。

yuanfan tctcab 感觉二位可以合作来一篇，TC 君负责 ggplot2 的画法。

Cloud2016 记得你说 R 里面有好几个画图系统，要不要凑一桌麻将？

yuanfan 二人对弈已是难得，不必强求。

用 echarts4r 包绘制嵌套环形图时遇到图层叠加问题

tctcab

跑个题，html5的canvas画布+很多可视化js库有很大的潜力可挖，codepen.io上好多作品让我大开眼界。
echarts4r其实核心也是基于js+html的库，可动还可交互，逼格也挺高。

大家都来学JS吧

举例

yihui

tctcab 如 Cloud2016 所说，感觉这些例子的难点在于数学和物理（我已经都还给老师了），JS 可能是最简单的一环，不过肯定有很多的 JS 库已经把基础工作都做好了。即便有现成的库可以调用，估计我的智商还是差远了，我只能理解简单的几何图形；记得 2004 年左右我用 VB 写过一个随机下雪的程序，那种 y = y + d 的简单移动大概就是我的能力上限了。

回到画花问题上，我估计 R 基础图形系统里的 xspline() 函数可能会有点用，比如楼主花纹系列的第一幅图的圆角也许用 X 样条去算近似坐标会比用三角函数硬算精确坐标更简单一点。

yuanfan

yihui

土的是我才对，那道白弧是截图的时候无意中弄出来的，原图确实是没有的。

yuanfan

楼上的小伙伴们这是要滑向艺术的深渊呐。

听闻谷歌开发了一个名为 Disco Diffusion 的工具，可以做到 AI 画画。出得去的小伙伴可以去瞅瞅，是不是输入一句古诗也能画出图来，比如：夜雨打金荷。

yuanfan

tctcab

已经投了，要不回头 TC 君不卧倒装死了，去审一审那篇？

我今天在B站上正好看到有弹幕刷“厚礼蟹”，这才后知后觉反应过来居然也是一个梗。

Cloud2016

Cloud2016 又一位搞艺术创作的 R 语言画家 Danielle Navarro

speedy_jwc

试了一下用 ggplot 画分型

Cloud2016

又有一位搞生成艺术的 R 语言作家 Claus O. Wilke

yuanfan

Cloud2016
话说这些用 R 语言搞艺术的博客你都是怎么翻出来的？

Cloud2016

Cloud2016 Claus O. Wilke 最近解密了他发布的一系列生成艺术作品，包括早期的 R 语言和后来的 JS 语言实现，他曾将 t-SNE 算法作用在不同的数据集上，不知道有没有坛友来科普一下.

Cloud2016

yuanfan 刚上面那位有本好书，《数据可视化基础》我买了，翻他博客看到的。

yuanfan

Cloud2016
我好奇搜了搜，搜到一个电子版，这本书封面上的那只鸟好漂亮啊。

Cloud2016

yuanfan 这本书质量很高，前段时间买了中文版。

yuanfan

Cloud2016
听你这么说，我倒有点动心了，毕竟我的英文菜，苟着也看不了英文版。不过我去年买的书都还有好几本还没看，它们都排着队在，我就把这颗心又摁回去了……

« 上一页