在R的lm（）函数的某个部分内使用字符变量向量

Question

我在R中执行回归分析，看起来如下：

lm_carclass_mod <- lm(log(count_faves+1)~log(views+1)+dateadded+group_url+license+log(precontext.nextphoto.views+1)+log(precontext.prevphoto.views+1)+log(oid.Bridge+1)+log(oid.Face+1)+log(oid.Quail+1)+log(oid.Sky+1)+log(oid.Car+1)+log(oid.Auditorium+1)+log(oid.Font+1)+log(oid.Lane+1)+log(oid.Bmw+1)+log(oid.Racing+1)+log(oid.Wheel+1),data=flickrcar_wo_country)
confint(lm_carclass_mod,level=0.95)
summary(lm_carclass_mod)

在我的分析中，因变量以及一些自变量变化很大，这就是为什么我想继续手动插入它们。

但是，我正在寻找一种方法来用一个函数替换所有的“oid ....”变量。

到目前为止，我已经提出以下建议：

g <- paste("log(",variables,"+1)", collapse="+")

不幸的是，这在lm（）函数中不起作用。这样的公式也不是：

g <- as.formula(
  paste("log(",variables,"+1)", collapse="+")
  )

向量变量包含以下元素：

variables <- ("oid.Bridge", "oid.Face", "oid.Quail", "oid.Off-roading", "oid.Sky", "oid.Car", "oid.Auditorium", "oid.Font", "oid.Lane", "oid.Bmw", "oid.Racing", "oid.Wheel")     

最后，我的回归模型看起来像这样：

lm_carclass_mod <- lm(log(count_faves+1)~log(views+1)+dateadded+group_url+license+log(precontext.nextphoto.views+1)+log(precontext.prevphoto.views+1)+g,data=flickrcar_wo_country)
confint(lm_carclass_mod,level=0.95)
summary(lm_carclass_mod)

感谢您的帮助！

Answer 1

您需要将两个部分转换为字符串，然后制作公式：

#the manual bit
manual <- "log(count_faves+1)~log(views+1)+dateadded+group_url+license+log(precontext.nextphoto.views+1)+log(precontext.prevphoto.views+1)"

#the variables:
oid_variables <- c("oid.Bridge", "oid.Face", "oid.Quail", "oid.Off-roading", "oid.Sky", "oid.Car", "oid.Auditorium", "oid.Font", "oid.Lane", "oid.Bmw", "oid.Racing", "oid.Wheel")     

#paste them together 
g <- paste("log(", oid_variables, "+1)", collapse="+")

#make the formula
myformula <- as.formula(paste(manual, '+', g))

然后将公式添加到lm中：

lm_carclass_mod <- lm(myformula, data=flickrcar_wo_country