Обикновено, когато правя свои собствени чертежни функции, правя конструкция: op <- par("mypar"=myvalue) on.exit(par(op)) което е стандартният начин за връщане на par към предишните стойности. Представете си, че сте изпълнявали някои...