ggthemesのテーマとカラーパレット |
テーマとカラーパレットの組み合わせで無限のグラフ表現が可能になるのですが、膨大なテーマとパレットを使いこなすのが大変です。
できる限りのテーマとカラーパレットを出図しました。
テーマを変える
###パッケージの読み込み
library(ggplot2)
library(ggthemes)
###theme_base()
##Rのデフォルトのグラフっぽいレンダリング
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+geom_point()+theme_base()
###theme_calc()
##theme_base()に似ているけど、横線が入る
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_calc()+scale_colour_calc()
###theme_economist()
##雑誌「エコノミスト」掲載のグラフっぽいものができるらしい
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_economist()+ scale_colour_economist()
##姉妹品のtheme_economist_white()
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_economist_white()
###theme_excel()
##エクセル風のグラフ。ネタとしか思えない・・・
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_excel()+scale_colour_excel()
##デフォルトのRグラフに近いあっさりテーマ。
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_few()+scale_colour_few()
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_few()+scale_colour_few("dark")
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_few()+scale_colour_few("light")
##http://fivethirtyeight.com/というウェブサイトで使われているグラフのデザインらしい・・・
##theme_economist()を少しスッキリさせたようなデザイン
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_fivethirtyeight()+scale_colour_fivethirtyeight()
##かっちりとしたデザイン
##これをベースに別のテーマを開発してちょうだい、ということみたいですがこれでも悪くない。
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_foundation()
##theme_gdocs()
##シンプルで視認性が高い。Googledocsのデザインを真似たもの。
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_gdocs()+scale_colour_gdocs()
##JSのグラフライブラリHightcharts風のテーマ。
##背景はあっさりしてます。
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_hc()+scale_colour_hc()
##背景がグレイ
##私には今ひとつ。
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_igray()
##地図描画専横の背景
##凡例とプロット以外白紙になっちゃう。
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_map()
##地図を描画するとこんな感じ。
##背景は完全に白紙で超シンプル。
##scale_colour_pander()も視認性が高い。
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_pander()+scale_colour_pander()
##これもシンプル系
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_par()
##背景色が絶妙、オシャレ系テーマ
##http://ethanschoonover.com/solarized
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_solarized()+scale_colour_solarized()
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_solarized(light=F)+scale_colour_solarized()
##究極シンプル。ドット以外、本当に何もない!!
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_solid()
##背景に薄く色がついて、描画領域は白抜き
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_stata()
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_stata(scheme = "s1rcolor")
##scheme="s1mono"
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_stata(scheme = "s1mono")
##軸がなく、とてもシンプル
##データプレゼンテーションの第一人者、エドワード・タフトさんのデザインみたいです。
##ペアプロット(散布図行列)はこれで決まりかな、と思っている。
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_tufte()
##ウォールストリートジャーナル風らしい。
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_wsj()+ scale_colour_wsj()
###theme_minimal()
##ggthemesのマニュアルにはなぜか記載されていないけれど、一押しシンプルテーマ。
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_minimal()
カラーパレット色々
###scale_colour_pander()
##散布図
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_minimal()+scale_colour_pander()
##ヒストグラム
p<-ggplot(data2,aes(x=日射量,fill=斜面方位,alpha=0.7))+
geom_histogram()+theme_minimal()+scale_fill_pander()
###scale_colour_canva()
##散布図
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_minimal()+scale_colour_canva()
##ヒストグラム
p<-ggplot(data2,aes(x=日射量,fill=斜面方位,alpha=0.7))+
geom_histogram()+theme_minimal()+scale_fill_canva()
###scale_colour_economist()
##散布図_離散量
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_minimal()+scale_colour_economist()
##ヒストグラム
p<-ggplot(data2,aes(x=日射量,fill=斜面方位,alpha=0.7))+
geom_histogram()+theme_minimal()+scale_fill_economist()
###scale_colour_few()
##散布図_離散量
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_minimal()+scale_colour_few()
##ヒストグラム
p<-ggplot(data2,aes(x=日射量,fill=斜面方位),alpha=0.7)+
geom_histogram()+theme_minimal()+scale_fill_few()
###scale_colour__fivethirtyeight()
##散布図_離散量
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_minimal()+scale_colour_fivethirtyeight()
##ヒストグラム
p<-ggplot(data2,aes(x=日射量,fill=斜面方位,alpha=0.7))+
geom_histogram()+theme_minimal()+scale_fill_fivethirtyeight()
###scale_colour_scale_colour_gradient2_tableau()
##貴重な連続量のカラーパレット
##データ視覚化ツール、タブローのカラーパレットみたいです。
##デフォルト
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=標高,shape=区分))+
geom_point()+theme_minimal()+scale_colour_gradient2_tableau()
#Temperature
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=標高,shape=区分))+
geom_point()+theme_minimal()+scale_colour_gradient2_tableau("Temperature")
###scale_colour_scale_colour_gradient_tableau()
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=標高,shape=区分))+
geom_point()+theme_minimal()+scale_colour_gradient_tableau()
###scale_colour_hc()
##散布図_離散量
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_minimal()+scale_colour_hc()
##ヒストグラム
p<-ggplot(data2,aes(x=日射量,fill=斜面方位,alpha=0.7))+
geom_histogram()+theme_minimal()+scale_fill_hc()
###scale_colour_ptol()
##Paul Tollさんのカラーパレット
##ptolのカラーパレットはわかりやすいのでポスターやプレゼンでも使っています。
##散布図_離散量
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_minimal()+scale_colour_ptol()
##ヒストグラム
p<-ggplot(data2,aes(x=日射量,fill=斜面方位,alpha=0.7))+
geom_histogram()+theme_minimal()+scale_fill_ptol()
###scale_colour_stata()
##散布図_離散量
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_minimal()+scale_colour_stata()
p<-ggplot(data2,aes(x=日射量,fill=斜面方位,alpha=0.7))+
geom_histogram()+theme_minimal()+scale_fill_stata()
###scale_colour_tableau()
##あでやかな感じ
##散布図_離散量
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_minimal()+scale_colour_tableau()
##ヒストグラム
p<-ggplot(data2,aes(x=日射量,fill=斜面方位,alpha=0.7))+
geom_histogram()+theme_minimal()+scale_fill_tableau()
###scale_colour_wsj()
##ウォール・ストリート・ジャーナル風のパレット
##散布図_離散量
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_minimal()+scale_colour_wsj()
##ヒストグラム
p<-ggplot(data2,aes(x=日射量,fill=斜面方位,alpha=0.7))+
geom_histogram()+theme_minimal()+scale_fill_wsj()
###scale_colour_calc()
##散布図_離散量
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_minimal()+scale_colour_calc()
##ヒストグラム
p<-ggplot(data2,aes(x=日射量,fill=斜面方位,alpha=0.7))+
geom_histogram()+theme_minimal()+scale_fill_calc()
###scale_colour_excel()
##このパレットを必要とする人がいるとは思えないのですが・・・
##散布図_離散量
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_minimal()+scale_colour_excel()
##ヒストグラム
p<-ggplot(data2,aes(x=日射量,fill=斜面方位,alpha=0.7))+
geom_histogram()+theme_minimal()+scale_fill_excel()
###scale_colour_gdocs()
##Google docs風のカラーパレット
##悪くないです。
##散布図_離散量
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_minimal()+scale_colour_gdocs()
##ヒストグラム
p<-ggplot(data2,aes(x=日射量,fill=斜面方位,alpha=0.7))+
geom_histogram()+theme_minimal()+scale_fill_gdocs()
###scale_colour_solarized()
##散布図_離散量
p<-ggplot(data2,aes(x=傾斜,y=日射量,colour=斜面方位,shape=区分))+
geom_point()+theme_minimal()+scale_colour_solarized()
##ヒストグラム
p<-ggplot(data2,aes(x=日射量,fill=斜面方位,alpha=0.7))+
geom_histogram()+theme_minimal()+scale_fill_solarized()
#クリエイティブ・コモンズcc by
この 記事 は クリエイティブ・コモンズ 表示 4.0 国際 ライセンスの下に提供されています。