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

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

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)) + 
  #%+replace%でテーマ上書きできるっぽい
  theme_minimal() %+replace% theme(panel.grid.major = element_line(size=0.5)) + 
  #ラインチャートの線種を強制的に変更
  scale_linetype_manual(values=c("dashed", "solid"))+
  #ラインチャートを書くよ
  geom_line(aes(linetype=type),size=1) +
  labs(x = "X yeah!!!", y="y yeah!!!") + 
  #数値のフォーマットを科学系に(scalesパッケージ)
  scale_y_continuous(labels = scientific_format())