ggplot geom_bar根据条件使用单独的颜色填充连续颜色

这是一个可复制的样本数据集，具有基于的连续填充Amount。正如你可以从下面的示例中看到的，我也有一列d叫flag。我想要的是能够flag通过将条形图的边框颜色更改为红色来进行可视化。

# create reproducible data
library(ggplot2)
d <- read.csv(text='Day,Location,Length,Amount,flag
    1,4,3,1.1,FALSE
    1,3,1,2,FALSE
    1,2,3,4,FALSE
    1,1,3,5,FALSE
    2,0,0,0,FALSE
    3,3,3,1.8,TRUE
    3,2,1,3.54,FALSE
    3,1,3,1.1,FALSE',header=T)
ggplot(d, aes(x = Day, y = Length)) + 
geom_bar(aes(fill = Amount, order = -Location), stat = "identity")

我已经尝试过了alpha，但确实可以标记所需的条形，但是无法以我想要的方式可视化数据：

ggplot(d, aes(x = Day, y = Length)) + 
geom_bar(aes(fill = Amount, order = -Location, alpha = -flag), stat = "identity")

alpha使用-flags（note -）时也会使图例混乱，这是不可取的。

使用以下命令返回一个错误，我需要2个颜色变量，但我只需要1个，red：

ggplot(d, aes(x = Day, y = Length)) + 
geom_bar(aes(fill = Amount, order = -Location, alpha = -flag), stat = "identity") + 
scale_colour_manual(values = alpha(c('red')))

回顾一下：

1. 我想flag = TRUE用红色轮廓（或同样明显的东西）显示该条，而无需更改已经确定的连续比例Amount。

2. 我希望图例以flag = TRUE红色（或其他匹配颜色）反映出来。

我找不到在网上浏览的适用解决方案，因此非常感谢您的任何想法或建议！