Skip to content
Prev 312520 / 398506 Next

Nightingale’s Rose chart-any suggestion?

I think this does it. 

  require(reshape2)
  
  df1  <-  melt(DF, id="month")
  
  ggplot(df1, aes(x = month, y = value, fill = variable)) +
    theme_bw() +
    geom_bar(stat = "identity") +
    coord_polar()

John Kane
Kingston ON Canada
____________________________________________________________
FREE 3D MARINE AQUARIUM SCREENSAVER - Watch dolphins, sharks & orcas on your desktop!