まーきんぐスマートフォン用の表示で見るはるまーきんぐこの広告は、90日以上更新していないブログに表示しています。3回目に行ってきました。清水港みなみさんのまぐろ丼最高でした!そろそろ何かできるだろってことで、ずーっと仕事でやりたいなと思ってた自社webサービスに送られるメールの分析をすることにしたよ。その内容はブログでは書けないので、試しにGUさんからのメールで実験してみることにしました。GUさんのwebマーケティングってすごいじゃないですか。私も今年の1月から会員になっていますので、メール受信やらポップアップ通知やら来ます。靴下を頂いたこともあります。ありがとうございます。そのメールを、いったい何時に受信しているか?をRを使ってまとめてみよう。マーケティングに最適な時間に送信されているはずなので、参考にさせていただきますよ。インデックスのみ(CSV)を選ぶだけで、受信メールのリストが出力できます。GUからのだけが欲しかったから、まずGUからのメールをフォルダ分けしてそのフォルダの受信リストを出力したよ(ImportExportToolsでフィルタをかけようとしてもうまくいかなかった)。あと、当然だけどUTF-8で出力されるよ。取得できたら、欲しいのは時間だけなので、リストの受信日時の列だけのリストに加工しました。できあがったのはこんな感じのリスト。なんかすでに答えが見えてる気がしますが、とりあえずRを自分なりに動かすことが大事だと思うのでこのまま突き進みます。Rstudioでリストを読み込むリスト読み込むよ。read.delim('GU_20130623-0641.csv',sep=",",stringsAsFactors=FALSE,header=TRUE,na.strings="")はい。日付と時刻の列を作ってみました。transform(mail.gu,TIME=maildate[,2])よし。ここまでで、データはこんな感じになりましたん。受信時刻をグラフ化グラフ化します。ggplot(mail.gu,aes(x=TIME))+geom_histogram(binwidth=1)その結果。むう、もうちょっと見やすくせねばね。strsplit(mail.gu$TIME,":")これだけだとエラーが出ました。argumentえ〜。strsplit(paste(mail.gu$TIME,""),":")これでうまくいきました。transform(mail.gu,HOUR=mailtime[,1])ggplot(mail.gu,aes(x=HOUR))+geom_histogram(binwidth=1)はい。なんかまだイマイチじゃん。なんで最後に8がでてるんだろ?って調べたら、ggplotが勝手に文字列ソートしてくれれるらしい。そこで、reorderを使うようにした。transform(mail.gu,HOUR_NUM=mailhournum)ggplot(mail.gu,aes(x=reorder(HOUR,HOUR_NUM)))+geom_histogram(binwidth=1)ここのコード、もっと短くできるかも。