15.10 사인 함수 곡선(Sine Function Curve), 코사인 함수 곡선(Cosine Function Curve) : stat_function(fun = sin), stat_fuction(fun = cos)

# 사인 함수 : fun = sin, 코사인 함수 : fun = cos
ggplot(data.frame(x=c(0,6.28)), aes(x=x)) +
   stat_function(fun=sin, colour="blue", size=1) +
   geom_text(x=0.2, y=0, label="sine curve") +
   
   stat_function(fun=cos, colour="yellow", size=1) + 
   geom_text(x=0.2, y=1, label="cosine curve") +
   
   geom_vline(xintercept=3.14, colour="grey", linetype="dashed", size=1) + # pi값에 세로 직선 추가  
   geom_vline(xintercept=6.28, colour="grey", linetype="dashed", size=1) + # 2pi값에 세로 직선 추가  
   ggtitle("Sine(blue curve), Cosine(yellow curve) Function")