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

• 呵呵

• 呵呵
• 呵呵
• 呵呵
-