And if you have multiple labels, use lapply with bquote:
plot(1:5, sin(101:105)^2, type="n")
text(2:4, sin(102:104)^2, labels=lapply(102:104,
function(i)bquote(sin(.(i))^2)))
-Bill
On Tue, Dec 29, 2020 at 8:31 AM Bert Gunter <bgunter.4...@gmail.com> wrote:
> Does this do what you want?
>
> plot(0:1, 0:1)
> x <- .25
> text(.5,.5, labels = bquote(.(x)^6, list(x= x)))
>
>
> Bert Gunter
>
> "The trouble with having an open mind is that people keep coming along and
> sticking things into it."
> -- Opus (aka Berkeley Breathed in his "Bloom County" comic strip )
>
>
> On Tue, Dec 29, 2020 at 7:50 AM Sorkin, John <jsor...@som.umaryland.edu>
> wrote:
>
> > Colleagues,
> >
> > I would like to create a number (stored in the variable x) to the number
> > with the exponent of, i.e. the number to the sixth power. The code I have
> > tried, pasted below does not work.
> >
> > # create plot
> > plot(x=0.2,y=0.2,xlim=c(0,1),ylim=c(0,1))
> > PNotSusp=0.69
> > # Create a string containing the base and exponent.
> > x <- 0.95123
> > # Convert the base to text and add the exponent of 6
> > mylab <- expression(paste(" ",character(x)^6))
> > # Add the text to the plot
> > text(0.4,0.8,labels=paste(PNotSusp,"=\n",mylab))
> >
> > I hope someone can show me how to create the text string I need.
> >
> > Thank you,
> > John
> >
> > John David Sorkin M.D., Ph.D.
> > Professor of Medicine
> > Chief, Biostatistics and Informatics
> > University of Maryland School of Medicine Division of Gerontology and
> > Geriatric Medicine
> > Baltimore VA Medical Center
> > 10 North Greene Street
> > GRECC (BT/18/GR)
> > Baltimore, MD 21201-1524
> > (Phone) 410-605-7119
> > (Fax) 410-605-7913 (Please call phone number above prior to faxing)
> >
> >
> > ______________________________________________
> > R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> > https://stat.ethz.ch/mailman/listinfo/r-help
> > PLEASE do read the posting guide
> > http://www.R-project.org/posting-guide.html
> > and provide commented, minimal, self-contained, reproducible code.
> >
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
