ggplotグラフの出力、エクスポート

顔妻です。

今回はggplotを使ったグラフのエクスポート方法です。

以下のグラフをエクスポートしたいと思います。

library(tidyverse)
 d <- read.csv("https://raw.githubusercontent.com/maruko-rosso/datasciencehenomiti/master/data/ShopSales.csv")
# グラフ作成
 d_plot <-   
   d %>% 
   group_by(date) %>% 
   summarise(sales = sum(price,na.rm = T)) %>% 
   ggplot(aes(x = as.Date(date),y = sales)) +
   geom_line()

グラフの出力は以下のコードで実現できます。今回はpng形式にしましたが、他にもimgやjpeg、pdfも利用できるようです。

# export するファイル名
 filename <- paste("test_","01",".png",sep = "")

# グラフのエクスポート
 ggsave(filename = filename, 
        plot = d_plot,
        width = 36, # 横幅
        height = 18, # 高さ
        units = "cm" # 単位
        )