用ggplot2绘制“倒V”功能

Question

尝试使用ggplot复制绘图功能时遇到了一个问题。我有两个函数，定义如下：

GetMse <- function(x) 1 - max(x, 1 - x)
GetGini <- function(x) 2 * x * (1 - x)

在R中使用默认绘图系统，该图如下所示：

现在ggplot出现了问题：图1中的红色函数在图2中绘制为直线。

任何想法或指针？ ggplot代码粘贴在下方。

library(ggplot2)
ggplot(data = data.frame(x = c(0.00001, 0.99999)), aes(x)) +
    stat_function(fun = GetGini, geom = "line") +
    stat_function(fun = GetMse, geom = "line", colour = "red")

Answer 1

GetGini会返回一个向量，但GetMse会返回一个标量，并使用GetMse修复pmax。