それっぽいグラフを書きたい - ２

これは君らにとって小さな一歩だが、私にとって偉大な飛躍なんだ。

library("ggplot2")
library("scales")
#元データ(適当)
df <- data.frame(x=rep(1:10, 2), y=rnorm(20), type=rep(LETTERS[1:2], each=10))
ggplot(df, aes(x=x, y=y)) + 
  #フォントを大きめに＆legendのタイトルいらん
  theme_minimal(base_size=16) %+replace% theme(legend.title = element_blank()) +
  geom_line(aes(linetype=type, size=type)) +
  labs(x = "I'm x", y="I'm y") + 
  scale_y_continuous(labels = scientific_format()) +
  scale_linetype_manual(values=c("solid", "solid"))+
  scale_size_manual(values=c(1, 2))