R グラフ化練習(初歩)

ズームレンズでどの焦点距離をよく使ってるか。

jhead i*.jpg|grep length|head
Focal length : 28.0mm  (35mm equivalent: 42mm)
Focal length : 28.0mm  (35mm equivalent: 42mm)
Focal length : 33.0mm  (35mm equivalent: 49mm)
Focal length : 28.0mm  (35mm equivalent: 42mm)
Focal length : 28.0mm  (35mm equivalent: 42mm)
Focal length : 28.0mm  (35mm equivalent: 42mm)
Focal length : 28.0mm  (35mm equivalent: 42mm)
Focal length : 50.0mm  (35mm equivalent: 75mm)
Focal length : 50.0mm  (35mm equivalent: 75mm)
Focal length : 50.0mm  (35mm equivalent: 75mm)

sortしてuniq -cの常套手段で何mmを何回使ってるか。

jhead i*(m-3).jpg | grep length | sort | uniq -c \
	| awk '{print $5,$1}' | sed 's/mm//' > A09
cat A09
28.0 76
33.0 32
38.0 16
43.0 6
50.0 22
55.0 29
63.0 45
75.0 44

同様にしてsigma 17-70mm F2.8-4 の頻度ファイルも作成。

つぎ、R。

A09 = matrix(scan(file='A09'), ncol=2, byrow=T)
sigma = matrix(scan(file='17-70'), ncol=2, byrow=T)
png(file="graph.png")
par(new=F)
plot(sigma, ylab='', xlab='', xlim=c(10,90), ylim=c(0,80), type='h',lwd=8)
par(new=T)
plot(a09, ylab='', xlab='', xlim=c(10,90), ylim=c(0,80), type='h',lwd=3,col='orange')
legend(50, 80, c("TAMRON A09", "Sigma 17-70mm"), lwd=c(3,8), col=c("orange", "black"))
dev.off()