http://docs.ggplot2.org/current/guide_legend.html
http://docs.ggplot2.org/current/theme.html
http://stackoverflow.com/questions/16356052/control-ggplot2-legend-look-without-affecting-the-plot
http://stackoverflow.com/questions/3932038/plot-a-legend-outside-of-the-plotting-area-in-base-graphics
A data frame or table has several columns as conditions and the rest as results, now I want to summary the table by the same conditions. That means, the results columns of the rows with same conditions will be added together.
|
1 |
tapply(df$dt, df$group, summary) |
plyr package|
1 |
ddply(df, .(group), summarise, mean=mean(dt), sum=sum(dt)) |
Reference:
http://stackoverflow.com/questions/9847054/how-to-get-summary-statistics-by-group
http://www.sr.bham.ac.uk/~ajrs/R/r-show_data.html
http://www.psychwire.co.uk/2011/04/aggregate-function-in-r-making-your-life-easier-one-mean-at-a-time/
http://www.psychwire.co.uk/2011/04/data-aggregation-in-r-plyr-sqldf-and-data-table/
http://blog.revolutionanalytics.com/2010/12/how-to-create-pdf-reports-with-r.html
http://yihui.name/knitr/demo/stitch/
http://learnr.wordpress.com/2009/09/09/brew-creating-repetitive-reports/
Here is the placeholder for debugging in R
In ggplot2 it is not so easy to change the scale position, like showing the Y-axis in the right side or using dual axis. Kohske Takahashi is working on it and it is available in the dev version. (https://groups.google.com/forum/?fromgroups=#!topic/ggplot2-dev/JkJU5CLBkQw). As alternative he provided a solution with gtable http://rpubs.com/kohske/dual_axis_in_ggplot2. For simply change the Y-axis to the right side see http://stackoverflow.com/questions/15334494/how-to-change-positions-of-x-and-y-axis-in-ggplot2
Dual axis:
library(ggplot2)
library(gtable)
library(grid)
grid.newpage()
# two plots
p1 <- ggplot(mtcars, aes(mpg, disp)) + geom_line(colour = "blue") + theme_bw()
p2 <- ggplot(mtcars, aes(mpg, drat)) + geom_line(colour = "red") + theme_bw() %+replace%
theme(panel.background = element_rect(fill = NA))
# extract gtable
g1 <- ggplot_gtable(ggplot_build(p1))
g2 <- ggplot_gtable(ggplot_build(p2))
# overlap the panel of 2nd plot on that of 1st plot
pp <- c(subset(g1$layout, name == "panel", se = t:r))
g <- gtable_add_grob(g1, g2$grobs[[which(g2$layout$name == "panel")]], pp$t,
pp$l, pp$b, pp$l)
# axis tweaks
ia <- which(g2$layout$name == "axis-l")
ga <- g2$grobs[[ia]]
ax <- ga$children[[2]]
ax$widths <- rev(ax$widths)
ax$grobs <- rev(ax$grobs)
ax$grobs[[1]]$x <- ax$grobs[[1]]$x - unit(1, "npc") + unit(0.15, "cm")
g <- gtable_add_cols(g, g2$widths[g2$layout[ia, ]$l], length(g$widths) - 1)
g <- gtable_add_grob(g, ax, pp$t, length(g$widths) - 1, pp$b)
# draw it
grid.draw(g)
Y axis in right:
library(ggplot2)
library(gtable)
library(grid)
grid.newpage()
dat <- data.frame(x<-seq(0, 10, 0.1),y = sin(x * pi))
p <- ggplot(dat, aes(x, y)) + geom_line(colour = "blue") + theme_bw()
# extract gtable
g <- ggplot_gtable(ggplot_build(p))
# axis tweaks
ia <- which(g$layout$name == "axis-l")
ax <- g$grobs[[ia]]$children[[2]]
ax$widths <- rev(ax$widths)
ax$grobs <- rev(ax$grobs)
ax$grobs[[1]]$x <- ax$grobs[[1]]$x - unit(1, "npc") + unit(0.15, "cm")
pp <- c(subset(g$layout, name == "panel", select = t:r))
g <- gtable_add_cols(g, g$widths[g$layout[ia, ]$l], length(g$widths) - 1)
g <- gtable_add_grob(g, ax, pp$t, length(g$widths) - 1, pp$b)
g$grobs[[ia]]$children[[2]] <- NULL
##############################
ia <- which(g$layout$name == "ylab")
ylab <- g$grobs[[ia]]
g <- gtable_add_cols(g, g$widths[g$layout[ia, ]$l], length(g$widths) - 1)
g <- gtable_add_grob(g, ylab, pp$t, length(g$widths) - 1, pp$b)
g$grobs[[ia]]$label = ''
grid.draw(g)
RStudio includes integrated support for Git. To use Git with RStudio, below are the steps to get it working:
Sometimes it is required to use two Y-axes in the same graph. The method to achieve the goal is depended by the basic graphic package, such as ggplot2, lattice. Because ggplot2 is my first choice, so I’m trying to get a solution for ggplot2.
kohske’s solution is the only one I can find right now.
http://rpubs.com/kohske/dual_axis_in_ggplot2
http://rwiki.sciviews.org/doku.php?id=tips:graphics-base:2yaxes
http://robjhyndman.com/hyndsight/r-graph-with-two-y-axes/
http://evolvingspaces.blogspot.de/2011/05/multiple-y-axis-in-r-plot.html
http://stackoverflow.com/questions/6142944/how-can-i-plot-with-2-different-y-axes-in-r/