发布网友 发布时间:2022-04-22 07:23
共1个回答
热心网友 时间:2022-06-17 15:17
代码如下:
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()