# [R] Sin curve question

Rui Barradas ru|pb@rr@d@@ @end|ng |rom @@po@pt
Sat Jul 24 21:49:18 CEST 2021

```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,

À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)
>
> 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