R help - Sep 2009 - get function to return object "name"?

Dear list,

I've written a function that plots subjects. Something like:

myplot <- function(subject) { plot(subject) }

Subjects are vectors, e.g. ...
s1 <- c(200,200,190,180)
... and plotting them works fine, e.g. ... 
myplot(s1)

Now I want to have "s1" etc appear in the plot title, but I don't
know
how to refer to this generically (the object "name"? I tried
as.name(s1) but that returns the first element of the vector).

So I want something like :

myplot <- function(subject) { plot(subject,main=X) }

where X is the expression I'm looking for, and the plot should have the
title
"s1" if I've called myplot(s1), "s2" if myplot(s2), etc.

I'm sure I'll be really embarrassed that this is so trivial but I
cannot figure it out.


Marianne

-- 
Marianne Promberger PhD
King's College London

Hi,

Try this,

 myplot <- function(subject) { plot(subject,
main=deparse(substitute(subject))) }
 s1 <- c(200,200,190,180)
 myplot(s1)

see ?deparse

HTH,

baptiste




2009/9/2 Marianne Promberger <mpromber@psych.upenn.edu>
> Dear list,
>
> I've written a function that plots subjects. Something like:
>
> myplot <- function(subject) { plot(subject) }
>
> Subjects are vectors, e.g. ...
> s1 <- c(200,200,190,180)
> ... and plotting them works fine, e.g. ...
> myplot(s1)
>
> Now I want to have "s1" etc appear in the plot title, but I
don't know
> how to refer to this generically (the object "name"? I tried
> as.name(s1) but that returns the first element of the vector).
>
> So I want something like :
>
> myplot <- function(subject) { plot(subject,main=X) }
>
> where X is the expression I'm looking for, and the plot should have the
> title
> "s1" if I've called myplot(s1), "s2" if myplot(s2),
etc.
>
> I'm sure I'll be really embarrassed that this is so trivial but I
> cannot figure it out.
>
>
> Marianne
>
> --
> Marianne Promberger PhD
> King's College London
>
> ______________________________________________
> R-help@r-project.org mailing list
> 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.
>


-- 
_____________________________

Baptiste Auguié

School of Physics
University of Exeter
Stocker Road,
Exeter, Devon,
EX4 4QL, UK

http://newton.ex.ac.uk/research/emag
______________________________

	[[alternative HTML version deleted]]