Setting fixed size for segement plot using stars() (axes size vs print size) - R-help

Fri, Aug 8, 2008 11:30 AM #

You could use the symbols function instead of the stars function.  This allows you to set the size of the stars in inches and that will not change based on the number of stars.  The drawback is that you will have to set the positioning yourself and may need to suppress the axes and add the label and legend manually.  You can also look at the my.symbols function in the TeachingDemos package if you want even more control of the individual stars.

You could also add additional rows of 0's to your smaller datasets so that the stars function still creates the same number of stars with the later ones just being points rather than whole stars.

Hope this helps,

--
Gregory (Greg) L. Snow Ph.D.
Statistical Data Center
Intermountain Healthcare
greg.snow at imail.org
(801) 408-8111

-----Original Message-----
From: r-help-bounces at r-project.org
[mailto:r-help-bounces at r-project.org] On Behalf Of Jay Douillard
Sent: Wednesday, July 30, 2008 1:04 PM
To: r-help at r-project.org
Subject: [R] Setting fixed size for segement plot using
stars() (axes size vs print size)


I have been making some segment plots with five variables.
They work great, especially when I used a different scale
function, which scaled them by area of the circle rather than radius


scale <- function(x, Mr = 1 , Mx = 100) { ((x/Mx)^.5)*Mr}

Where x is the the value, Mr is the Maximum radius, and Mx is
the maximum data value. You could change the exponent .5 to
.57 if you wanted Flannery compensation.


My problem is that I want the print size of these
proportional symbols to be the same regardless of the number
of data points

as in this example, where exporting these two plots as
PDF(which have been scaled) will produce different size
symbols for the same value, when compared side by side.I've
tried manually setting the ncol and nrow attributes, and it
still produces different results for the data sets.

stars(large[2:6], draw.segments = TRUE, labels =
large$size,scale = FALSE, flip.labels = TRUE, axes = TRUE,)
stars(small[2:6], draw.segments = TRUE, labels =
small$size,scale = FALSE, flip.labels = TRUE, axes = TRUE,)


Thanks!


small <-
structure(list(size = c(5, 10, 15, 20, 25, 30, 50), one =
c(0.223606797749979, 0.316227766016838, 0.387298334620742,
0.447213595499958, 0.5, 0.547722557505166,
0.707106781186548), two = c(0.223606797749979,
0.316227766016838, 0.387298334620742, 0.447213595499958, 0.5,
0.547722557505166, 0.707106781186548), three =
c(0.223606797749979, 0.316227766016838, 0.387298334620742,
0.447213595499958, 0.5, 0.547722557505166,
0.707106781186548), four = c(0.223606797749979,
0.316227766016838, 0.387298334620742, 0.447213595499958, 0.5,
0.547722557505166, 0.707106781186548), five =
c(0.223606797749979, 0.316227766016838, 0.387298334620742,
0.447213595499958, 0.5, 0.547722557505166,
0.707106781186548)), .Names = c("size", "one", "two",
"three", "four", "five"), row.names = c(NA, 7L), class = "data.frame")


large <-
structure(list(size = c(5L, 10L, 15L, 20L, 25L, 30L, 50L, 5L,
10L, 15L, 20L, 25L, 30L, 50L, 5L, 10L, 15L, 20L, 25L, 30L,
50L, 5L, 10L, 15L, 20L, 25L, 30L, 50L), one =
c(0.223606797749979, 0.316227766016838, 0.387298334620742,
0.447213595499958, 0.5, 0.547722557505166, 0.707106781186548,
0.223606797749979, 0.316227766016838, 0.387298334620742,
0.447213595499958, 0.5, 0.547722557505166, 0.707106781186548,
0.223606797749979, 0.316227766016838, 0.387298334620742,
0.447213595499958, 0.5, 0.547722557505166, 0.707106781186548,
0.223606797749979, 0.316227766016838, 0.387298334620742,
0.447213595499958, 0.5, 0.547722557505166,
0.707106781186548), two = c(0.223606797749979,
0.316227766016838, 0.387298334620742, 0.447213595499958, 0.5,
0.547722557505166, 0.707106781186548, 0.223606797749979,
0.316227766016838, 0.387298334620742, 0.447213595499958, 0.5,
0.547722557505166, 0.707106781186548, 0.223606797749979,
0.316227766016838, 0.387298334620742, 0.447213595499958, 0.5,
0.547722557505166, 0.707106781186548, 0.223606797749979,
0.316227766016838, 0.387298334620742, 0.447213595499958, 0.5,
0.547722557505166, 0.707106781186548), three =
c(0.223606797749979, 0.316227766016838, 0.387298334620742,
0.447213595499958, 0.5, 0.547722557505166, 0.707106781186548,
0.223606797749979, 0.316227766016838, 0.387298334620742,
0.447213595499958, 0.5, 0.547722557505166, 0.707106781186548,
0.223606797749979, 0.316227766016838, 0.387298334620742,
0.447213595499958, 0.5, 0.547722557505166, 0.707106781186548,
0.223606797749979, 0.316227766016838, 0.387298334620742,
0.447213595499958, 0.5, 0.547722557505166,
0.707106781186548), four = c(0.223606797749979,
0.316227766016838, 0.387298334620742, 0.447213595499958, 0.5,
0.547722557505166, 0.707106781186548, 0.223606797749979,
0.316227766016838, 0.387298334620742, 0.447213595499958, 0.5,
0.547722557505166, 0.707106781186548, 0.223606797749979,
0.316227766016838, 0.387298334620742, 0.447213595499958, 0.5,
0.547722557505166, 0.707106781186548, 0.223606797749979,
0.316227766016838, 0.387298334620742, 0.447213595499958, 0.5,
0.547722557505166, 0.707106781186548), five =
c(0.223606797749979, 0.316227766016838, 0.387298334620742,
0.447213595499958, 0.5, 0.547722557505166, 0.707106781186548,
0.223606797749979, 0.316227766016838, 0.387298334620742,
0.447213595499958, 0.5, 0.547722557505166, 0.707106781186548,
0.223606797749979, 0.316227766016838, 0.387298334620742,
0.447213595499958, 0.5, 0.547722557505166, 0.707106781186548,
0.223606797749979, 0.316227766016838, 0.387298334620742,
0.447213595499958, 0.5, 0.547722557505166,
0.707106781186548)), .Names = c("size", "one", "two",
"three", "four", "five"), row.names = c(NA, -28L ), class =
"data.frame")

______________________________________________
R-help at 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.