ggplot 添加文本_在R中的ggplot2文本中添加颜色

ggplot 添加文本

ggplot2软件包功能强大且几乎可以无限制地进行自定义，但有时进行一些细微调整可能是一个挑战。 ggtext软件包旨在简化可视化文件中的样式文本。 在本教程中，我将完成上个月在RStudio Conference上演示的一个文本样式任务：添加颜色。

如果您想继续，我建议从GitHub安装ggp​​lot2的开发版本。 通常，会议上显示的某些内容尚未在CRAN上。 ggtext绝对不适用于ggplot的某些旧版本。

您必须从GitHub安装ggtext，因为在我撰写本文时，该软件包尚未在CRAN上。 我使用remotes::install_github()从GitHub安装R包，尽管其他几个选项（例如devtools::install_github()工作。 请注意，在下面的代码中，我包含了参数build_vignettes = TRUE因此我具有软件包vignettes的本地版本。 之后，我加载ggplot2，ggtext和dplyr。

remotes::install_github("tidyverse/ggplot2", build_vignettes = TRUE)
remotes::install_github("wilkelab/ggtext", build_vignettes = TRUE)
library(ggplot2)
library(ggtext)
library(dplyr)

对于演示数据，我将使用将R的相关推文（带有#rstats主题标签）与Python的相关推文（#python）进行比较的数据。 下载最近的推文后，我进行了一些过滤，随机抽取了每个推文的1,000个样本，然后计算出每个组中至少有5个赞，有至少5个推文，包含URL并包含诸如照片或视频。

您可以使用下面的代码块重新创建数据集。 或者，您可以将任何有意义的数据集用作分组的条形图，并相应地修改我的后续图形代码。

Hashtag <- c("#python", "#python", "#python", "#python", "#rstats", "#rstats", "#rstats", "#rstats")
Category <- c("FiveLikes", "FiveRTs", "HasURL", "HasMedia", "FiveLikes", "FiveRTs", "HasURL", "HasMedia") 
NumTweets <- c(179, 74, 604, 288, 428, 173, 592, 293)
graph_data <- data.frame(Hashtag, Category, NumTweets, stringsAsFactors = FALSE)

graph_data数据帧采用“长”格式：一列用于标签（#rstats或#python），一列用于我正在测量的类别，一列用于值。

str(graph_data)
'data.frame':	8 obs. of  3 variables:
 $ Hashtag  : c