qplot(x,main = "")
ggplot(data, aes(x)) + geom_histogram(binwidth = , color = , fill = )

qplot(x, y, log = "xy", color=..)
ggplot(data, aes(x = , y = , color = )) + geom_point()

qplot(x, y)
qplot(x, y, geom = "boxplot")
ggplot(data, aes(factor(race), y)) + geom_boxplot()

ggplot(data, aes(x, y)) + geom_line()

ggplot(dat, aes(x = date, y = target, color = factor(account_id), group = account_id)) + geom_point() + geom_line()

ggplot(test_data, aes(date)) +
geom_line(aes(y = var0, colour = "var0")) +
geom_line(aes(y = var1, colour = "var1"))

require("reshape")
require("ggplot2")

test_data_long <- melt(test_data, id="date")  # convert to long format

ggplot(data=test_data_long,
   aes(x=date, y=value, colour=variable)) +
geom_line()

ggplot(data, aes(y)) + geom_density(fill = 'blue')
 + geom_line(stat = "density")

geom = "bar"
"histogram", binwidth = 0.1
jitter
 = c("point", "smooth"), method = "lm"
 dotplot
 point

alpha = I(1/4)

shape = 1, 2, or '.'

qplot(data=myData,x=BM,y=var1,log="xy",color=Tribe,facets = Hab~Tribe)
qplot(data=myData,x=BM,y=var1,log="xy",color=Tribe,facets = ~Tribe)

myGG<- myGG + stat_smooth(method="lm")
+layer(geom="point")
+geom_point(color = "blue")
+geom_line()
+ geom_abline(intercept = a, slope = b)

ggplot(...) + ylab('mylabel')
bp + scale_x_discrete(breaks=c("ctrl", "trt1", "trt2"), labels=c("Control", "Treat 1", "Treat 2"))

ggsave("LIBMFacetsWithTrend.jpg", width = 6, height = 4)

ggplot(data, aes(x = x, y = y)) + geom_line()

aes(shape = x)

geom_density()
geom_line(stat = "density")

+ geom_smooth(method = "lm")

library(gridExtra)
sidebysideplot <- grid.arrange(plot1, plot2, ncol=2)