根据同时点击的用户,我有关于网站响应时间的数据。
例如:
10 个用户同时点击有(平均)响应时间 300 毫秒
20 个用户 -> 450 毫秒等
我在 R 中导入数据,并从 2 列数据(用户、响应时间)中绘制图表。我还使用该函数loess
在图中绘制了关于这些点的线。
这是我写的代码:
users <- seq(5,250, by=5)
responseTime <- c(179.5,234.0,258.5,382.5,486.0,679.0,594.0,703.5,998.0,758.0,797.0,812.0,804.5,890.5,1148.5,1182.5,1298.0,1422.0,1413.5,1209.5,1488.0,1632.0,1715.0,1632.5,2046.5,1860.5,2910.0,2836.0,2851.5,3781.0,2725.0,3036.0,2862.0,3266.0,3175.0,3599.0,3563.0,3375.0,3110.0,2958.0,3407.0,3035.5,3040.0,3378.0,3493.0,3455.5,3268.0,3635.0,3453.0,3851.5)
data1 <- data.frame(users,responseTime)
data1
plot(data1, xlab="Users", ylab="Response Time (ms)")
lines(data1)
loess_fit <- loess(responseTime ~ users, data1)
lines(data1$users, predict(loess_fit), col = "green")
这是我的情节图像:
我的问题是:
如何在同一图中绘制我的非线性函数以将其与其他线进行比较?
例如:response_time (f(x)) = 30*users^2。还有如何对函数线
loess
和我的函数进行预测并将它们显示到图中,例如:如果我的数据直到 250 个用户,则进行预测直到 500 个用户