# [R] plotting partial deriviatives

Charles Annis, P.E. Charles.Annis at StatisticalEngineering.com
Sun Mar 5 17:05:41 CET 2006

```Vielen Dank, Uwe!

I dunno how I missed it.  Looking only at the demo(plotmath), I guess.
Thanks again!

Charles Annis, P.E.

Charles.Annis at StatisticalEngineering.com
phone: 561-352-9699
eFax:  614-455-3265
http://www.StatisticalEngineering.com

-----Original Message-----
From: r-help-bounces at stat.math.ethz.ch
[mailto:r-help-bounces at stat.math.ethz.ch] On Behalf Of Uwe Ligges
Sent: Sunday, March 05, 2006 8:44 AM
To: Charles.Annis at statisticalengineering.com
Cc: r-help at stat.math.ethz.ch
Subject: Re: [R] plotting partial deriviatives

Charles Annis, P.E. wrote:

> Dear R Helpers:
>
> I am trying to annotate a plot.  The following code snippet works, but it
is
> kind of a kludge since it adds the partial derivative symbols after
creating
> the plotmath frac().  Is there a more elegant way to write a partial
> derivative?

See ?plotmath: There is "partialdiff"!

text(1.6, 1, expression(slope == frac(partialdiff * f(hat(theta)),
partialdiff * hat(theta))))

Uwe Ligges

> dev.off()
>
> plot(NA, xlim=c(-3,3), ylim=c(0,1.6), xlab="", ylab="", tck=-0.015)
>
> text(1.6, 1, expression(paste("slope = ", frac(paste("   f( ",
hat(theta),
> " )"), hat(theta))), sep=""), adj=0)
>
> text(2.25, 1.03, "\\pd", vfont=c("sans serif","plain"))
>
> text(2.3, 0.934, "\\pd", vfont=c("sans serif","plain"))
>
>
>
> Thanks.
>
>
> Charles Annis, P.E.
>
> Charles.Annis at StatisticalEngineering.com
> phone: 561-352-9699
> eFax:  614-455-3265
> http://www.StatisticalEngineering.com
>
>
> ______________________________________________
> R-help at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help