How do I even begin the code in R for this bivariate pdf?

Question

I know how to plot gamma dist for one variable, x<-seq(0.1,50,0.1) plot(dgamma(x,shape=5,scale=4)~x,ylab="f(x)")

But I do not know how to begin the code