首页    技术博客    PHP教程    数据库技术    前端开发   HTML5    Nginx    php论坛
新用户注册 | 会员登录
加入会员，解锁专属内容
取消
热门标签 | HotTags
当前位置:  开发笔记 > 编程语言 > 正文

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

作者：快乐俱乐部老巢_260 | 来源：互联网 | 2023-10-10 12:23
echarts4r包封装EchartsJavascript图表库，这使得我们可以使用R语言绘制各种基于echarts.js的交互式图表，今天我给大家分享
b3fbf7258153f81dd4c1ceef2809f06c.png

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")

ee141211fed6c19969f82b7089c55cfa.png

还可以让容器里面的水波动起来。另外 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)

762d0bd488e1aeaa51162bf57281b1ae.png

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

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

363e018843473bbc6346d1f04ed4813d.png

是不是很炫酷&＃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;

328c28f62e615fee3d3207b4aec11308.png

非诚勿扰。

推荐阅读

  • 【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、高德接口与地理编码



推荐阅读
  • ip

    三星W799：2011年双模手机的巅峰之作

    三星W799在2011年的表现堪称经典，以其独特的双屏设计和强大的功能引领了双模手机的潮流。本文详细介绍其配置、功能及锁屏设置。 ... [详细]
  • io

    分页插件3指定到某一页

    前言--页数多了以后需要指定到某一页（只做了功能，样式没有细调）html ... [详细]
  • io

    优化ListView性能

    优化ListView性能
    本文深入探讨了如何通过多种技术手段优化ListView的性能，包括视图复用、ViewHolder模式、分批加载数据、图片优化及内存管理等。这些方法能够显著提升应用的响应速度和用户体验。 ... [详细]
  • io

    GWT PopupPanel onKeyDownPreview 方法详解与实例

    本文详细介绍了 GWT 中 PopupPanel 类的 onKeyDownPreview 方法，提供了多个代码示例及应用场景，帮助开发者更好地理解和使用该方法。 ... [详细]
  • io

    编写有趣的VBScript恶作剧脚本

    本文将介绍如何编写一些有趣的VBScript脚本，这些脚本可以在朋友之间进行无害的恶作剧。通过简单的代码示例，帮助您了解VBScript的基本语法和功能。 ... [详细]
  • io

    Python配置文件读写指南

    本文详细介绍如何使用Python进行配置文件的读写操作，涵盖常见的配置文件格式（如INI、JSON、TOML和YAML），并提供具体的代码示例。 ... [详细]
  • io

    导航栏样式练习：项目实例解析

    导航栏样式练习：项目实例解析
    本文详细介绍了如何创建一个具有动态效果的导航栏，包括HTML、CSS和JavaScript代码的实现，并附有详细的说明和效果图。 ... [详细]
  • io

    Dockerfile 编写与 Docker 网络配置详解

    本文详细介绍了 Dockerfile 的编写方法及其在网络配置中的应用，涵盖基础指令、镜像构建与发布流程，并深入探讨了 Docker 的默认网络、容器互联及自定义网络的实现。 ... [详细]
  • io

    网络链路质量监控：Smokeping部署与配置

    本文详细介绍了如何在Linux系统上安装和配置Smokeping，以实现对网络链路质量的实时监控。通过详细的步骤和必要的依赖包安装，确保用户能够顺利完成部署并优化其网络性能监控。 ... [详细]
  • io

    词根词缀解析：greg、hap、helio及其他词源故事

    本文基于刘洪波老师的《英文词根词缀精讲》，深入探讨了多个重要词根词缀的起源及其相关词汇，帮助读者更好地理解和记忆英语单词。 ... [详细]
  • io

    数据管理权威指南：《DAMA-DMBOK2 数据管理知识体系》

    数据管理权威指南：《DAMA-DMBOK2 数据管理知识体系》
    本书提供了全面的数据管理职能、术语和最佳实践方法的标准行业解释，构建了数据管理的总体框架，为数据管理的发展奠定了坚实的理论基础。适合各类数据管理专业人士和相关领域的从业人员。 ... [详细]
  • io

    JQuery基础：省市联动与表单验证

    本文介绍了如何使用JQuery实现省市二级联动和表单验证。首先，通过change事件监听用户选择的省份，并动态加载对应的城市列表。其次，详细讲解了使用Validation插件进行表单验证的方法，包括内置规则、自定义规则及实时验证功能。 ... [详细]
  • io

    Linux 自动化安装脚本详解

    本文介绍了一款用于自动化部署 Linux 服务的 Bash 脚本。该脚本不仅涵盖了基本的文件复制和目录创建，还处理了系统服务的配置和启动，确保在多种 Linux 发行版上都能顺利运行。 ... [详细]
  • io

    深入解析ExpandableComposite.addExpansionListener()方法及其应用

    本文详细介绍了Java中org.eclipse.ui.forms.widgets.ExpandableComposite类的addExpansionListener()方法，并提供了多个实际代码示例，帮助开发者更好地理解和使用该方法。这些示例来源于多个知名开源项目，具有很高的参考价值。 ... [详细]
  • ip

    开源软件：新时代的商业机遇与挑战

    在哈佛大学商学院举行的Cyberposium大会上，专家们深入探讨了开源软件的崛起及其对企业市场的影响。会议指出，开源软件不仅为企业提供了新的增长机会，还促进了软件质量的提升和创新。 ... [详细]
author-avatar
快乐俱乐部老巢_260
这个家伙很懒，什么也没留下！
Tags | 热门标签
RankList | 热门文章
PHP1.CN | 中国最专业的PHP中文社区 | DevBox开发工具箱 | json解析格式化 |PHP资讯 | PHP教程 | 数据库技术 | 服务器技术 | 前端开发技术 | PHP框架 | 开发工具 | 在线工具
Copyright © 1998 - 2020 PHP1.CN. All Rights Reserved | 京公网安备 11010802041100号 | 京ICP备19059560号-4 | PHP1.CN 第一PHP社区 版权所有