我想在 [-0.25, 0.25] 范围内绘制 y=log(1+x) 和 y=x。到目前为止,这是我的代码-
library(ggplot2)
log1plusx <- function(x) log(1+x)
self <- function(x) x
ggplot(data.frame(x=c(-0.25, 0.25)), aes(x=x)) + stat_function(fun=log1plusx, color="red") + stat_function(fun=self, color="blue")
我不知道如何为这两行添加图例。尝试使用guide_legend,但到目前为止没有任何效果。
有任何想法吗?