r软件ggplot怎么画函数图像

Question

如题所述

Answer 1

代码如下：
require(ggplot2) #调ggplot2包
#定义函数sin(x)
f1 <- function(x) {
y <- sin(x)
d <- data.frame(x=x,y=y)
return(d)
}
x1 <- c(seq(0, 2*pi, 0.005), seq(-2*pi, 0, 0.005))
d1 <- f1(x1)
p1 <- ggplot(d1,aes(x,y)) +
geom_line(color="red") +
xlab("") +
ylab("") +
theme_bw()本回答被提问者和网友采纳