1

我正在努力在模拟器的运动曲线上绘制一个图形。我试图展示的是模拟器随时间的位移。

一些样本数据：

Time = c(0, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44)
Displacement = c(0, 0, 7, 0, 0, 7, 0, 0, -7, 0, 0)
DD = as.data.frame(Time, Displacement)

我想绘制一条直接穿过这些数据点的曲线/平滑线。

在此处输入图像描述使用 geom_line off course 会生成一条尖线。

我得到的最接近平滑线的是使用这段代码：

ggplot(DD, aes(x=Time, y=Displacement, c(0,7))) + 
  geom_smooth(method = "loess", se = FALSE, span = 0.2, colour="black")

在此处输入图像描述但是，曲线仍然很尖，我希望得到更漂亮的情节。

希望任何人都可以提供帮助:) 安妮

4

1 回答 1

1

尝试多项式拟合：

library(ggplot2)
#Code
ggplot(DD, aes(x=Time, y=Displacement, c(0,7))) + 
  geom_smooth(method = "lm",formula = y~poly(x,3), se = FALSE, span = 0.2, colour="black")

输出：

在此处输入图像描述

于 2021-01-14T17:50:04.187 回答