У меня есть сюжет 1

curve(exp(x), from=1, to=5, lwd=5)
curve(150-exp(x), from=1, to=5, lwd=5, col="darkblue",add=T)

и внутри него я хотел бы добавить следующий сюжет 2

par(mar=c(7,7,1,1))
curve(exp(x), from=1, to=5, lwd=7, xlab="chi", ylab="exp(x)", cex.lab=4,axes=F)
axis(1, labels=NA,at=c(0,5))
axis(2, labels=NA,at=c(0,150))
text(1,120,"Alpha",adj=c(0,0),cex=3)
text(3.5,10,"Beta",adj=c(0,0),cex=3)

Чтобы получить следующее

Я также хотел бы сделать график 2 прозрачным, чтобы, если за графиком 2 были некоторые элементы графика 1, они все равно отображались (как синяя линия). Также важны большие метки сюжета 2 и отсутствие меток и галочек на нем ».с осями.

Это возможно? Пожалуйста, только базовые решения R (без ggplot2 / нет решетки)