Как вызвать столбцы для cbind, используя имена столбцов, сохраненные в векторе (попытка выполнить попарное сравнение столбцов с manova в R)

Question

Я пытаюсь выполнить парный анализ Мановы, где я перебираю все возможные пары моих столбцов. Я думаю, что это лучше всего передать на примере:

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() функция. Я видел кое-что об использовании скобок из этого вопроса здесь, но не могу заставить это работать для моего случая. Я могу назвать столбцы по их номеру (см. m4), но я бы предпочел использовать имена столбцов, если это возможно.

Answer 1

Вам нужно обернуть каждую запись из вектора, с которым вы звоните eval(as.symbol()),

Так:m1 <- manova(cbind(eval(as.symbol(varList[1])), eval(as.symbol(varList[2]))) ~ Species, data = iris) должно сработать.