如何使用ggplot2对数字进行编号

Question

对于R中的一般情节，legend用于对数字进行编号。

set.seed(100)
Mydata=rnorm(65)
Year=1950:2014
plot(x=Year,y=Mydata,type = "l")
legend("topleft","(a)",bty = "n")

我想知道如何使用ggplot2做同样的事情。谢谢。

Answer 1

使用网格可以独立于数据完成：

library(ggplot2)
qplot(Year, Mydata, geom = "line")

library(grid)
grid.text("(a)", 0.15, 0.85)

Answer 2

从版本2.2.0开始，ggplot2允许绘制可用于此目的的字幕和字幕。

副标题（左上角）

# create data frame as required by ggplot2
mydf <- data.frame(Year, Mydata)

library(ggplot2)
p <- ggplot(mydf, aes(Year, Mydata)) + 
  geom_line()

# plot subtitle (top left)
p + labs(subtitle = "(a)")

标题（右下角）

# plot caption (bottom right)
p + labs(caption = "(a)")

Answer 3

使用annotate的方式：

library(ggplot2)
set.seed(100)
Mydata=rnorm(65)
Year=1950:2014
data <- data.frame(Mydata = Mydata, Year = Year)

#plot
ggplot(data, aes(Year, Mydata)) + 
  geom_line() + 
  annotate('text', x = 1960, y = 2, label = '(a)')

输出：