## Title: plot-plotmath-02
## Author: Paul Johnson <pauljohn at ku.edu>
## Date posted: 2013-02-05
## Description. Basic plotmath

plot(NA, xlim=c(0,100), ylim=c(0,100))

#show plot math works
text(16, 22, expression(slope == frac(partialdiff * f(hat(theta)),
partialdiff * hat(theta))))

## plotmath requires an R expression as the text to be plotted.
## expressions come from several R expressions, not just expression.

## I often want to put values of variables into the middle of expressions
## This is more difficult than you expect

avar1 <- 10

# It is easy to paste words with variables calculated by R
text(40, 40, paste("a word", avar1, "other words"))

## However, it is much tougher to integrate values
## calculated inside R with plotmath. I want something like

## beta = 10

## except beta is replaced by the symbol beta and the value of 10
## is retrieved from the variable "avar1".

## There are 2 ways I know of. 1) bquote and 2) substitute

## The bquote method works in an understandable way. It retrieves
## the value of a variable when it is given an argument .(avar1).
## The bquote function creates an expression.
text( 60, 20, bquote(beta == .(avar1)))

## bquote is easier for me to understand than substitute.

## But many examples we come across use substitute, it has a
## deep logic to it. I'm going to try to make this plain by
## putting the word "whatever" in the place where it needs to
## be substituted.

text( 60, 60, substitute( beta == whatever, list(whatever = avar1)))
## The last bit, list(whatever = avar1), tells substitute to
## scan the first argument, and replace whatever with the value of avar1.

## Make a tougher example of substitute.

avar2 <- 33.3

text(40, 80, substitute( paste( beta == thing1, ",", gamma == thing2), list(thing1 = avar1, thing2 = avar2)))

## It is possible to "pre-calculate" the plotmath expressions, and
## then use them. I think this makes for cleaner code

myExp1 <- expression(frac(alpha, beta))
text(20, 20, myExp1)

myExp2 <- expression(frac(partialdiff * g(x), partialdiff * f(x)))
text(50, 20, myExp2) ## I want to combine those expressions into a larger thing, that
## I could build up in a modular way. I searched for help with
## RSiteSearch and was disgusted to find I asked the same question
## in 2009. How time flies.

## And still I can't get it to work dependably. So I'm erasing the
## rest in disgust