Power Law:(14)Category Tendency to LN(A) - LN(B)

(2008/11/01)
Power Law:(11)のデータをカテゴリごとにプロットを色分けしてみる。
基準線は傾向が見えなくなるので、外す。
何が見えるか？
The plot is classified by each category by using the data of Power Law:(11).
Because the tendency disappears to the base point line, it removes.
What do you see?
~~~
[1]
Power Law:(13)で使用したファイル：powerlaw-11-a-b.txt　を使う。
カテゴリごとにファイルを分ける。
The file used with Power Law:(13): Powerlaw-11-a-b.txt is used.
The file is divided by each category.
~~~
[1-1]category="Bio",9 records
file:powerlaw-11-a-b-bio.txt
===
"A","B","memo","Category"
-1.0,5.62e3,"Power Law:(5),p.175,Fig.5-33",Bio
-0.353,58.214,"Power Law:(4),table.1",Bio
-0.29758,15.5,"Power Law:(3),p.242,Fig.44",Bio
-0.249,31.174,"Power Law:(7),p.27,Fig.3-1",Bio
-0.249,159.9,"Power Law:(7),p.36,Fig.3-2",Bio
-0.249,212.878,"Power Law:(7),p.36,Fig.3-2",Bio
-0.74,23.2,"Power Law:(8),p.22,Fig.2",Bio
-0.518,390,"Power Law:(8),p.24,Fig.3",Bio
-0.692,6.971e3,"Power Law:(8),p.26,Fig.4",Bio
===

~~~
[1-2]category="Electric",3 records
file:powerlaw-11-a-b-electric.txt
===
"A","B","memo","Category"
-1.1818,5.337e4,"Power Law:(5),p.111,Fig.4-3",Electric
-1.035,63.065,"Power Law:(5),p.123,Fig.4-10",Electric
-0.767,200,"Power Law:(5),p.108,Fig.4-1",Electric
===

~~~
[1-3]category="human activity",5 records
file:powerlaw-11-a-b-human_activity.txt
===
"A","B","memo","Category"
-1.013,17.635,"Power Law:(5),p.63,Fig.2-18",Economy...human activity
-1.0123,20.75,"Power Law:(5),p.60,Fig.2-15",Economy...human activity
-1,1e4,"Power Law:(5),p.62,Fig.2-17",Culture?...human activity
-2.154,3162,"Power Law:(9),p.129,Fig.9",web...human activity
-2.1,1e6,"Power Law:(11),Fig.1",web...human activity
===

~~~
[1-4]category="Industry",3 records
file:powerlaw-11-a-b-industry.txt
===
"A","B","memo","Category"
-3.21,104660,"Power Law:(5),p.182,Fig.5-39(a)",Industry?
-2.457,4102.56,"Power Law:(5),p.182,Fig.5-39(b)",Industry?
-2.416,5.95e3,"Power Law:(5),p.182,Fig.5-39(c)",Industry?
===

~~~
[1-5]category="Nature",5 records
file:powerlaw-11-a-b-nature.txt
===
"A","B","memo","Category"
-1.246,74,"Power Law:(5),p.128,Fig.4-14",Nature
-1.092,24.926,"Power Law:(5),p.61,Fig.2-16(2)",Nature
-1,100,"Power Law:(5),p.125,Fig.4-12",Nature
-0.991,18.52,"Power Law:(5),p.61,Fig.2-16(1)",Nature
-6.179,1.234e5,"Power Law:(10),p.37,table",Nature...human
===

~~~
[2]カテゴリごとに色分けする。
It classifies it by the category.

data_ab_bio <- read.csv("powerlaw-11-a-b-bio.txt");
plot(log(abs(data_ab_bio$A)), log(data_ab_bio$B), xlim=c(-2, 2), ylim=c(3, 15), col="blue", pch=20, xlab="log(abs(a))", ylab="log(b)")
par(new=T)
data_ab_nature <- read.csv("powerlaw-11-a-b-nature.txt");
plot(log(abs(data_ab_nature$A)), log(data_ab_nature$B), xlim=c(-2, 2), ylim=c(3, 15), col="green", pch=20, ann=F)
par(new=T)
data_ab_human_activity <- read.csv("powerlaw-11-a-b-human_activity.txt");
plot(log(abs(data_ab_human_activity$A)), log(data_ab_human_activity$B), xlim=c(-2, 2), ylim=c(3, 15), col="red", pch=20, ann=F)
par(new=T)
data_ab_industry <- read.csv("powerlaw-11-a-b-industry.txt");
plot(log(abs(data_ab_industry$A)), log(data_ab_industry$B), xlim=c(-2, 2), ylim=c(3, 15), col="gray", pch=20, ann=F)
par(new=T)
data_ab_electric <- read.csv("powerlaw-11-a-b-electric.txt");
plot(log(abs(data_ab_electric$A)), log(data_ab_electric$B), xlim=c(-2, 2), ylim=c(3, 15), col="orange", pch=20, ann=F)
par(new=T)
title(main="Scatter chart:a-b, Power Law(11) category")
~~~
bio:blue
nature:green
human_activity:red
industry:gray
electric:orange

~~~
end