1

我正在尝试执行成对的 manova 分析，在其中循环遍历所有可能的列对。我认为这最好用一个例子来传达：

varList <- colnames(iris)

m1 <- manova(cbind(varList[1], varList[2]) ~ Species, data = iris)
# Error in model.frame.default(formula = cbind(varList[1], varList[2]) ~  :
# variable lengths differ (found for 'Species')

m2 <- manova(cbind(noquote(varList[1]), noquote(varList[2])) ~ Species,
             data = iris)

# Error in model.frame.default(formula = cbind(noquote(varList[1]), noquote(varList[2])) ~  : 
# variable lengths differ (found for 'Species')

m3 <- manova(cbind(Sepal.Length, Petal.Length) ~ Species, data = iris)
m4 <- manova(cbind(iris[ ,1], iris[ ,3]) ~ Species, data = iris)

summary(m3)

#            Df Pillai approx F num Df den Df    Pr(>F)    
# Species     2 0.9885   71.829      4    294 < 2.2e-16 ***
# Residuals 147                                            
# ---
# Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

R.version.string
# [1] "R version 3.4.2 (2017-09-28)"

RStudio.Version()$version
# [1] ‘1.1.383’

cbind()我认为这与在我的函数中从向量中引用 colnames 更相关。我在这里从这个问题中看到了一些关于使用括号的信息，但无法让它适用于我的情况。我可以通过它们的编号来调用这些列（请参阅 参考资料m4），但如果可能的话，我更喜欢使用列名。

4

1 回答 1

1

You need to wrap each of the entries from the vector that you are calling with eval(as.symbol()).

So: m1 <- manova(cbind(eval(as.symbol(varList[1])), eval(as.symbol(varList[2]))) ~ Species, data = iris) should work.

于 2017-10-18T20:49:47.070 回答