Я решил "Ошибка в прямоугольнике (m [который [n]] + 0,66, пар (" usr ") [3L], m [который [n] + 1] + 0,33,: plot.new еще не было называется еще "рисование дендрограммы следующим образом:
USA.tree <- hclust(dist(USAarrest)
plot(hclust(dist(USAarrest))) #if I use plot(USA.tree) returns an error
x <- rect.hclust(USA.tree, k=3, border="red")
# x <- rect.hclust(USA.tree, h = 50, which = c(2,7), border = 3:4)
x