如何在带有左对齐和右对齐文本的绘图中添加标题

Question

这里是我要实现的示例，但是使用了PerformanceAnalytics。

library(PerformanceAnalytics)

data(edhec)
chart.TimeSeries(edhec)

这给出了图形： 您会看到标题在标绘的主面板内都左对齐 Convertible Arbitrage 和日期右对齐 ，这是“ pre- ggplot” R个量子包（例如，参见quantmod）。

我的问题是如何在情节的ggplot2或title中用subtitle来做到这一点？

编辑。明确说明了我要求的文本对齐方式。

Answer 1

您可以手动cowplot::draw_text

library(ggplot2)
library(cowplot)
p <- ggplot(mtcars, aes(mpg, wt)) +
    geom_point() +
    labs(title = "")

ggdraw(p) +
    draw_text("Miles/gallon vs. weight (in 1000 lbs)", x = 0.01, y = 0.99, hjust = 0, vjust = 1) + 
    draw_text("Dataset: mtcars", x = 0.99, y = 0.99, hjust = 1, vjust = 1)

labs(title = "")对于为标题创建空白空间是必需的。