如何将多个lm对象的系数附加到一个数据帧中？
将多个lm对象的系数附加到一个数据帧中可以通过以下步骤实现：
- 创建一个空的数据帧，用于存储系数。
- 遍历每个lm对象，获取其系数。
- 将每个lm对象的系数添加到数据帧中，可以使用rbind()函数将系数逐行添加。
- 可选：为数据帧添加列名，以标识每个系数对应的lm对象。
下面是一个示例代码：
# 创建一个空的数据帧
coefficients_df <- data.frame()
# 遍历每个lm对象
for (i in 1:length(lm_objects)) {
# 获取lm对象的系数
lm_coefficients <- coef(lm_objects[[i]])
# 将系数添加到数据帧中
coefficients_df <- rbind(coefficients_df, lm_coefficients)
}
# 可选：为数据帧添加列名
colnames(coefficients_df) <- c("lm_object1", "lm_object2", ...) # 根据实际情况修改列名
# 打印结果
print(coefficients_df)在上述代码中，lm_objects是一个包含多个lm对象的列表。coef()函数用于获取lm对象的系数。最后，通过rbind()函数将系数逐行添加到数据帧中，并使用colnames()函数为数据帧添加列名。
请注意，这只是一个示例代码，具体实现可能因实际情况而异。另外，由于题目要求不能提及特定的云计算品牌商，因此无法提供腾讯云相关产品和产品介绍链接地址。
相关·内容
2回答
如何优雅地选择和应用校准函数，比如使用ddply？
r、vectorization、plyr
我用一台仪器测量了许多不同的化合物，每种化合物都有不同的校准曲线。我想根据化合物的名称，对仪器的原始数据应用正确的校准曲线。因此，我从多个校准曲线和原始数据的数据帧开始：
#generate the calibration curves
x <- 1:10
calib.data.1 <- x+runif(10)
lm.1 <- lm(calib.data.1~x)
calib.data.2 <- 2*x+runif(10)
lm.2 <- lm(calib.data.2~x)
原始数据如下所示：
compound <- factor(c("cpd1&
浏览 1提问于2011-11-02得票数 4
回答已采纳
1回答
应用一系列命令拆分数据帧
r、split、lapply
我在弄清楚如何处理这个问题时遇到了一些困难。我有一个数据帧，我将其拆分成不同的站点(link5)。一旦拆分，我基本上想在子集上运行线性回归模型。下面是我正在使用的代码，但它绝对不正确。此外，如果我能将模型结果输出到新的数据框中，这样每个站点都有一行模型参数估计，那就太好了--这只是一个愿望，目前并不是必须的。谢谢你的帮助！
les_events <- split(les, les$link5)
result <- lapply(les_events) {
lm1 <-lm(cpe~K,data=les_events)
coef <- coef(lm1
浏览 4提问于2013-04-16得票数 0
我有一个192个数据帧的列表，每个数据帧包含几个变量。我的目标是为列表中的每个数据帧运行回归，并提取截取和betas，并将它们附加到一个新的数据帧中，因此我将拥有一个192行的数据帧和一列截取的列，以及几个用于betas的列。 我唯一能运行的方法是： # list with 192 lm objects #
reg_list = list()
# loop for running regressions and adding the results into the list #
for(i in 1:length(df)){
reg_list
浏览 19提问于2020-11-04得票数 0
回答已采纳
1回答
data.frame ~冒号行上的lm()
r、dataframe、regression、linear-regression、lm
我尝试对一个数据框架执行一个简单的lm()回归分析。显式地，我希望在数据帧的列名和每一行之间执行一次回归分析。我的数据框架如下所示：
d = data.frame(replicate(6,rnorm(6)))
colnames(d) = as.character(0:5)
但是，我的lm()不起作用：
lm(d[1,]~colnames(d))
#Error in model.frame.default(formula = d[1, ] ~ colnames(d), drop.unused.levels = TRUE) :
#invalid type (list) for variable
浏览 2提问于2016-09-26得票数 2
回答已采纳
1回答
首先，我使用RStudio。我有一个数据帧(APD)，我想将w.r.t拟合到因子Serial_number。拟合是一种lm拟合。然后我想使用这个fit来做一个校准(calibrate() out of the investr package)。
以下是我的数据的示例图片：
下面是数据：
目前，我使用以下几行代码通过Serial_number进行拟合：
Coefficients<- APD %>%
group_by(Serial_number) %>%
do(tidy(fit<- lm(log(log(Amplification)) ~ Voltag
浏览 1提问于2017-06-30得票数 0
2回答
R循环-拾取下一个输入并将输出存储到数据帧中
r、loops、dataframe
所以我是R的新手，基本上我希望从一个数据帧中获取数据并将输出存储到新的数据帧中的大量回归，但也要创建一个循环来自动“拾取下一个输入”并跳过重复项。
我附上了一张我的数据的照片。
这是我运行回归的代码
#inputs
Airport = "ABZ"
#choose target airport & nation GDP
df <- subset(Elasticities_Study, Airport_Code==Airport)
#log-log
df <- data.frame(df$Year, df$Region,
df$
浏览 4提问于2017-09-19得票数 1
3回答
存储具有不同系数的模型的系数估计
r、regression、coefficients
我正在尝试存储不同模型的系数估计值。为了说明我的问题，这里有一个例子。
library(fpp)
creditlog <- data.frame(score=credit$score,
log.savings=log(credit$savings+1),
log.income=log(credit$income+1),
log.address=log(credit$time.address+1),
log.employed=log(credit$time.employed+1))
fit_1 <-lm(score ~ log.income + log.a
浏览 0提问于2014-10-03得票数 2
1回答
你能在R中的用户定义函数中运行连续的While循环吗？
r、function、loops、while-loop
我已经写了一个UDF，在里面我试图运行4个连续的while循环。它们是单独的循环，因为它们各自使用的输入略有不同，但是当函数执行时，只有第一个while循环的结果存放在数据帧中，我不太明白为什么。
我的代码如下，应该是可执行的：
# polydata is a set of specific numbers, but here a random sample is fine.
polydata = sample(1:60, 91)
# User Defined Function - argument "f.day" is an integer, I have been tes
浏览 0提问于2017-04-10得票数 1
1回答
循环数据帧的r函数
r、function、loops
我很抱歉，如果这是一个重复或有点混乱-我已经搜索了四周，但似乎无法应用，找到我想要完成的。我没有广泛地使用函数/循环，尤其是从头开始编写，所以我不确定错误是来自函数(可能)还是来自数据的构造。基本流程如下：
虚拟数据集-分组、类型、比率、年份、月份
我通过对数据集进行分组来运行lm公式：
coef_models <- test_coef %>% group_by(Grouping) %>% do(model = lm(rate ~ years + months, data = .))
上面的结果给出了变量的截取和系数--接下来我试图完成的(和失败的)是对所有负估计的系数，把这
浏览 1提问于2018-03-23得票数 0
回答已采纳
2回答
访问线性回归的截距因子水平
r、for-loop
我在做一个联合练习。其中一部分是对一组因子级输出进行线性回归。我试图找出一个程序是为了找到最佳的选择。回归输出如下所示：
(Intercept) 3.8750 0.9960 3.890 0.00367 **
Screen10 -0.3750 0.6591 -0.569 0.58329
CellY -0.3750 0.6591 -0.569 0.58329
Price300 -0.8333 0.8022 -1.039 0.32599
Price500 -1.1667 0.8022
浏览 1提问于2021-03-18得票数 0
回答已采纳
2回答
如何得到线性回归曲线的f(x)=kx+d形式？
r、ggplot2、regression、linear-regression
我有一个带有时间数据的数据框架dt.Data (这个数据帧的值每天都在变化)，我正在用ggplot()绘制相关散点图和回归线。R代码如下所示：
set.seed(123)
## Create data frame: ##
df.Data <- data.frame(date = seq(as.Date('2018-01-01'), by = '1 day', length.out = 1100),
DE = rnorm(1100, 2, 1), AT = rnorm(1100, 5, 2))
corPearso
浏览 1提问于2020-10-01得票数 0
回答已采纳
1回答
在R中创建线性回归循环，并在额外的列(价格弹性)中打印系数。
r、loops、for-loop、linear-regression、coefficients
到目前为止，我们对R的经验很少，需要创建一个循环。我们有一个数据集，包含150多个品牌及其销售量和相应的价格。我们需要对每个品牌进行一个回归(为了计算150种不同的价格弹性)。因为我们不想在R脚本中键入每个品牌的每个lm函数，所以我们希望使用一个循环来或多或少地为每个品牌自动创建回归函数。此外，我们需要将价格系数(即价格弹性)放入数据的另一列(绘制价格弹性)。我们考虑使用for()循环函数，但这没有起作用。我们可能在这个函数的说明上犯了一个错误，因为它只计算了所有品牌的一个价格弹性。你有什么主意吗？我们期待得到任何帮助:)
这是我们线性回归的代码：
在这里，我们为“百威”品牌创建了一个data
浏览 0提问于2018-05-04得票数 0
我想要计算数据集中每个日期的指数因子的betas和intercept回归收益，按公司分组，并使用该日期之前的-50，-10区间。我还想将截取和beta保存在数据框中的两个新列中。 Company Return date indexfactor
1: TSLA NA 2020-01-02 1
2: TSLA 0.02963319 2020-01-03 2
3: TSLA 0.01925467 2020-01-06 3
4: TSLA 0.03880052 20
浏览 7提问于2021-10-21得票数 0
2回答
将回归结果输出到R中的数据框中
r、sas、output、lm
我想知道是否有任何命令可以将lm模型的结果输出到R中的数据帧中，就像SAS中的outest一样。有什么想法吗？我正在运行多个模型，我希望结果如下所示-
Model | alpha | Beta | Rsquared | F | df |
model0 | 8.4 | ... | .... | ..| .. |
model1 | ... | ... | .... | ..| .. |
model2 | ... | ... | .... | ..| .. |
我有的数据是'ds‘，这是-
X1 | X2 | Y1
浏览 0提问于2013-12-30得票数 3
我试图在分组数据帧上运行简单的线性回归，并为每个回归创建一个包含截距、梯度和R^2值的摘要数据框架。我知道可以分别使用lm(formula = var1 ~ var2, data = df)$coefficients[["(Intercept)"]]和lm(formula = var1 ~ var2, data = df)$coefficients[["y"]]收集单个回归的截距和梯度，但是当我试图将其与summarise结合时，会出现以下错误：
lm中的错误(公式= var1 ~ var2)$coefficients["y"]：下标超出界
(
浏览 3提问于2020-04-21得票数 1
回答已采纳
2回答
如何按名称访问存储在R data.table对象中的列表项
r、list、data.table
我想使用data.table功能来运行每月回归和返回系数，残差等。 在下面的示例代码中，我希望能够看到每个命名列表。我的第一个reg.list调用就是这样做的，但是它要求我为我想要返回的每个列表调用我的fit.lm助手函数。这可能不是很有效。我的第二个reg.list调用只调用它一次，但我将所有变量串在一起，而不是在命名列表中。也许我没有以正确的方式来处理这个问题。 f1 <- data.table(datadate = '1/1/2019', id=paste('id', 1:100, sep=''), x=runif(100), y=
浏览 33提问于2019-09-19得票数 1
2回答
如何保存二次多项式线性模型的系数，并在R中进行预测？
r、linear-regression、lm
我有50k个客户的数据。我必须为每个客户拟合一个多线性模型，并保存系数，而不是保存完整的模型。我想将这些系数与输入特征数据相乘，得到响应值。对于一个客户模型来说， data <- data.table(x=c(6.831,20.34083,33.85067, 47.3605, 60.87033, 74.38017, 87.89),
y=c(0.2098555,0.1593422,0.1191542,0.08804057,0.06445684,0.0468659
0.03390175))
model2 <- lm(y ~ pol
浏览 9提问于2020-04-17得票数 0
所以我有一个载体，它基本上是一个物种列表，例如：
list_species<-c("Pomphorhynchus laevis","Profilicollis altmani","Leptorhynchoides thecatus","Mayarhynchus karlae","Oligacanthorhynchus tortuosa","Pseudoacanthocephalus toshimai","Corynosoma australe")
我有一个函数，可以从这些物种的
浏览 5提问于2020-02-26得票数 0
1回答
R:如何在数据帧列表上循环线性模型？
r、loops、linear-regression
我有一个名为AllFramesCoeff的数据帧列表。我想要生成一个随机数，让我的数据帧列表引用这个数字来引用一个随机数据帧，并使用一个for循环对列表中的185个数据帧中的一个使用lm模型。我要它做1000次随机测试。
我还想把lm系数结果放在一个对象中，可能是一个向量。
我的计划是稍后返回并创建直方图、发行版，或者插件新列来重复它。
我试过的是：
m <- matrix(0, ncol = 2)
CorrResults<- as.data.frame(m)
for (i in length(WaFramesCoeff)) function() {
r <- sampl
浏览 0提问于2018-03-01得票数 1
回答已采纳
2回答
允许绑定表中的重复名称
r、kableextra
我改变投票的原因。
这段代码显示了表，但R没有编织pdf。
all_jt %>%
kbl(longtable = T, booktabs = T,
caption = "table") %>%
remove_column(7) %>%
add_header_above(c(" " = 2, "Year 1" = 4, "Year 2" = 4)) %>%
kable_styling(latex_options = c("repeat_header"))
Qu
浏览 3提问于2021-05-19得票数 3
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
