Код, который пишет код, который при вставке в R рисует графы