我正在使用 nlsLM()
制作幂函数模型,但我需要在函数调用中汇总数据以找到适当的系数和指数。更具体地说,我的模型代码如下:
Jmod = nlsLM(value~(a)*summarise(funs(mean), (MW)^b),
start = list(a=100000, b = 1/3), data = mod_data,
upper = c(Inf,1), lower = c(0,1/5))
其中MW
是我尝试用来预测值
的数据。 MW
的数据已根据名为 datetime
的变量按月分组,因此我想取 MW^b
的月平均值其中 b
由 nlsLM()
语句找到。
我会事先取平均值,但您可能会意识到,这在数学上并不等价[即。 ((a+c)/2)^b 不等于 (a^b + c^b)/2]。
如果有人知道如何执行此操作,我将不胜感激!
编辑:
下面是制作我想要使用的示例数据集的代码:
structure(list(datetime = structure(c(1514782800, 1480568400,1504242000, 1509512400, 1509512400, 1485925200, 1517461200, 1485925200, 1501563600, 1467349200, 1472706000, 1454302800, 1483246800, 1498885200, 1506834000, 1477976400, 1483246800, 1477976400, 1509512400, 1496293200, 1451624400, 1454302800, 1454302800, 1464757200, 1498885200, 1517461200, 1462078800, 1506834000, 1522558800, 1483246800, 1501563600, 1451624400, 1485925200, 1501563600, 1451624400, 1517461200, 1475298000, 1480568400, 1512104400, 1456808400, 1477976400, 1475298000, 1517461200, 1459486800, 1501563600, 1477976400, 1506834000, 1506834000, 1451624400, 1483246800), class = c("POSIXct", "POSIXt"), tzone = ""), value = c(2863.27837518519, 2878.40382333333, 1236.74444444444, 3522.48888888889, 3522.48888888889, 2033.55555555556, 3305.5, 2033.55555555556, 2094.7037037037, 3052.91875740741, 2960.52222222222, 1733.7918262963, 2850.28673851852, 2841.40740740741, 3310.77538814815, 2266.26172851852, 2850.28673851852, 2266.26172851852, 3522.48888888889, 2802.55555555556, 2196.82556740741, 1733.7918262963, 1733.7918262963, 3001.43703703704, 2841.40740740741, 3305.5, 2061.4826762963, 3310.77538814815, 3107.01851851852, 2850.28673851852, 2094.7037037037, 2196.82556740741, 2033.55555555556, 2094.7037037037, 2196.82556740741, 3305.5, 2848.90322592593, 2878.40382333333, 2873.73476703704, 2208.64755074074, 2266.2172851852, 2848.90322592593, 3305.5, 2021.68765444444, 2094.7037037037, 2266.26172851852, 3310.77538814815, 3310.77538814815, 2196.82556740741, 2850.28673851852), mon = structure(c(2018, 2016.91666666667, 2017.66666666667, 2017.83333333333, 2017.83333333333, 2017.08333333333, 2018.08333333333, 2017.08333333333, 2017.58333333333, 2016.5, 2016.66666666667, 2016.08333333333, 2017, 2017.5, 2017.75, 2016.83333333333, 2017, 2016.83333333333, 2017.83333333333, 2017.41666666667, 2016, 2016.08333333333, 2016.08333333333, 2016.41666666667, 2017.5, 2018.08333333333, 2016.33333333333, 2017.75, 2018.25, 2017, 2017.58333333333, 2016, 2017.08333333333, 2017.58333333333, 2016, 2018.08333333333, 2016.75, 2016.91666666667, 2017.91666666667, 2016.16666666667, 2016.83333333333, 2016.75, 2018.08333333333, 2016.25,2017.58333333333,2016.83333333333, 2017.75, 2017.75, 2016, 2017), class = "yearmon"),
MW = c(2.6142700774997, 4.02670249993547, 0.666666666666667,
0.724114015571947, 4.07197668868287, 3.74122386862433, 3.30097429092907,
3.84858110028323, 0.666666666666667, 0.666666666666667, 4.35000446878457,
0.666666666666667, 0.666666666666667, 3.8371824280444, 0.825077317374,
0.666666666666667, 4.028058457579, 0.666666666666667, 4.3378032532779,
3.84270845997837, 1.40955788986009, 0.666666666666667, 0.666666666666667,
4.05845600900597, 4.00664052392117, 4.0295346724872, 0.666666666666667,
4.14159923664523, 4.231951299842, 3.9562222817766, 0.666666666666667,
3.61602795165213, 0.666666666666667, 3.58079262746603, 4.12197770915903,
4.2610646492437, 4.02152528469467, 1.0117763092792, 2.03648922832252,
0.666666666666667, 0.666666666666667, 3.8042476910097, 3.91787334748133,
0.666666666666667, 0.666666666666667, 0.89571472289964, 4.1530002677697,
3.93733212731873, 0.710671314318797, 0.666666666666667)), .Names = c("datetime", "value", "mon", "MW"), row.names = c(39113L, 12946L, 4365L, 37505L, 36601L, 31055L, 39814L, 31433L, 32105L, 20668L, 18191L, 8328L, 10232L, 25689L, 35528L, 4577L, 10302L, 5146L, 37975L, 29670L, 28429L, 7932L, 8468L, 23120L, 25111L, 39699L, 24312L, 36246L, 1556L, 11068L, 33269L, 29163L, 31685L, 32419L, 29059L, 40618L, 16751L, 11737L, 34371L, 6001L, 4864L, 16413L, 40304L, 8716L, 33190L, 5399L, 35610L, 36462L, 28338L, 10371L), class = "data.frame")
这将创建我用来制作模型的mod_data
。重申一下,我在这里所做的是按月对数据进行分组,在数据的 mon
列中找到,现在我想按月汇总数据,但指数包含在意思是,如我上面的代码所示。再次感谢!
最佳答案
问题中并不清楚你想要什么。您想为数据中的每个独特月份拟合一个单独的模型吗?或者您想要为所有数据拟合一个模型,然后取 MW^b
值的月平均值。 ?
这是处理后一种情况的一种方法。
require(minpack.lm)
require(tidyverse)
require(broom)
dat <- structure(...) # provided in the question
predictions <-
dat %>%
ungroup %>%
mutate(row = row_number()) %>%
do(augment(nlsLM(
formula = value ~ a * MW^b + 0*row,
data = .,
start = list(a = 100000, b=1/3),
upper = c(Inf, 1),
lower = c(0, 1/5)
)
)
)
joined <-
dat %>%
mutate(row = row_number()) %>%
left_join(predictions, by=c('MW', 'value', 'row')) %>%
select(-row)
joined %>%
group_by(mon) %>%
mutate(monthly_avg_prediction = mean(.fitted))
注释:
- 使用 broom 可以更轻松地完成此类任务。包裹。这是因为 broom 转换了模型查找函数的结果,例如
lm
,nls
,或nlsLM
等等到数据帧。因此,您不必记住或重新查找模型对象的特定于功能的结构(例如model$params[['estimate']][[1]])
或类似的东西;模型结果已经采用 R 标准数据帧格式。 - 我的解决方案使用了来自 this StackOverflow answer 的想法关于如何将扫帚生成的预测数据帧与原始数据连接起来。这就是为什么带有
row_number()
的东西和left_join()
都在里面。否则,在一般情况下,augment
会丢弃模型预测中未使用的原始数据帧中的数据,并且如果使用的数据中存在重复值,则效果不佳。 .fitted
列是由扫帚的augment
生成的功能。这是指定数据点的模型预测。- 结果(我认为您可能想要)位于
monthly_avg_prediction
中joined
栏目数据框。但这代表了一个单一的全局模型,适合所有数据,并且该模型的预测按月进行平均。
关于R:在 nlsLM() 语句内进行汇总,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/51752261/