読者です 読者をやめる 読者になる 読者になる

Rを通じて統計学を学ぶ備忘録ブログ

SPSSからRに移行したい私のような人向けのR解説ブログ兼学習用備忘録。

第69回 ggplotの備忘録その6

今回は散布図を中心にみていきます。注意することは、、、、点が重ならないように少しだけずらすことぐらいかなー。 

> ggplot(demo, aes(x = x1, y = y, shape = class, col = rank))

+ geom_point(size = 5)

+ scale_shape_manual(values = c(4, 7))

+ scale_colour_brewer(palette = "Set1")

 

# shape = class:形で分類

# col = rank:色で分類

 f:id:teruaki-sugiura:20160102170043p:plain

> demo$y.group <-

     cut(demo$y, breaks=c(-Inf, 5, Inf), labels = c("<5", ">=5"))

# yを5未満、5以上で分ける 

 

> ggplot(demo, aes(x = x1, y = x2, shape = class, fill = y.group))

+ geom_point(size = 5)

+ scale_shape_manual(values = c(21,24))

+ scale_fill_manual

(values = c(NA, "black"), guide = guide_legend(override.aes = list(shape = 21)))

f:id:teruaki-sugiura:20160102170045p:plain

> ggplot(demo3, aes(x = x, y = y, col = rank))+geom_point()

#col = rank:第3変数をcolにマッピング

f:id:teruaki-sugiura:20160102170046p:plain

> ggplot(demo3, aes(x = x, y = y, size = rank))+geom_point()

# size = rank:第3変数をsizeにマッピング

f:id:teruaki-sugiura:20160102170048p:plain

 > ggplot(demo3, aes(x = x, y = y, col = class, size = rank))

+ geom_point(alpha = 0.3)

+ scale_color_brewer(palette = "Set1")

+ xlim(x = c(10,20))

+ ylim(y = c(50,75))

f:id:teruaki-sugiura:20160102170050p:plain

> ggplot(demo3, aes(x = rank, y = y, col = class))

+ geom_point()

+ geom_rug(position="jitter", size=0.2)

 

#geom_rug():縁にラグを表示

#position="jitter", size=0.2:線を細くする

f:id:teruaki-sugiura:20160102231942p:plain

> ggplot(demo, aes(x = x1, y = y))

+ geom_text(aes(label = area), size = 4, position = position_jitter(w = 0.5, h = 1))

+ geom_point() 

f:id:teruaki-sugiura:20160102233532p:plain

 

以上で今回はおしまい。

広告を非表示にする