学好R语言绘图,你只需这样一个网站就够了

举报
不温卜火 发表于 2020/12/02 23:44:11 2020/12/02
【摘要】 你们是否有超级羡慕那些能做一手好图的人,俗语有云一图胜千言,做了一手好图很容易提升我们文章的逼格。所以我也常常在想,网络上有那种可视化的示例代码和示例效果图供我们参考学习的吗? 目录 1. 简单介绍2. 样例展示2.1 词云2.2 气泡图 3. 总结 话不多说,上网址: https://www.r-graph-gallery.com/ ...

你们是否有超级羡慕那些能做一手好图的人,俗语有云一图胜千言,做了一手好图很容易提升我们文章的逼格。所以我也常常在想,网络上有那种可视化的示例代码和示例效果图供我们参考学习的吗?


话不多说,上网址:
https://www.r-graph-gallery.com/
r-garp-gallery收入了大量利用R语言绘制的图形,这些图形包含了很多方面,通过这个网站,我们可以方便直观观察到R语言所能做的一些图形。

1. 简单介绍

1

  • 1. 网站对绘图进行了分类
    2
  • 2. 网站提供搜索功能,可以搜索需要的图形类型,例如heatmap
    3
  • 3. 每一个图形都给出了代码
    4
  • 4. 将代码复制到Rstudio中逐条运行
    5

2. 样例展示

2.1 词云

  • 1. 安装所需要的包
    6
  • 2. 载入相关的包
    7
  • 3.绘制词云
# Change the shape:
wordcloud2(demoFreq, size = 0.7, shape = 'star')

# Change the shape using your image
wordcloud2(demoFreq, figPath = "~/Desktop/R-graph-gallery/img/other/peaceAndLove.jpg", size = 1.5, color = "skyblue", backgroundColor="black")

  
 
  • 1
  • 2
  • 3
  • 4
  • 5

8

2.2 气泡图

  • 1. 安装所需要的包
    9
  • 2. 载入安装包
    10
  • 3. 最基本的气泡图 geom_point()
data <- gapminder %>% filter(year=="2007") %>% dplyr::select(-year)

# Most basic bubble plot
ggplot(data, aes(x=gdpPercap, y=lifeExp, size = pop)) +
  geom_point(alpha=0.7)

  
 
  • 1
  • 2
  • 3
  • 4
  • 5

11

  • 4. 用 scale_size()

我们需要在上一张图表上改进的第一件事是气泡大小。scale_size()允许使用range参数设置最小和最大圆圈的大小。请注意,您可以使用来定制图例名称name。

data <- gapminder %>% filter(year=="2007") %>% dplyr::select(-year)

# Most basic bubble plot
data %>%
  arrange(desc(pop)) %>%
  mutate(country = factor(country, country)) %>%
  ggplot(aes(x=gdpPercap, y=lifeExp, size = pop)) + geom_point(alpha=0.5) + scale_size(range = c(.1, 24), name="Population (M)")

  
 
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9

12

  • 5. 添加第四个维度:颜色
data <- gapminder %>% filter(year=="2007") %>% dplyr::select(-year)
data %>%
  arrange(desc(pop)) %>%
  mutate(country = factor(country, country)) %>%
  ggplot(aes(x=gdpPercap, y=lifeExp, size=pop, color=continent)) + geom_point(alpha=0.5) + scale_size(range = c(.1, 24), name="Population (M)")


  
 
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8

13

  • 6. 变得漂亮

一些经典的改进:

使用viridis包装获得漂亮的调色板
使用的theme_ipsum()所述的hrbrthemes包
定制轴职称xlab和ylab
将笔划添加到圆圈:更改shape为21并指定color(笔划)和fill

# Libraries
library(ggplot2)
library(dplyr)
library(hrbrthemes)
library(viridis)

# The dataset is provided in the gapminder library
library(gapminder)
data <- gapminder %>% filter(year=="2007") %>% dplyr::select(-year)

# Most basic bubble plot
data %>%
  arrange(desc(pop)) %>%
  mutate(country = factor(country, country)) %>%
  ggplot(aes(x=gdpPercap, y=lifeExp, size=pop, fill=continent)) + geom_point(alpha=0.5, shape=21, color="black") + scale_size(range = c(.1, 24), name="Population (M)") + scale_fill_viridis(discrete=TRUE, guide=FALSE, option="A") + theme_ipsum() + theme(legend.position="bottom") + ylab("Life Expectancy") + xlab("Gdp per Capita") + theme(legend.position = "none")

  
 
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23

14

3. 总结

通过不断地对比,是不是发现原来用R语言绘图狠简单,作者由于时间有限,只能列出几个出来,剩下的要靠大家自己进行挖掘尝试。


各位路过的朋友,如果觉得可以学到些什么的话,点个赞再走吧,欢迎各位路过的大佬评论,指正错误,也欢迎有问题的小伙伴评论留言,私信。每个小伙伴的关注都是本人更新博客的动力!!!

文章来源: buwenbuhuo.blog.csdn.net,作者:不温卜火,版权归原作者所有,如需转载,请联系作者。

原文链接:buwenbuhuo.blog.csdn.net/article/details/105602881

【版权声明】本文为华为云社区用户转载文章,如果您发现本社区中有涉嫌抄袭的内容,欢迎发送邮件进行举报,并提供相关证据,一经查实,本社区将立刻删除涉嫌侵权内容,举报邮箱: cloudbbs@huaweicloud.com
  • 点赞
  • 收藏
  • 关注作者

评论(0

0/1000
抱歉,系统识别当前为高风险访问,暂不支持该操作

全部回复

上滑加载中

设置昵称

在此一键设置昵称,即可参与社区互动!

*长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。

*长度不超过10个汉字或20个英文字符,设置后3个月内不可修改。