similar to: substitute and expression

In this connection, note the following > a4 <- 4 > plotThis <- bquote(alpha==.(a), list(a=a4)) > do.call(plot, list(1:10, main=do.call(expression, c(plotThis)))) > do.call(plot, list(1:10, main=do.call(expression, plotThis))) Error in do.call(expression, plotThis) : second argument must be a list > ## Whereas plotThis has class "call", c(plotThis) has class

I am interested to use plotmath functions within a panel function but am having some problems getting the code right. Within each panel I am plotting the data, fitting a regression line, and would like to print the regression equation. Here is a trivial example of what I'd like to do: # generate simple data tmp.df <- data.frame(id = rep(1:4, each=4), time = rep(1:4, 4), das =

In trying to create a plotmath expression for plot labeling, such as R = 6, beta = 15 where I want beta to be the Greek beta and, possibly, R in italics (like one would get in an explicit expression. The reason for this is that I want to write a string builder function that takes vectors of variable names and their values and return a plotmath expression for labeling a plot. One approach I

Dear all; I wish to create a graphic object combing an xyplot() and an mtext(). My code looks like following, gmv <- { trellis.device("windows", bg="white", width = 7, height = 7) xyplot(Mvol ~ Age | Nl * Th , data = Hft1, prepanel = function(x, y) prepanel.loess(x, y, span = 1), xlab =list(label = "Age (Years)", font = 2),

I'm seeing inconsistent symbols from the same expression with the following code: expr = expression(sum(x, 1, n)) plot(1, main = expr, type = "n") text(1, 1, expr) Moreover, the inconsistency is reversed in r-devel compared to R 2.0.1. In particular, the main label shows a \bigoplus instead of \sum in r-devel, and the other way round in 2.0.1. demo(plotmath) shows \sum in

Greetings: I would like comments on this example and after fixing it up, I need help from someone who has access to insert this in R's help page for plotmath. I uploaded a drawing http://pj.freefaculty.org/R/Normal-2009.pdf that is created by the following code http://pj.freefaculty.org/R/Normal1_2009_plotmathExample.R This will be a good addition to the plotmath help page/example.

Here's another example of my plotmath whipping boy, the Normal distribution. A colleague asks for a Normal plotted above a series of axes that represent various other distributions (T, etc). I want to use vectors of equations in plotmath to do this, but have run into trouble. Now I've isolated the problem down to a relatively small piece of working example code (below). If you would

## I would like help in using variable values in plotmath expressions ## in lattice x <- 1:10 y <- 1:10 pval <- .95 plot(y ~ x, ## works as I want in base graphics main=substitute(list(alpha * " = " * group("",list(p),"")), list(p=pval))) plot(y ~ x, ## doesn't work as intended: "pval" is displayed main=substitute(list(alpha *

Hi, a few days back I had asked for help on a Qt device package. Thanks to hints from Duncan TL and Thomas Friedrichsmeier, I now have something more or less functional. For those interested, It can be downloaded from http://dsarkar.fhcrc.org/R/R-Qt.html I have a couple of related questions. First, dev.interactive(), used in example() and many demo()-s to decide if the current device is

I am looking for examples of code that demonstrates the fine tuning of the strip panels in lattice graphics and uses plotmath characters. The code for the graphic is as follows: xyplot(lagy ~ n | rho1 * rho2, data= data, layout=c(2,6), span = 1, xlab = "Sample Size", ylab = "Bias in the Coefficient for the Lag of X", type = "o") rho1 is a four level factor

dear R wizards: I would like to write a function that roughly places the equivalent of the following latex text into the current plot: \newcommand{ \placesigma }[4]{ \put(\#1,\#2){ \sigma_{A , #3} = #4 } I cannot figure out how to do this. I know I have to use a function that uses expressions in a text() invoke. But passing arguments and nesting strings and expressions has so far not

R listers: I have been foiled by plotmath! (in R 2.01,Windows 2000) The task: Plot a normal density and label the ticks as mu - 3 sigma, mu - 2 sigma, ...., mu + 3 sigma, where the mu's and sigmas appear as Greek symbols, of course. The following code does this: x<-seq(-3,to=3,by=.01) y<-dnorm(x) plot(x,y,type='h',col='lightblue',axes=FALSE)

hi all - i've seen versions of this question before, but none seem to get directly at my solving my (probably very simple) issue: i simply want to annotate the tick marks on an axis with (superscripted) 10^x notation, and tried this: axis(1, at = axTicks(1), as.expression(substitute(10^foo, list(foo = axTicks(1)))) thinking the as.expression/substitute would create the appropriate

Martin, I wouldn't rule out an R issue yet. Fonts are... tricky. So I'm cc'ing Paul Murrell here. I tried several viewers here and I see the following: Chrome, Firefox and Libreoffice Draw show the symbols; however, evince, okular and xournal++ agree on **not** showing the symbols. **If** there is a bug, the bug would be in fontconfig, because these ones AFAIK properly delegate on

Hi I don't think this is an R issue (it is separate from the Cairo Symbol font problem). For PDF output, R actually relies on the Symbol font having the Adobe Symbol Encoding (Appendix D of the PDF Reference https://opensource.adobe.com/dc-acrobat-sdk-docs/pdfstandards/pdfreference1.7old.pdf) and just outputs the font as "Symbol", which relies on it being one of the Standard

Dear R Experts, I am trying to produce a legend for a series of plots which are generated in a loop. The legend is supposed to look like this: 2000: gamma=1.8 where gamma is replaced by the greek letter and both the year and the value of gamma are stored in variables. Everything works fine as long as I have only one data series: year = 2001 g = 1.9 plot(1) legend('top',

I see. Peter, you are right about the font that causes the issue. Paul, thanks for your insights. I'll bring this to the Fedora font experts to see if we can arrive at a more permanent fix. I'll report back with any conclusion. @Martin: Meanwhile, at least you have options. One is to embed the fonts, either as Peter suggested or using cairo_pdf instead. Alternatively, Peter also has shown

I probably need to be more specific. What confuses me is not the use of substitute, but the parenthesis after the dots. It clearly works and I can make guesses as to why but it is definitely not obvious. The following function gives the same final result but I can understand what is happening. dots <- function (...) { exprs <- substitute(list(...)) as.list(exprs[-1]) } In the

If I have two variables set, one of which holds an expression, for example: > label <- 'Temperature' > unit <- expression(paste(degree,'C')) how can I join them together for use in mtext (or equivalent)? The following is conceptually what I want to do, but will obviously not work: > plot(0:1) > mtext(paste(label,unit)) Preferably, I would like this to work

Hi Martin and Tim, I also have this bug. Though I think not necessarily with all the same fonts as Martin. Using Martin's code: https://imgur.com/a/ILUoe3H Fedora 39, Evince 45.0 It's a bug with Evince. I think. I think it's substituting in a font set that doesn't have all the required symbols. I think it should be possible to install the required fonts, but I haven't