graph<-ggplot(d,aes(x=d$AOE, y=d$MEI) )+ geom_point(shape=20, size=3)+ geom_rug()+ annotate("text", x = -1.1, y = 14000, label = "27/04/2011") + ...
確定！ 回上一頁
