Linear function axis scaling in R

Question

I have the following function

C=15
S=seq(0,12,.1)
pA=1
pS=0.5

    
    A <- function(S) (C/pA)-(pA/pS)*S
    
    plot (S, A(S), type="l", col=&