[R] Sin curve question

[Rui Barradas]

Hello,

You can use stat_function, it will take care of all the details, all you 
have to do is to pass xlim.


library(ggplot2)
library(cowplot)

ggplot() +
   stat_function(fun = sin, xlim = c(0, pi)) +
   xlab("x") +
   ylab("sin(x)") +
   scale_x_continuous(breaks = seq(0, pi, pi/6), labels = seq(0, 180, 30)) +
   ggtitle("sin(x) vs x", subtitle = "x is in degrees") +
   theme_cowplot()


Hope this helps,

Rui Barradas

Às 19:41 de 24/07/21, Thomas Subia via R-help escreveu:
> Colleagues,
> 
> Here is my code which plots sin(x) vs x, for angles between 0 and 180
> degrees.
> 
> library(ggplot2)
> library(REdaS)
> copdat$degrees <- c(0,45,90,135,180)
> copdat$radians <- deg2rad(copdat$degrees)
> copdat$sin_x <- sin(copdat$radians)
> 
> ggplot(copdat,aes(x=degrees,y=sin_x))+
>    geom_point(size = 2)+ geom_line()+
>    theme_cowplot()+xlab("x")+
>    ylab("sin(x)")+
>    scale_x_continuous(breaks=seq(0,180,30))+
>    ggtitle("sin(x) vs x\nx is in degrees")
> 
> My trig students would prefer a curved line plot similar to what can be
> plotted with Excel smooth line functionality.
> I wanted to provide a relatively simple R script using ggplot to do this
> without having to resort to fitting a sine curve to these points.
> 
> Some guidance would be appreciated.
> 
> ______________________________________________
> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>