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())

• 呵呵

• 呵呵
• 呵呵
• 呵呵
• -