Как инкапсулировать код mocha `ожидаем ()`?

Обратите внимание, что « cex » изменяет ситуацию, когда график сделан с текстом. Например, график агломеративной иерархической кластеризации:

library(cluster)
data(votes.repub)
agn1 <- agnes(votes.repub, metric = "manhattan", stand = TRUE)
plot(agn1, which.plots=2)

приведет к созданию графика с нормальным размером текста:

[/g1]

и plot(agn1, which.plots=2, cex=0.5) произведут это:

[/g2]