R型多列曲线

Question

我正在绘制一个地块上的多个系列数据。

我有这样的数据：

count_id    AMV Hour    duration_in_traffic AMV_norm
1   16012E  4004    14  99  0
2   16012E  4026    12  94  22
3   16012E  4099    15  93  95
4   16012E  4167    11  100 163
5   16012E  4239    10  97  235

我在R图中使用：

ggplot(td_results, aes(AMV,duration_in_traffic)) + geom_line(aes(colour=count_id))

这给了我：

​

​

然而，不是直线连接点，我想弯曲。

我发现了下面的问题，但得到了一个意想不到的输出。Equivalent of curve() for ggplot

我用过：ggplot(td_results, aes(AMV,duration_in_traffic)) + geom_line(aes(colour=count_id)) + stat_function(fun=sin)

因此：

​

​

如何用某种形式的高阶多项式求出曲线？

Answer 1

正如@MrFlick在评论中提到的那样，有一些获得曲线的严肃的统计方法，这可能是这里不讨论的话题。

但是，如果您只想让您的图形看起来更好看，可以尝试使用spline插入数据，然后将其作为另一层添加。

首先，我们使用10倍的数据点(您可以根据需要增加或减少数据点)创建一些样条数据：

library(dplyr)
dat2 <- td_results %>% select(count_id, AMV, duration_in_traffic) %>%
                group_by(count_id) %>%
                do(as.data.frame(spline(x= .[["AMV"]], y= .[["duration_in_traffic"]], n = nrow(.)*10)))

然后，我们用原始数据绘制点，然后使用样条数据(Dat2)中的线条：

library(ggplot2)
ggplot(td_results, aes(AMV, duration_in_traffic)) +
   geom_point(aes(colour = factor(count_id))) +
   geom_line(data = dat2, aes(x = x, y = y, colour = factor(count_id)))

这给出了您的测试数据中的以下图表：

​