Re: [R] Metaplot Axis Annotation

2009-11-22 Thread Uwe Ligges



Ishwar Bridgelal wrote:

Hello,

We are looking to adjust the font size of the axis annotation on the graph
that results from use of the metaplot() function. Metaplot seems to respond
to cex and cex.lab to change those graphical parameters, but it doesn't
respond to cex.axis. Is there a way to work around this by creating a
customized x-axis, and if so, how?



Set the axis' character expansion for the whole device using par() as in:

  par(cex.axis=2)
  metaplot()

And for you next post:
Please provide reproducible code and tell us which package you are 
talking about (here "rmeta", I guess).


Best,
Uwe Ligges





Thanks for all your help. Syntax is below.

Best,

Dawn McDaniel
Ishwar Bridgelal
University of Southern California


local({pkg <- select.list(sort(.packages(all.available = TRUE)))

+ if(nchar(pkg)) library(pkg, character.only=TRUE)})
Loading required package: grid

m1=matrix(scan(file="C:/Users/Roymohan/Desktop/meta.txt"), ncol=4,

byrow=TRUE)
Read 208 items

oddsratio=m1[,2]
seinor=m1[,3]
inw=m1[,4]
c1=c("Cross-Drew (1974)", "Ahlstrom & Havighurst (1982)", "Litton & Marye

(1981)", "Gold & Mattick (1974)", "Willman & Snortum (1982)", "Leiber &
Mawhorr (1995)", "Hackler & Hagan (1974)", "Sadd, Kotkin, & Freidman
(1983)", "New York State Division for Youth (1972)", "Spergel (2005)",
"Bloom et al. (1997)", "Quigley et al. (1999)", "Thambidurai (1980",
"Schochet et al. (2001)", "Gruenewald, Laurence, & West (1985)", "Cave et
al. (1993)", "Elliot & Knowles (1976)", "Elliot & Knowles (1976)", "Porter
(1967)", "Kawaguchi (1975)", "Minnesota Governor’s Commission (1973)",
"Youth Opportunities Upheld (1978)", "Maynard (1980)", "Baker & Sadd
(1979)", "Goldberg & Johnson (1972)","Roth (1983)","Seckel & Turner
(1967)","Zimring (1973)","Randall (1973)","Anderson & Schumacker
(1986)","Lattimore, Witte, & Baker (1990)","Weisz, Walter, & Weiss
(1990)","Greenwood & Turner (1993)","Johnson & Goldberg (1982)", "Kovacs
(1967)","Auerbach (1978)","Guthmann (1981)","Sullivan & Mandall
(1967)","Blew, McGillis, & Bryant (1970)"
+ , "Custer (1981)", "Goldberg (1978)", "Bowker (1977)", "Zivan (1966)",
"Massimo & Shore (1966)", "Killinger (1974)", "Morris (1970)", "Bernardo
(1973)", "Mann & Pratt (1978)", "Goodwill Industries Vocational Service
(1971)", "Springfield Massachusetts Goodwill Industries, Inc. (1966)",
"Walter & Mills (1980)", "Odell (1974)")

metaplot(mn=oddsratio, se=seinor, labels=c1, cex=.65, lwd=2, cex.lab=.65)


[[alternative HTML version deleted]]





__
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.


__
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.


[R] Metaplot Axis Annotation

2009-11-21 Thread Ishwar Bridgelal
Hello,

We are looking to adjust the font size of the axis annotation on the graph
that results from use of the metaplot() function. Metaplot seems to respond
to cex and cex.lab to change those graphical parameters, but it doesn't
respond to cex.axis. Is there a way to work around this by creating a
customized x-axis, and if so, how?

Thanks for all your help. Syntax is below.

Best,

Dawn McDaniel
Ishwar Bridgelal
University of Southern California

> local({pkg <- select.list(sort(.packages(all.available = TRUE)))
+ if(nchar(pkg)) library(pkg, character.only=TRUE)})
Loading required package: grid
> m1=matrix(scan(file="C:/Users/Roymohan/Desktop/meta.txt"), ncol=4,
byrow=TRUE)
Read 208 items
> oddsratio=m1[,2]
> seinor=m1[,3]
> inw=m1[,4]
> c1=c("Cross-Drew (1974)", "Ahlstrom & Havighurst (1982)", "Litton & Marye
(1981)", "Gold & Mattick (1974)", "Willman & Snortum (1982)", "Leiber &
Mawhorr (1995)", "Hackler & Hagan (1974)", "Sadd, Kotkin, & Freidman
(1983)", "New York State Division for Youth (1972)", "Spergel (2005)",
"Bloom et al. (1997)", "Quigley et al. (1999)", "Thambidurai (1980",
"Schochet et al. (2001)", "Gruenewald, Laurence, & West (1985)", "Cave et
al. (1993)", "Elliot & Knowles (1976)", "Elliot & Knowles (1976)", "Porter
(1967)", "Kawaguchi (1975)", "Minnesota GovernorÂ’s Commission (1973)",
"Youth Opportunities Upheld (1978)", "Maynard (1980)", "Baker & Sadd
(1979)", "Goldberg & Johnson (1972)","Roth (1983)","Seckel & Turner
(1967)","Zimring (1973)","Randall (1973)","Anderson & Schumacker
(1986)","Lattimore, Witte, & Baker (1990)","Weisz, Walter, & Weiss
(1990)","Greenwood & Turner (1993)","Johnson & Goldberg (1982)", "Kovacs
(1967)","Auerbach (1978)","Guthmann (1981)","Sullivan & Mandall
(1967)","Blew, McGillis, & Bryant (1970)"
+ , "Custer (1981)", "Goldberg (1978)", "Bowker (1977)", "Zivan (1966)",
"Massimo & Shore (1966)", "Killinger (1974)", "Morris (1970)", "Bernardo
(1973)", "Mann & Pratt (1978)", "Goodwill Industries Vocational Service
(1971)", "Springfield Massachusetts Goodwill Industries, Inc. (1966)",
"Walter & Mills (1980)", "Odell (1974)")
> metaplot(mn=oddsratio, se=seinor, labels=c1, cex=.65, lwd=2, cex.lab=.65)

[[alternative HTML version deleted]]

__
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.