r - 在 rstudio 的一个图中绘制两个函数

Question

我有两个功能

fun1 <- function(x) -(2 * (sin(x) * cos(x)))
fun2 <- function(x) 2 * (cos(x) * sin(x))

我想将它们都绘制在一张图中。我有参数化

\gamma (x) =(-2*sin(x)*cos(x),2*cos(x)*sin(x))

实际上，如果可能的话，我想要一个函数（ex.fun3），其中两个都被定义，然后绘制 fun3 而不是为每个函数定义一个。有人可以帮我解决这两个问题吗？

问候，

s

Answer 1

check here 

https://rpubs.com/kaz_yos/ggplot2-stat-function

fun1 <- function(x) {-(2 * (sin(x) * cos(x)))}
    fun2 <- function(x) {(2 * cos(x) * sin(x))}
    ggplot(data=data.frame(0)) + stat_function(fun = fun1) + stat_function(fun = fun2)+xlim(-3,3)