【決定版】可視化手法のまとめ

自己紹介記事からだいぶ日が経ってしまいました。

取り敢えず、「なんか技術系のブログ書いてやっペ」
という意気込みだけで開設してしまいました。

なんか書かねば、、、
そう想いながら時間が経ってしまいました。

さて、一発目はハッタリから。

library(ggplot2)
# s:start, e:end
d <- data.frame(
 # 
  xs_01=3    ,ys_01=8.5  ,xe_01=1    ,ye_01=5
 ,xs_02=3    ,ys_02=8.5  ,xe_02=5    ,ye_02=5
 ,xs_03=2    ,ys_03=5.5  ,xe_03=4    ,ye_03=5.5
 ,xs_04=1.5  ,ys_04=4.5  ,xe_04=4.5  ,ye_04=4.5
 ,xs_05=4.5  ,ys_05=4.5  ,xe_05=2.5  ,ye_05=2.5
 # 
 ,xs_06=6.5  ,ys_06=8    ,xe_06=6.5  ,ye_06=3
 ,xs_07=6.5  ,ys_07=8    ,xe_07=9.5  ,ye_07=8
 ,xs_08=6.5  ,ys_08=5.5  ,xe_08=9.5  ,ye_08=5.5
 ,xs_09=6.5  ,ys_09=3    ,xe_09=9.5  ,ye_09=3
 ,xs_10=9.5  ,ys_10=8    ,xe_10=9.5  ,ye_10=3
 # 
 ,xs_11=12.5 ,ys_11=7.5  ,xe_11=11.5 ,ye_11=3.5
 ,xs_12=13.5 ,ys_12=7.5  ,xe_12=14.5 ,ye_12=3.5
 # 
 ,xs_13=1    ,ys_13=1    ,xe_13=5    ,ye_13=1
 ,xs_14=3    ,ys_14=1    ,xe_14=3    ,ye_14=-3
 ,xs_15=1    ,ys_15=-3   ,xe_15=5    ,ye_15=-3
 # 
 ,xs_16=10   ,ys_16=1    ,xe_16=6    ,ye_16=-1.5
 ,xs_17=8    ,ys_17=-0.5 ,xe_17=8    ,ye_17=-3
 # 
 ,xs_18=11   ,ys_18=0    ,xe_18=13.5 ,ye_18=0
 ,xs_19=13.5 ,ys_19=0    ,xe_19=12   ,ye_19=-3
 ,xs_20=14.5 ,ys_20=2    ,xe_20=14.5 ,ye_20=1
 # 
 ,xs_21=16.5 ,ys_21=0.5  ,xe_21=16.5 ,ye_21=-1.5
 ,xs_22=19.5 ,ys_22=1    ,xe_22=19.5 ,ye_22=-1.5
 ,xs_23=19.5 ,ys_23=-1.5 ,xe_23=18   ,ye_23=-3
 # 
 ,xs_24=2    ,ys_24=-6.5 ,xe_24=1    ,ye_24=-9
 ,xs_25=3.5  ,ys_25=-4.5 ,xe_25=3.5  ,ye_25=-10.5
 ,xs_26=3.5  ,ys_26=-10.5,xe_26=5    ,ye_26=-8.5
 # 
 ,xs_27=6.5  ,ys_27=-6   ,xe_27=9.5  ,ye_27=-6
 ,xs_28=9.5  ,ys_28=-6   ,xe_28=7    ,ye_28=-10.5
 # 
 ,xs_29=11   ,ys_29=-8.5 ,xe_29=15   ,ye_29=-8.5
 # 
 ,xs_30=17   ,ys_30=-6.5 ,xe_30=16   ,ye_30=-9
 ,xs_31=18.5 ,ys_31=-4.5 ,xe_31=18.5 ,ye_31=-10.5
 ,xs_32=18.5 ,ys_32=-10.5,xe_32=20   ,ye_32=-8.5
)

p <- ggplot(data=d)
# 
p <- p + geom_curve(  aes(x=xs_01, y=ys_01, xend=xe_01, yend=ye_01),curvature=-0.1)
p <- p + geom_curve(  aes(x=xs_02, y=ys_02, xend=xe_02, yend=ye_02),curvature=0.1)
p <- p + geom_segment(aes(x=xs_03, y=ys_03, xend=xe_03, yend=ye_03))
p <- p + geom_segment(aes(x=xs_04, y=ys_04, xend=xe_04, yend=ye_04))
p <- p + geom_curve(  aes(x=xs_05, y=ys_05, xend=xe_05, yend=ye_05),curvature=-0.2)
# 
p <- p + geom_segment(aes(x=xs_06, y=ys_06, xend=xe_06, yend=ye_06))
p <- p + geom_segment(aes(x=xs_07, y=ys_07, xend=xe_07, yend=ye_07))
p <- p + geom_segment(aes(x=xs_08, y=ys_08, xend=xe_08, yend=ye_08))
p <- p + geom_segment(aes(x=xs_09, y=ys_09, xend=xe_09, yend=ye_09))
p <- p + geom_segment(aes(x=xs_10, y=ys_10, xend=xe_10, yend=ye_10))
# 
p <- p + geom_curve(  aes(x=xs_11, y=ys_11, xend=xe_11, yend=ye_11),curvature=-0.1)
p <- p + geom_curve(  aes(x=xs_12, y=ys_12, xend=xe_12, yend=ye_12),curvature=0.1)
# 
p <- p + geom_segment(aes(x=xs_13, y=ys_13, xend=xe_13, yend=ye_13))
p <- p + geom_segment(aes(x=xs_14, y=ys_14, xend=xe_14, yend=ye_14))
p <- p + geom_segment(aes(x=xs_15, y=ys_15, xend=xe_15, yend=ye_15))
# 
p <- p + geom_curve(  aes(x=xs_16, y=ys_16, xend=xe_16, yend=ye_16),curvature=-0.1)
p <- p + geom_segment(aes(x=xs_17, y=ys_17, xend=xe_17, yend=ye_17))
# 
p <- p + geom_segment(aes(x=xs_18, y=ys_18, xend=xe_18, yend=ye_18))
p <- p + geom_curve(  aes(x=xs_19, y=ys_19, xend=xe_19, yend=ye_19),curvature=-0.3)
p <- p + geom_curve(  aes(x=xs_20, y=ys_20, xend=xe_20, yend=ye_20),curvature=-1)
p <- p + geom_curve(  aes(x=xs_20, y=ys_20, xend=xe_20, yend=ye_20),curvature=1)
# 
p <- p + geom_segment(aes(x=xs_21, y=ys_21, xend=xe_21, yend=ye_21))
p <- p + geom_segment(aes(x=xs_22, y=ys_22, xend=xe_22, yend=ye_22))
p <- p + geom_curve(  aes(x=xs_23, y=ys_23, xend=xe_23, yend=ye_23),curvature=-0.1)
# 
p <- p + geom_curve(  aes(x=xs_24, y=ys_24, xend=xe_24, yend=ye_24),curvature=-0.1)
p <- p + geom_segment(aes(x=xs_25, y=ys_25, xend=xe_25, yend=ye_25))
p <- p + geom_curve(  aes(x=xs_26, y=ys_26, xend=xe_26, yend=ye_26),curvature=0.1)
# 
p <- p + geom_segment(aes(x=xs_27, y=ys_27, xend=xe_27, yend=ye_27))
p <- p + geom_curve(  aes(x=xs_28, y=ys_28, xend=xe_28, yend=ye_28),curvature=-0.3)
# 
p <- p + geom_segment(aes(x=xs_29, y=ys_29, xend=xe_29, yend=ye_29))
# 
p <- p + geom_curve(  aes(x=xs_30, y=ys_30, xend=xe_30, yend=ye_30),curvature=-0.1)
p <- p + geom_segment(aes(x=xs_31, y=ys_31, xend=xe_31, yend=ye_31))
p <- p + geom_curve(  aes(x=xs_32, y=ys_32, xend=xe_32, yend=ye_32),curvature=0.1)
# 
p <- p + xlim(0,20) + ylim(-15,10)
plot(p)

スイマセン。。
こんな記事でスイマセン。

次回以降に、乞うご期待。ということで、今日はこの辺で。

最後まで読んでくれてありがとうございます。