在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而不是为每个定义一个。 有人可以帮我解决这两个问题吗？

此致

取值

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)