Всякий раз, когда я запускаю этот код, первый график просто перезаписывает предыдущий. Разве нет пути в R, чтобы разделить, чтобы получить два графика?
plot(pc)
title(main='abc',xlab='xx',ylab='yy')
plot(pcs)
title(main='sdf',xlab='sdf',ylab='xcv')