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

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

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

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

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

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

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

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

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

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

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

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

创建要使用的基本图

首先，让我们加载将在本文中使用的包: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

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

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

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

那不是你想要的样子。幸运的是，在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中旋转文本时，可以通过在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中图形的可读性和视觉吸引力!
你真的需要考虑像这样的小细节，尤其是当你要在演讲或报告中使用图形时。小细节确实可以改进您的图形，从而使您更容易地教育您的受众，使人们相信您的结论，并推动组织中的更改。

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

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

内容推荐