在r中繪製多個系列曲線

Question

我有一個3列csv。我希望在y軸上繪製AMV，在y軸上繪製duration_in_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中繪製每個系列？

Answer 1

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))