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

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

Plot two functions in one plot in rstudio

plot

r

function

parametric-equations