3

y=log(1+x) と y=x を [-0.25, 0.25] の範囲でプロットしたい。これまでの私のコードは次のとおりです-

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

これら 2 行の凡例を追加する方法がわかりません。guide_legend を使用してみましたが、今のところ何も機能しません。

何か案は？

4

2 に答える 2

4

部分的な答え:

ggplot(data.frame(x=c(-0.25, 0.25)), aes(x=x)) + 
    geom_path(aes(colour="red"), stat="function", fun=log1plusx)+
    geom_path(aes(colour="blue"), stat="function", fun=self) +
    scale_colour_identity("Function", guide="legend", 
                          labels = c("log1plusx", "self"), 
                          breaks = c("red", "blue"))

私の意見では、プロットする前に data.frame を作成したほうがよいでしょう。

于 2013-05-28T16:30:46.637 に答える
1

これが私がそれを解決した方法です。他のアイデアは大歓迎です。

log1plusx <- function(x) log(1+x)
self <- function(x) x
plot.range1 <- data.frame(x=c(-0.25, 0.25), Functions = factor(1))
plot.range2 <- data.frame(x=c(-0.25, 0.25), Functions = factor(2))

ggplot(NULL, aes(x=x, colour=Functions)) +
  stat_function(data = plot.range1, fun = log1plusx) +
  stat_function(data = plot.range2, fun = self) +
  scale_colour_manual(values = c("red", "green"), labels = c("log(1+x)", "x")) +
  theme(axis.title.y=element_blank())
于 2013-05-28T16:43:53.230 に答える