ggplot2使用abc

• 画一幅图，把这个图形对象保存到一个.rdata文件中，以备下次使用：

例子见自己的博客：《R语言相关文件保存执行abc》的第二个例子。

• 画一幅图，把这个图形对象保存成本地目录下的.png格式的一张图片：

library(ggplot2)pp=qplot(displ, hwy, data=mpg, geom=c('point', 'smooth'))ggsave(plot = pp, '/home/shixianzhi/demo/hehe4.png')

• 画一张大图，这张大图包含三张小图，保存到成本地的一个.png文件

library(ggplot2)    #加载用到的包library(grid)       #加载用到的包#定义第一张小图(a <- qplot(date, unemploy, data = economics, geom = "line"))#定义第二张小图(b <- qplot(uempmed, unemploy, data = economics) +geom_smooth(se = F))#定义第三张小图(c <- qplot(uempmed, unemploy, data = economics, geom="path"))#在D盘下新建一个shixianzhi.png的空文件，宽度为800像素，高为600像素png("d:\\shixianzhi.png",width = 800, height = 600)#在内存中新建一个大图对象grid.newpage()#大图对象的格局设置为2行2列pushViewport(viewport(layout = grid.layout(2, 2)))#自定义一个函数vplayout <- function(x, y)    viewport(layout.pos.row = x, layout.pos.col = y)#把第一张小图放入大图中，此小图布局：占了大图中的第一行的两列print(a, vp = vplayout(1, 1:2))#把第二张小图放入大图中，此小图布局：占了大图中的第二行的第一列print(b, vp = vplayout(2, 1))#把第三张小图放入大图中，此小图布局：占了大图中的第二行的第二列print(c, vp = vplayout(2, 2))#把内存中的大图对象写入本地的shixianzhi.png文件中，画图结束dev.off()

• 画一个页面的PV、UV趋势图：

  library(ggplot2)
  library(plyr)
  library(reshape2)
  daodian=read.table(‘daodian01.txt’)
  方法一：
  ggplot(daodian, aes(date)) +
  geom_line(aes(y = pv, colour = “pv”)) +
  geom_line(aes(y = uv, colour = “uv”)) +
  scale_colour_hue(“释义”)

  方法二：
  emp <- melt(daodian, id = “date”, measure = c(“pv”, “uv”)) #数据宽变长
  qplot(date, value, data = emp, geom = c(“line”, “point”), colour = variable, ylab = “”, xlab = “”, main = “发单页PV/UV”)+theme_bw()+geom_text(aes(label=value),vjust=-0.5) + theme(panel.grid=element_blank(), axis.text.y=element_blank())

• 呵呵

• 呵呵
• 呵呵
• 呵呵
-