2-14 |“特殊”的日子,多学一种表达爱的方式
时间:2022-07-22
本文章向大家介绍2-14 |“特殊”的日子,多学一种表达爱的方式,主要内容包括其使用实例、应用技巧、基本知识点总结和需要注意事项,具有一定的参考价值,需要的朋友可以参考一下。
全世界所有的语言都有表达爱意的方式,R语言当然也有!
特殊的日子,需要一个特殊的数据集!ggwordcloud内置数据集包含全世界147种爱你的语言,用R送给TA一份远程的爱。
一 道具 氛围
准备好R的环境,和“爱”的数据集
#install.packages("ggwordcloud")
library(ggwordcloud)
data("love_words")
head(love_words)
# A tibble: 6 x 4
lang word native_speakers speakers
<chr> <chr> <dbl> <dbl>
1 zh 愛 1200 1200
2 en Love 400 800
3 es Amor 480 555
4 ar حب 245 515
5 hi प्यार 322 442
6 fr Amour 76.8 351.
嗯,我也只能看懂2种
,但知道都是表达爱的就可以了!
二 初始“印象”
geom_text_wordcloud 看一下世界范围内的不同国家说“爱”的人数
#AI的大小由speakers的人数决定
ggplot(love_words, aes(label = word, size = speakers)) +
geom_text_wordcloud() +
scale_size_area(max_size = 40)
三 ”钻石“和”心“
1 )将爱变成钻石的形状
#钻石形状
love_words <- love_words %>%
mutate(angle = 90 * sample(c(0, 1), n(), replace = TRUE, prob = c(60, 40)))
ggplot(love_words, aes(label = word, size = speakers)) +
geom_text_wordcloud_area(shape = "diamond") +
scale_size_area(max_size = 40)
2 )自定义爱心的形状
设置字形的角度
love_words <-love_words %>%
mutate(angle = 45 *sample(-2:2, n(), replace = TRUE, prob = c(1, 1, 4, 1, 1)))
ggplot(love_words,aes(label = word, size = speakers,
color = speakers, angle = angle)) +
geom_text_wordcloud_area(
mask = png::readPNG(system.file("extdata/hearth.png",
package = "ggwordcloud", mustWork = TRUE
)),
rm_outside = TRUE
) +
scale_size_area(max_size = 40) +
scale_color_gradient(low = "darkred", high = "red")
四 ”密码“VS”对话“
既然是ggplot2的扩展包,那么就可以做很多事情。
1)“密码”
更改label ,变成“密码”
#更改label ,变成“密码”set.seed(42)ggplot(love_words_small, aes(label = word, size = speakers,
label_content = sprintf("%s<span style='font-size:7.5pt'>(%g)</span>", word, speakers))) +
geom_text_wordcloud_area() +
scale_size_area(max_size = 40) +
theme_minimal()
注:此为官网图,尝试很多没实现官网中label_content
的功能,本来想着新增一列,把想说的话随机打乱加在新列中,然后label_content
展示这些“密码”。
2)“对话”
统计微信或者QQ中的对话词频,标记出谁说的,然后分页展示
library(dplyr)
library(tidyr)#随机生成love_words$MW <- sample(c("M","W"),size=147,replace=T)
ggplot(love_words,aes(label = word, size = speakers,
color = speakers)) +
geom_text_wordcloud_area(
mask = png::readPNG(system.file("extdata/hearth.png",
package = "ggwordcloud", mustWork = TRUE
)),
rm_outside = TRUE
) +
scale_size_area(max_size = 40) +
scale_color_gradient(low = "darkred", high = "red")+
facet_wrap(~MW) + theme_minimal()
参考资料:
https://lepennec.github.io/ggwordcloud/articles/ggwordcloud.html
好了,自由发挥去吧!
- JavaScript 教程
- JavaScript 编辑工具
- JavaScript 与HTML
- JavaScript 与Java
- JavaScript 数据结构
- JavaScript 基本数据类型
- JavaScript 特殊数据类型
- JavaScript 运算符
- JavaScript typeof 运算符
- JavaScript 表达式
- JavaScript 类型转换
- JavaScript 基本语法
- JavaScript 注释
- Javascript 基本处理流程
- Javascript 选择结构
- Javascript if 语句
- Javascript if 语句的嵌套
- Javascript switch 语句
- Javascript 循环结构
- Javascript 循环结构实例
- Javascript 跳转语句
- Javascript 控制语句总结
- Javascript 函数介绍
- Javascript 函数的定义
- Javascript 函数调用
- Javascript 几种特殊的函数
- JavaScript 内置函数简介
- Javascript eval() 函数
- Javascript isFinite() 函数
- Javascript isNaN() 函数
- parseInt() 与 parseFloat()
- escape() 与 unescape()
- Javascript 字符串介绍
- Javascript length属性
- javascript 字符串函数
- Javascript 日期对象简介
- Javascript 日期对象用途
- Date 对象属性和方法
- Javascript 数组是什么
- Javascript 创建数组
- Javascript 数组赋值与取值
- Javascript 数组属性和方法
- Android中使用SharedPreferences完成记住账号密码的功能
- Android Intent封装的实例详解
- Android自定义Drawable实现圆角效果
- Android ApplicationInfo 应用程序信息的详解
- Android UI控件Switch的使用方法
- Android如何读写CSV文件方法示例
- Android 静默安装和卸载的方法
- Android自定义单例AlertDialog详解
- Android Build类的详解及简单实例
- Android使用CrashHandler来获取应用的crash信息的方法
- 数据魔术师小白零基础实现简单人脸识别
- Android编程实现XML解析与保存的三种方法详解
- 浅谈关于Android路由的实现
- Android中EditText禁止输入表情的实例代码
- Android仿微信右滑返回功能的实例代码