ggplot2 标题和副标题之间的线

Question

Is there a way to include a line, like a separator, between the title and the subtitle with ggPlot? I know how to color the background of the title (see this Post)

Answer 1

One possible solution is to manually trace a segment using geom_segment while setting clip = "off" on coord_cartesian :

df <- data.frame(x = 1:10,
                 y = 2:11)

ggplot(df, aes(x = x, y = y))+
  geom_point()+
  labs(title = "Main Title", subtitle = "Subtitle")+
  coord_cartesian(clip ="off")+
  geom_segment(x =0.5, xend = 2.5, y = 12.1, yend = 12.1)

You will have to adapt the position based on data you are going to plot but it is one possible solution

Answer 2

Another option simply to underline your Main title

library(ggplot2)
df <- data.frame(x = 1:10,
                 y = 2:11)
ggplot(df, aes(x = x, y = y)) + 
  geom_point() +
  labs(title = ~ underline("Main Title"), subtitle = "Subtitle")

related thread: How to underline text in a plot title or label? (ggplot2)

You could also play around in order to achieve a solution as suggested by user Stephane Laurent in their comment, pasting some empty spaces after a line break

^{Created on 2020-04-22 by the reprex package (v0.3.0)}