dd <- dredge(lm(formula = y ~ ., data = Cement, na.action = na.fail))
plot(dd,
# colours by coefficient value:
col.mode = "value",
par.lab = list(las = 2, line = 1.2, cex = 1),
bg = "gray30",
# change labels for the models to Akaike weights:
vlabels = parse(text = paste("omega ==", round(Weights(dd), 2)))
)
plot(dd, col = 2:3, col.mode = 0) # colour recycled by row
plot(dd, col = cbind(2:3, 4:5), col.mode = 0) # colour recycled by row and column
plot(dd, col = 2:3, col.mode = 1) # colour gradient by model weight
Run the code above in your browser using DataLab