
Many thanks Hadley,
The solution you gave works well moving label locations within the area 
of the axis but does not quite provide what I was after. Apologies for 
the confusion - I've only been using ggplot2  it for a day.....

Compare the bar chart (from previous example):
awind<-doh + geom_bar(width = 1)

This shows x axis, gap beneath the x axis providing a separation to tick 
lines with x axis labels below tick lines.

The wind rose:
awind<-doh + geom_bar(width = 1) + coord_polar()

Does not have the same separation between x axis and labels. How do I 
move all labels outside of the axis area (e.g. move label 8 to the left, 
3 to the right etc on the wind rose above)?

Thanks again for all your support,
Darren





hadley wickham wrote:
> 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  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@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.
>>
>>     
>
>
>
>   


_________________________________________________________________


	[[alternative HTML version deleted]]


