R ggplot2中不同线条的两种不同比例颜色梯度2（）

基本型号：

Opt型号：

我将它们保存为（基本模型=pr_base）和（优化模型=pr）-pr是精确召回

我使用以下代码将它们绘制为

ggplot

：

pr <-  readRDS("pr.rds")
pr_base <- readRDS("pr_base.rds")



ggplot() +
  geom_line(data = data.frame(pr$curve), aes(x = X1, y = X2, color = X3)) +
  geom_line(data = data.frame(pr_base$curve), aes(x = X1, y = X2, color = X3)) +
  labs(x = "r",y = "p", title = "prc", colour = "legend") +
  scale_colour_gradient2(low = "white", mid = "grey", high = "black")

---

pr这有点像黑客。我甚至不确定这样呈现数据是不是一个好主意——这有点违背了可视化应该尽可能清晰地表示数据的原则。也许值得考虑另一种表示数据的方法。无论如何

对于第二行映射，可以使用
color=1-X3
反转颜色映射。然后，您可以使用填充美学添加第二个颜色栏图例。我们将填充美学应用于具有零高度条的虚拟几何图形条，因为除非使用美学，否则它不会显示在图例中

d1 = data.frame(X1 = 0:5, X2=0:5, X3=(0:5)/5)
d2 = data.frame(X1 = 0:5, X2=1:6, X3=(0:5)/5, Xfake = 0)

ggplot(mapping =  aes(X1, X2)) +
  geom_line(data = d1, aes(color = X3)) +
  geom_line(data = d2, aes(color = 1-X3)) +
  geom_bar(data = d2, mapping = aes(y=Xfake, fill = X3), stat = 'identity') +
  scale_colour_gradient(name = 'trace1', low = "white", high = "black") +
  scale_fill_gradient(name = 'trace2', low = "black", high = "white")