I have a function
such that the R code: x^{4/3})*(sin((4*y)/3). I want to plot this function for different values i.e.
x^{4/3})*(sin((4*y)/3)=0,
x^{4/3})*(sin((4*y)/3)=1,
x^{4/3})*(sin((4*y)/3)=2
etc... onto the same graph.
One of the plots should look like this: 
How can I do this in R?