ggplot2 - 游泳者绘制颜色编码

Question

我正在为游泳者绘制一组数据。我正在尝试根据患者是否仍在接受治疗来对每个条形码进行颜色编码。根据患者是否接受治疗，添加图例和此颜色编码的正确功能是什么？

示例数据框TonT1：

Patient ID        Time1(months)     On Treatment (1 for yes, 0 for no)
1                     6                    1
2                     4.7                  0
3                     2.3                  1
4                     9.7                  1

......等等。

我的代码如下：

ggplot(data=TonT1, aes(x=reorder(Patient.ID, Time1), y=Time1)) + ylim(0,15) + ylab("Time on Therapy") + xlab("Patient ID") + theme_classic() + geom_bar(stat="identity", width = 0.5, fill = "steelblue")