如何在 R 中使用 ggplot2 将标题放在图中？

如何在 R 中使用 ggplot2 将标题放入绘图中？

图的标题提供了有关图形的信息，以便读者更容易解释变量应该描绘的关系。本文讨论了如何将标题放入绘图中，并进一步讨论了格式化标题的各种方法。下面给出的示例使用条形图。

使用 ggtitle()函数在绘图中添加标题。

句法：

ggtitle(“Title For Plot”)

稍后要将这个标题添加到绘图中，我们只需设置边距。

方法

• 指定数据对象。它必须是一个数据框，并且需要一个数字变量和一个分类变量。
• 调用ggplot2()函数并输入第一个参数“data”，然后设置美学函数“aes()”。
• 在aes()函数，为 X 轴设置分类变量，为 Y 轴使用数字。
• 使用 ggtitle()调用geom_bar() 。
• 添加边距
• 显示图

示例 1：

R

library(ggplot2)
  
data <- data.frame(
  name=c("A","B","C","D","E") ,  
  value=c(3,12,5,18,45)
)
  
ggplot(data, aes(x=name, y=value)) + 
  geom_bar(stat = "identity", fill = "green")+
  ggtitle("Title For Barplot")+
  theme(plot.title=element_text(margin=margin(t=40,b=-30)))

输出：

使用 ggplot2 自定义绘图标题

将标题设置为多行是一种常见的需求。要在标题中添加中断，只需在文本中写入'\n' 。如果您想加粗或突出显示某些单词，则只需使用expression()函数。本节描述如何相应地格式化插入的标题。

示例 1：

电阻

library(ggplot2)
  
data <- data.frame(
  name=c("A","B","C","D","E") ,  
  value=c(3,12,5,18,45)
)
  
# For Add Some Several Lines
ggplot(data, aes(x=name, y=value)) + 
  geom_bar(stat = "identity", fill = "green")+
  ggtitle("New Line Title \n For Barplot") +
  theme_minimal()
  
# For Highlight Some Word Or Words
my_title <- expression(paste("This is barplot with ", bold("Bold Title")))
ggplot(data, aes(x=name, y=value)) +  
  geom_bar(stat = "identity", fill = "green")+
  ggtitle(my_title) +
  theme(plot.title=element_text(margin=margin(t=40,b=-30)))

输出：

现在让我们通过带有plot.title参数的theme()函数修改我们的标题外观和位置。外观可以调整家庭，脸，颜色， 或大小。何时可以使用hjust & vjust更改位置。

示例 2：

电阻

library(ggplot2)
  
data <- data.frame(
  name=c("A","B","C","D","E") ,  
  value=c(3,12,5,18,45)
)
  
# Customise Title Appearance
ggplot(data, aes(x=name, y=value)) + 
  geom_bar(stat = "identity", fill = "green")+
  ggtitle("A Green & Bold Title") +
  theme_minimal() +
  theme(
    plot.title=element_text(family='', face='bold', colour='green', size=26, margin=margin(t=40,b=-30))
  )

.

输出：

示例 3：

电阻

library(ggplot2)
  
data <- data.frame(
  name=c("A","B","C","D","E") ,  
  value=c(3,12,5,18,45)
)
  
  
  
# Change Position of Title
ggplot(data, aes(x=name, y=value)) + 
  geom_bar(stat = "identity", fill = "green")+
  ggtitle("Plot with right sided Title") +
  theme_minimal() +
  theme(
    plot.title=element_text( hjust=1, vjust=0.5, face='bold', margin=margin(t=40,b=-30))
  )

输出：