[R] ggplot2 - how to change location / position of wind rose axis labels?

[hadley wickham]

Hi Darren,

Sorry for taking so long to get back to you - my hard drive died and
it's taking me a while to get up and running again of backups etc.

One solution to your problem is to draw the axis labels yourself:

labels <- data.frame(rrating = 1:10, count = 19000)

awind +
   opts(axis.text.x = theme_blank()) +
   geom_text(aes(label = rrating, y = count, fill = NULL), data = labels)

Adjusting count as needed to get them in the right position.  I'll
think about how to do this better in general.

Regards,

Hadley

On Fri, Jan 23, 2009 at 4:39 PM, Darren Norris <doon75 at hotmail.com> wrote:
>
> Dear R users,
> First just want to say thank you to all for developing such a wonderful
> software and packages.
>
> I need to produce a wind rose plot. Tried with packages circular and plotrix
> and couldn't quite get what I want. Moved to package ggplot2 and it's going
> great. However stuck in how to move axis labels.
>
> I am using the wind rose from the help to learn how to do what I need (code
> example below). The plot produced has axis labels on top of the axis line
> (not sure if it's actually the plot or axis line...) - which means the
> labels are unclear for what I need to produce.
>
> How can I move the labels to be outside of the line? I have read the online
> book ( http://had.co.nz/ggplot2/book/ ), help, tried changing various theme
> and scale settings and searched the package website and mailing list (
> http://had.co.nz/ggplot2/ ). If the answer is there I'm too stupid to see it
> - do I need to play with grobs? If so how?
>
> Any help much appreciated,
> Darren
>
> R version 2.8.1 (2008-12-22)
> i386-pc-mingw32
>
> locale:
> LC_COLLATE=English_United Kingdom.1252;LC_CTYPE=English_United
> Kingdom.1252;LC_MONETARY=English_United
> Kingdom.1252;LC_NUMERIC=C;LC_TIME=English_United Kingdom.1252
>
> attached base packages:
> [1] grid      stats     graphics  grDevices utils     datasets  methods
> base
>
> other attached packages:
> [1] ggplot2_0.8.1 reshape_0.8.2 plyr_0.1.4    proto_0.3-8
>
>
> #Using an example form the coord_polar help
> library(ggplot2)
> movies$rrating <- factor(round_any(movies$rating, 1))
> movies$budgetq <- factor(chop(movies$budget, 4), labels = 1:4)
> doh <- ggplot(movies, aes(x = rrating, fill = budgetq))
> doh + geom_bar(width = 1) + coord_polar()
>
> #Now with my theme (hacked from theme_bw) getting close to what I need
>
> theme_bwdn<-function (base_size = 12)
> {
>    structure(list(axis.line = theme_blank(), axis.text.x = theme_text(size
> = base_size *
>       1, lineheight = 0.9, vjust = 1), axis.text.y = theme_blank(),
> axis.ticks = theme_segment(colour = "black",
>        size = 0.2), axis.title.x = theme_blank(), axis.title.y =
> theme_blank(), axis.ticks.length = unit(0,
>        "lines"), axis.ticks.margin = unit(0, "lines"), legend.background =
> theme_rect(colour = NA),
>        legend.key = theme_rect(colour = "grey80"), legend.key.size =
> unit(1.2,
>            "lines"), legend.text = theme_text(size = base_size *
>            0.8), legend.title = theme_text(size = base_size *
>            0.8, face = "bold", hjust = 0), legend.position = "right",
>        panel.background = theme_rect(fill = "white", colour = NA),
>        panel.border = theme_rect(fill = NA, colour = "grey50"),
>        panel.grid.major = theme_line(colour = "black", size = 0.2),
>        panel.grid.minor = theme_line(colour = "black", size = 0.5),
>        panel.margin = unit(0.25, "lines"), strip.background =
> theme_rect(fill = "grey80",
>            colour = "grey50"), strip.label = function(variable,
>            value) value, strip.text.x = theme_text(size = base_size *
>            0.8), strip.text.y = theme_text(size = base_size *
>            0.8, angle = -90), plot.background = theme_rect(colour = NA),
>        plot.title = theme_text(size = base_size * 1.2), plot.margin =
> unit(rep(0.5,
>            4), "lines")), class = "options")
> }
>
> awind<-doh + geom_bar(width = 1) + coord_polar()
>
> #produces the wind rose but how to move axis labels?
> awind + theme_bwdn()
>
>
>
>
> --
> View this message in context: http://www.nabble.com/ggplot2---how-to-change-location---position-of-wind-rose-axis-labels--tp21635526p21635526.html
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> 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.
>



-- 
http://had.co.nz/