• 主页
  • 课程

    关于课程

    • 课程归档
    • 成为一名讲师
    • 讲师信息
    同等学历教学

    同等学历教学

    免费
    阅读更多
  • 特色
    • 展示
    • 关于我们
    • 问答
  • 事件
  • 个性化
  • 博客
  • 联系
  • 站点资源
    有任何问题吗?
    (00) 123 456 789
    weinfoadmin@weinformatics.cn
    注册登录
    恒诺新知
    • 主页
    • 课程

      关于课程

      • 课程归档
      • 成为一名讲师
      • 讲师信息
      同等学历教学

      同等学历教学

      免费
      阅读更多
    • 特色
      • 展示
      • 关于我们
      • 问答
    • 事件
    • 个性化
    • 博客
    • 联系
    • 站点资源

      R语言

      • 首页
      • 博客
      • R语言
      • 图形|快速提高ggplot图的可读性和视觉吸引力的一步

      图形|快速提高ggplot图的可读性和视觉吸引力的一步

      • 发布者 weinfoadmin
      • 分类 R语言
      • 日期 2019年5月5日
      测试开头

      编者按:可视化分析可以帮助你快速地理解数据和发现洞见,同时,更加有效地传达有价值的信息。如何做出一个很棒的图形?清晰度,简洁,视觉吸引力,有价值性,都是需要考虑的。做一个好图形,需要从细节处打磨,不偏不倚,恰到好处。我创建了R语言微信群,定位:R语言学习与实践。想入群的朋友,请添加我的微信:luqin360,注明:入群。

      图形清晰地传达了一个点,这是一个很棒的东西。 当你看到它时你就知道了。 这种图形让你停下来说“哇!”。

      有各种不同的图形符合这种描述,但它们通常有一些共同点:

      • 清晰度:图形的信息很清楚

      • 简单:删除了无关的细节

      • 视觉吸引力:图形应该令人满意

      当然,您的图形也需要传达有价值的东西。 但是我看到很多图形最终都达不到他们的潜力,因为他们不满足以上这三点!

      我自己也经历过。回想起来,我在R中最早的一些图形不够好。但提高的关键是不断学习新东西,并随着时间的推移变得更好。
      似乎很多人都在学习如何用R创建基本的条形图、散点图和线形图,然后停止进一步发展他们的技能。但你不应该就此打住!
      我不认为大多数人是故意这样做的。事实上,我认为大多数人根本不知道什么是可能的,什么是他们应该关注的。

      如果您所见过的图都是来自统计课本或代码文档的基本示例,那么您如何知道您可以做得更好呢?您如何知道您可以创建图形来捕捉注意力、驱动行动或激发敬畏?你不会。
      我想教你如何制作图形,使你的观点清晰,简单,并具有视觉吸引力。您现在可以对您的图表进行快速修复,这将使您更接近实现这一目标。

      今天,我将向您展示如何使用axis文本旋转来极大地提高图表的可读性和视觉吸引力。

      图形|快速提高ggplot图的可读性和视觉吸引力的一步

      你准备好了吗?我们开始吧!

      创建要使用的基本图

      首先,让我们加载将在本文中使用的包:tidyverse(用于绘图和数据操作)和hrbrthemes(一个有用的包,我使用它来改进图形的样式)。

      library(hrbrthemes)
      library(tidyverse)

      在本文中,我们将使用mtcars数据集来演示这些绘图技术。在这里,我将该数据集中的汽车按照引擎中的气缸数(4,6或8)进行分组,然后计算每个组的平均马力。

      # Calculate average horsepower for cars with 4-, 6-, and 8-cylinder engines
      hp_by_cyl <- mtcars %>% group_by(cyl) %>%
          summarise(avg_hp = mean(hp))

      最后,我在ggplot中创建一个简单的条形图来显示这些数据。让我们简要回顾一下这段代码。

      • 前两行(ggplot和geom_bar)创建基本条形图。

      • 接下来的5行使用labs函数为图分配标签。

      • 最后一行使用hrbrthemes包中的theme_ipsum对图应用一些漂亮的样式。

      # Creating a base graph without formatting the axis text
      g <- ggplot(hp_by_cyl) +
          geom_bar(aes(x = factor(cyl), y = avg_hp), stat = 'identity') + 
          labs(title = 'Average Horsepower for Cars with 4-, 6-, and 8-Cylinder Engines',
               subtitle = 'Based on Data for 32 Cars from the 1974 Motor Trend Magazine',
               x = 'Cylinders',
               y = 'Horsepower',
               caption = 'michaeltoth.me / @michael_toth') +
          theme_ipsum(axis_title_size = 12)

      g
      图形|快速提高ggplot图的可读性和视觉吸引力的一步

      这张图大部分都很好。但我的目标不是可以了,你也不应该!
      我非常注意作图的细节,我希望我的作图是优秀的。我能让人们更容易地阅读和理解图形,我就能更好地说服他们采取特定的行动。

      旋转y轴标题以提高可读性

      我们可以做几件事来改进这个图,但在本指南中,我们将重点放在旋转y轴标签上。这个简单的改变将使您的图表变得更好。这样,人们就不用像我一样歪着头去看你的图形了:

      图形|快速提高ggplot图的可读性和视觉吸引力的一步

      那不是你想要的样子。幸运的是,在ggplot中旋转轴标题非常容易!为此,我们将使用ggplot的theme函数修改一些参数,该函数还可用于调整图形中的所有内容,如轴标签、网格线和文本大小。

      这里,我们特别想调整y轴,我们可以使用axis.title.y参数。要调整文本元素,我们使用element_text。您可以使用element_text来调整字体、颜色和大小等。但是这里,我们对旋转感兴趣,所以我们要用angle。将angle设置为0将使y轴文本水平。看一看:

      # Modifying the graph from before (stored as g), to make the text horizontal
      g + theme(axis.title.y = element_text(angle = 0))
      图形|快速提高ggplot图的可读性和视觉吸引力的一步

      这是一个很小的变化,但是这个图比之前的图可读性更好,在视觉上更吸引人。这就是我们要做的。简洁、清晰和视觉吸引力。

      更多关于ggplot中的文本旋转

      正如我们刚才看到的,当需要在ggplot中旋转文本时,可以通过在element_text中调整角度来完成。在这里,我们这样做是为了调整轴标题,但是对于任何想要在ggplot中旋转的文本,这都是一样的。
      角度参数可以取0到360之间的任何值,与水平基线的旋转角度对应。为了简要说明不同角度值在ggplot中的工作原理,请看下面的图,其中我探索了四个不同角度的旋转:

      library(gridExtra)

      # 0-Degree angle
      g1 <- g + theme(axis.title.y = element_text(angle = 0)) + 
          labs(title = 'Y-Axis Title at 0 degrees', 
               subtitle = 'Using theme(axis.title.y = element_text(angle = 0))', 
               caption = '')

      # 90-Degree angle
      g2 <- g + theme(axis.title.y = element_text(angle = 90)) + 
          labs(title = 'Y-Axis Title at 90 degrees', 
               subtitle = 'Using theme(axis.title.y = element_text(angle = 90))', 
               caption = '')

      # 180-Degree angle
      g3 <- g + theme(axis.title.y = element_text(angle = 180)) + 
          labs(title = 'Y-Axis Title at 180 degrees', 
               subtitle = 'Using theme(axis.title.y = element_text(angle = 180))', 
               caption = '')

      # 270-Degree angle
      g4 <- g + theme(axis.title.y = element_text(angle = 270)) + 
          labs(title = 'Y-Axis Title at 270 degrees', 
               subtitle = 'theme(axis.title.y = element_text(angle = 270))')

      # Add all graphs to a grid
      grid.arrange(g1, g2, g3, g4, nrow = 2, ncol = 2)
      图形|快速提高ggplot图的可读性和视觉吸引力的一步

      现在您应该更好地理解了如何使用轴标题旋转来提高ggplot中图形的可读性和视觉吸引力!
      你真的需要考虑像这样的小细节,尤其是当你要在演讲或报告中使用图形时。小细节确实可以改进您的图形,从而使您更容易地教育您的受众,使人们相信您的结论,并推动组织中的更改。

      原文链接:
      https://michaeltoth.me/one-step-to-quickly-improve-the-readability-and-visual-appeal-of-ggplot-graphs.html

      如果您觉得有用,请点赞和分享给朋友。文中的链接,请点击阅读原文。您有任何问题,请留言。

      内容推荐


      • 视频|RStudio项目和版本控制

      • 视频|我常用的R包

      • 视频|R语言编码风格

      • 视频|RMarkdown帮准您做数据报告

      测试结尾

      请关注“恒诺新知”微信公众号,感谢“R语言“,”数据那些事儿“,”老俊俊的生信笔记“,”冷🈚️思“,“珞珈R”,“生信星球”的支持!

      • 分享:
      作者头像
      weinfoadmin

      上一篇文章

      AWK是门大学问(下)
      2019年5月5日

      下一篇文章

      模型|购物蓝分析实用介绍—关联规则
      2019年5月7日

      你可能也喜欢

      3-1665801675
      R语言学习:重读《R数据科学(中文版)》书籍
      28 9月, 2022
      6-1652833487
      经典铁死亡,再出新思路
      16 5月, 2022
      1-1651501980
      R语言学习:阅读《R For Everyone 》(第二版)
      1 5月, 2022

      搜索

      分类

      • R语言
      • TCGA数据挖掘
      • 单细胞RNA-seq测序
      • 在线会议直播预告与回放
      • 数据分析那些事儿分类
      • 未分类
      • 生信星球
      • 老俊俊的生信笔记

      投稿培训

      免费

      alphafold2培训

      免费

      群晖配置培训

      免费

      最新博文

      Nature | 单细胞技术揭示衰老细胞与肌肉再生
      301月2023
      lncRNA和miRNA生信分析系列讲座免费视频课和课件资源包,干货满满
      301月2023
      如何快速批量修改 Git 提交记录中的用户信息
      261月2023
      logo-eduma-the-best-lms-wordpress-theme

      (00) 123 456 789

      weinfoadmin@weinformatics.cn

      恒诺新知

      • 关于我们
      • 博客
      • 联系
      • 成为一名讲师

      链接

      • 课程
      • 事件
      • 展示
      • 问答

      支持

      • 文档
      • 论坛
      • 语言包
      • 发行状态

      推荐

      • iHub汉语代码托管
      • iLAB耗材管理
      • WooCommerce
      • 丁香园论坛

      weinformatics 即 恒诺新知。ICP备案号:粤ICP备19129767号

      • 关于我们
      • 博客
      • 联系
      • 成为一名讲师

      要成为一名讲师吗?

      加入数以千计的演讲者获得100%课时费!

      现在开始

      用你的站点账户登录

      忘记密码?

      还不是会员? 现在注册

      注册新帐户

      已经拥有注册账户? 现在登录

      close
      会员购买 你还没有登录,请先登录
      • ¥99 VIP-1个月
      • ¥199 VIP-半年
      • ¥299 VIP-1年
      在线支付 激活码

      立即支付
      支付宝
      微信支付
      请使用 支付宝 或 微信 扫码支付
      登录
      注册|忘记密码?