library(ggplot2)
qplot(carat,x*y*z,data = diamonds)
qplot(carat,price,data = diamonds,shape = cut)
qplot(carat,price,data = diamonds,color = color)
qplot(carat,price,data = diamonds,alpha = I(1/10))
qplot(carat,price,data = diamonds,alpha = I(1/100))
qplot(carat,price,data = diamonds,alpha = I(1/1000))
dsmall = diamonds[sample(nrow(diamonds),100),]
qplot(carat,price,data = dsmall,geom = c('point','smooth'),span = 100000)
qplot(carat,price,data = diamonds,geom = c('point','smooth'),span = 1)
qplot(color,carat,data = diamonds,geom = 'boxplot')
qplot(color,carat,data = diamonds,geom = 'jitter')
qplot(carat,data = diamonds,geom = 'histogram',binwidth = 0.1,xlim = c(0,3))
qplot(carat,data = diamonds,geom = 'density',color = color)
qplot(carat,data = diamonds,geom = 'histogram',fill = color)
qplot(color,data = diamonds,geom = 'bar',weight = carat) + scale_y_continuous('carat')
qplot(date,unemploy,data = economics,geom = 'line')
qplot(date,uempmed,data = economics,geom = 'line')
year = function(x) as.POSIXlt(x)$year + 1900
qplot(unemploy,uempmed,data = economics,geom = c('point','path'))
qplot(unemploy,uempmed,data = economics,geom = 'path',color = year(date))

qplot(carat,data = diamonds,facets = color~.,geom = 'histogram',binwidth = 0.1,xlim = c(0,3))
qplot(carat,..density..,data = diamonds,facets = color~.,geom = 'histogram',binwidth = 0.1,xlim = c(0,3))

qplot(carat,price,data = dsmall,xlab = "Price($)",ylab = "Weight(carats)",main = "Price-weight relationship")
qplot(displ,hwy,data = mpg,color = factor(cyl))
qplot(displ,hwy,data = mpg,facets = .~year)+geom_smooth()
summary(mpg)
p = qplot(displ,hwy,data = mpg,facets = .~year)+geom_smooth()
summary(p)
save(p,file = "F:/gragh.rdata")
ggsave('F:/plot.png')

q = ggplot(diamonds,aes(carat,price,color = cut))

q = q + layer(geom = 'point')




最后一行 报错
Error: Attempted to create layer with no stat.