在r中绘制多条系列曲线

我有一个3列的csv。我希望在x轴上绘制

AMV

，在y轴上绘制

duration\u in\u traffic

在这种情况下，我有两个系列，我想画一个多项式回归拟合线这个特定的系列。因此，对于以下数据集，我将得到两条曲线

count_id    AMV duration_in_traffic
16012E  4004    99
16012E  4026    94
16012E  4099    93
16012E  4167    100
16012E  4239    97
16012E  4324    88
16012E  4941    104
16012E  5088    100
16012E  5283    100
16012E  5620    192
16012E  5946    276
16012E  6146    368
16012W  3622    97
16012W  3904    93
16012W  3979    94
16012W  4076    103
16012W  4189    96
16012W  4870    96
16012W  4899    252
16012W  5107    95
16012W  5659    102
16012W  6325    96
16012W  6460    341
16012W  6500    101

---

如何在R中绘制每个系列？

df是否可以绘制单个系列？你能给我看一下密码吗？
df <- read.table(header = T, stringsAsFactors = F, text = "  count_id    AMV duration_in_traffic
                   16012E  4004    99
                   16012E  4026    94
                   16012E  4099    93
                   16012E  4167    100
                   16012E  4239    97
                   16012E  4324    88
                   16012E  4941    104
                   16012E  5088    100
                   16012E  5283    100
                   16012E  5620    192
                   16012E  5946    276
                   16012E  6146    368
                   16012W  3622    97
                   16012W  3904    93
                   16012W  3979    94
                   16012W  4076    103
                   16012W  4189    96
                   16012W  4870    96
                   16012W  4899    252
                   16012W  5107    95
                   16012W  5659    102
                   16012W  6325    96
                   16012W  6460    341
                   16012W  6500    101")


library(ggplot2)

ggplot(aes(x = AMV, y = duration_in_traffic), data = df) + geom_point(aes(color = count_id)) + geom_smooth(aes(color = count_id), method= "lm", se = F, formula=y ~ poly(x, 3, raw=TRUE))