svgpath绘制心形_如何使用R语言绘制水球图？

echarts4r 包封装 Echarts Javascript 图表库&＃xff0c;这使得我们可以使用 R 语言绘制各种基于 echarts.js 的交互式图表&＃xff0c;今天我给大家分享的是水球图的绘制方法。

首先加载我们需要的 R 包&＃xff1a;

library(echarts4r)
library(tidyverse)


我从 https://www.iconfont.cn 网站上下载了两个 SVG 图片&＃xff0c;一个是 Apple 的 logo 一个是 Android 的 logo&＃xff0c;可以使用文本编辑器查看他们的源代码&＃xff0c;然后从其中找到 path://...&＃xff1a;

path1 "path://M662.384539 156.783881c38.396052-41.595723 63.993421-99.189802 57.594078-156.783881-54.394408 3.199671-121.587499 31.99671-163.183223 73.592434-35.196381 35.196381-67.193092 95.990131-57.594078 150.384538 60.79375 6.399342 124.78717-25.597368 163.183223-67.193091z m118.387828 393.559537c0-127.986841 102.389473-188.780591 105.589144-191.980262-57.594079-86.391118-147.184868-99.189802-179.181578-99.189802-76.792105-9.599013-150.384539 44.795394-188.780591 44.795394s-99.189802-44.795394-163.183223-44.795394c-83.191447 0-159.983552 51.194737-201.579275 127.986841-86.391118 153.58421-22.397697 383.960524 60.79375 508.747694 41.595723 60.79375 89.590789 131.186512 153.584209 127.986842 60.79375-3.199671 86.391118-41.595723 159.983552-41.595724S623.988486 1023.894731 691.181578 1023.894731s108.788815-63.993421 150.384538-124.78717c47.995066-70.392763 67.193092-140.785525 67.193092-143.985197 0 0-127.986841-51.194737-127.986841-204.778946z"
path2 "path://M204.8 395.2v265.6c0 35.2-28.8 64-64 64s-67.2-28.8-67.2-64V395.2c0-35.2 35.2-64 67.2-64 35.2 3.2 64 28.8 64 64zM230.4 752c0 38.4 28.8 67.2 67.2 67.2h44.8V960c0 83.2 124.8 83.2 124.8 0v-140.8h86.4V960c0 83.2 128 83.2 128 0v-140.8h44.8c38.4 0 67.2-28.8 67.2-67.2V344H230.4V752z m566.4-430.4H227.2c0-99.2 57.6-182.4 144-227.2l-44.8-80c-6.4-9.6 9.6-19.2 16-9.6l44.8 80c80-35.2 172.8-32 246.4 0l44.8-80c6.4-9.6 22.4-3.2 16 9.6l-44.8 80c89.6 44.8 147.2 131.2 147.2 227.2z m-390.4-124.8c0-12.8-9.6-22.4-22.4-22.4-12.8 0-22.4 9.6-22.4 22.4 0 12.8 9.6 22.4 22.4 22.4 12.8 0 22.4-9.6 22.4-22.4z m259.2 0c0-12.8-9.6-22.4-22.4-22.4s-22.4 9.6-22.4 22.4c0 12.8 9.6 22.4 22.4 22.4 12.8 0 22.4-9.6 22.4-22.4z m217.6 137.6c-35.2 0-64 28.8-64 64v265.6c0 35.2 28.8 64 64 64s67.2-28.8 67.2-64V398.4c0-38.4-35.2-64-67.2-64z"


下面我们创建一个数据框&＃xff1a;

df   column &＃61; c("Apple", "Android"), value &＃61; c(65, 35),
  path &＃61; c(path1, path2)
)
df

#> # A tibble: 2 x 3
#>   column  value path                                                            
#>                                                                  
#> 1 Apple      65 path://M662.384539 156.783881c38.396052-41.595723 63.993421-99.…
#> 2 Android    35 path://M204.8 395.2v265.6c0 35.2-28.8 64-64 64s-67.2-28.8-67.2-…


然后就可以绘制水球图了&＃xff1a;

df %>%
  e_charts(column, width &＃61; "100%") %>%
  e_x_axis(
    splitLine &＃61; list(show &＃61; FALSE),
    axisTick &＃61; list(show &＃61; FALSE),
    axisLine &＃61; list(show &＃61; FALSE),
    axisLabel &＃61; list(show &＃61; FALSE)
  ) %>%
  e_y_axis(
    max &＃61; 100,
    splitLine &＃61; list(show &＃61; FALSE),
    axisTick &＃61; list(show &＃61; FALSE),
    axisLine &＃61; list(show &＃61; FALSE),
    axisLabel &＃61; list(show &＃61; FALSE)
  ) %>%
  e_color(color &＃61; c("#69cce6", "#eee")) %>%
  e_pictorial(value,
    symbol &＃61; path, z &＃61; 10, name &＃61; "realValue",
    symbolBoundingData &＃61; 100, symbolClip &＃61; TRUE
  ) %>%
  e_pictorial(value,
    symbol &＃61; path, name &＃61; "background",
    symbolBoundingData &＃61; 100, 
  ) %>%
  e_labels(
    position &＃61; "bottom", offset &＃61; c(0, 10),
    textStyle &＃61; list(
      fontSize &＃61; 20, fontFamily &＃61; "Arial",
      fontWeight &＃61; "bold",
      color &＃61; "#69cce6"
    ),
    formatter &＃61; "{&＃64;[1]}% {&＃64;[0]}"
  ) %>%
  e_legend(show &＃61; FALSE) %>%
  e_theme("westeros")


还可以让容器里面的水波动起来。另外 echarts4r 包提供了组合多个 echarts 图表控件的函数&＃xff1a;

library(htmlwidgets)
liquid 0.6, 0.5, 0.4), 
                 android &＃61; c(0.5, 0.3, 0.1))
liquid %>%
  e_charts() %>%
  e_liquid(apple, shape &＃61; path1, 
           backgroundStyle &＃61; list(borderColor &＃61; &＃39;#156ACF&＃39;,
                                  borderWidth &＃61; 1,
                                  shadowColor &＃61; &＃39;rgba(0, 0, 0, 0.4)&＃39;,
                                  shadowBlur &＃61; 20),
           outline &＃61; list(show &＃61; FALSE),
           label &＃61; list(position &＃61; c(&＃39;50%&＃39;, &＃39;50%&＃39;),
                        formatter &＃61; JS("function(){return &＃39;苹果&＃39;;}"),
                        fontSize &＃61; 20,
                        color &＃61; &＃39;#D94854&＃39;)) -> e1
liquid %>%
  e_charts() %>%
  e_liquid(android, shape &＃61; path2, 
           backgroundStyle &＃61; list(borderColor &＃61; &＃39;#156ACF&＃39;,
                                  borderWidth &＃61; 1,
                                  shadowColor &＃61; &＃39;rgba(0, 0, 0, 0.4)&＃39;,
                                  shadowBlur &＃61; 20),
           outline &＃61; list(show &＃61; FALSE),
           label &＃61; list(position &＃61; c(&＃39;50%&＃39;, &＃39;50%&＃39;),
                        formatter &＃61; JS("function(){return &＃39;安卓&＃39;;}"),
                        fontSize &＃61; 20,
                        color &＃61; &＃39;#D94854&＃39;)) -> e2
e_arrange(e1, e2, rows &＃61; 1, cols &＃61; 2)


使用 manipulateWidget 包合并效果更好&＃xff1a;

library(manipulateWidget)
combineWidgets(e1, e2, byrow &＃61; TRUE, nrow &＃61; 1, 
               width &＃61; "100%", height &＃61; "400px")


是不是很炫酷&＃xff01;

代码和相关材料获取

在公众号后台发送 liquid 即可获取&＃xff5e;

? 线上培训班体验邀请

欢迎加入我的线上培训班学习使用 R 和 Stata 进行数据处理和可视化&＃xff1a;你想学习使用 R & Stata 进行数据分析与可视化么&＃xff1f;我觉得你可以加入我的线上培训班试试&＃xff01;

之后的课程将不再通过哔哩哔哩直播进行&＃xff0c;那么该如何试听我的培训班的课程呢&＃xff1f;很简单&＃xff1a;

1. 关注本公众号 RStata&＃xff0c;这样你能够第一时间获取课程预告和我提供的学习资源&＃xff1b;
2. 转发本文至朋友圈集齐 12 个赞&＃xff1b;
3. 截图发给我&＃xff0c;我就邀请你加入会员群进行体验(两天)&＃xff0c;期间你可以参与腾讯会议观看课程直播和进行提问。

我的微信

更多内容欢迎加入我的线上培训班获取&＃xff0c;详情可添加我的微信咨询了解&＃xff1a;

非诚勿扰。

推荐阅读

• 【Stata 编程导论】第三讲&＃xff1a;函数、宏、标量和矩阵(二)
• 函数、宏、标量和矩阵(一)
• 【使用 R 语言进行地理计算】第二讲&＃xff1a;属性数据操作
• 为小白准备的课程&＃xff5e; 《Stata 绘图指引》系列课程第二讲&＃xff1a;Stata 的图形编辑器
• 指北针和比例尺来啦&＃xff01;使用 Stata 绘制中国市级地图&＃xff5e;还带九段线小地图
• 《R 数据科学》系列课程第二讲&＃xff1a;使用 ggplot2 进行数据可视化
• 上手 Stata 图表制作
• 入手 R 语言&＃xff01;
• 入手 Stata
• Stata 网络数据爬取&＃xff1a;JSON 篇
• 使用 R 语言从 PDF 文档中提取表格
• 如何根据经纬度判断该地点所处的省份或者区县&＃xff1f;(更新版)
• 如何在几秒钟内完成 Stata 外部命令的安装&＃xff1f;
• 中国的工业企业都在哪里&＃xff1f;—— Stata、高德接口与地理编码