Economy: The Richest Peopleの資産をグラフにする, Google Sheets, R

経済については、各国の負債と経済成長の関係と格差に関心をもっています。論文やデータを集めようと思っていますが、まずはGoogle Sheetsの練習も兼ねてお金持ち資産をグラフにしました。

世界の富豪と日本の富豪の資産をWikipediaのHTMLテーブルよりグラフにします。それにしても世界の富豪だとと10兆円を超える資産で驚きますね。日本の富豪でも兆の単位です。

 

I.世界の富豪リストをグラフに

 

1.WikipediaのHTMLテーブルを取得

 

Wikipediaの記事は次です。

 

The World’s Billionaires

 

A1に次の式を書きます。

 

=IMPORTHTML("https://en.wikipedia.org/wiki/The_World%27s_Billionaires","table",3) 

 

 

2.作業シートを作成

 

データを取得したシートを複製(Dupricate)します。大きく修正することもあるので取得した元データはそのまま残します。

 

 

3.値で貼り付け

 

データ全体を選択(Command+a)し、コピー(Command+c)し、右クリックで値のみ貼り付け(Paste values only)します。これを忘れると作業できません。Windowsの場合はCommandキーのかわりに、Ctrlキーを押します。

これを怠ると、表計算アプリをあまり使ってないんだなと思われてしまいます。

 

 

4.不要な記号や文字列を削除する

 

$やbillionがあるとグラフを描けないので削除します。下のようにRIGHT(セル,文字数)LEFT(セル,文字数)でそれぞれ、右から何文字、左から何文字を取得します。文字数はセルによって違うのでセルの文字数を取得するLEN(セル)を使って計算します。

Editor > Replace「置換」を使っても同じ結果が得られますが、関数のほうが元のセルが残るのでおすすめです。例えば、やっぱりbillionを残して起きた方っていう場合、元の列が残っていると助かります。

 

5.形式を数値にしてグラフを描く

 

関数のあるままでは形式を数値にすることができませんでした。普通はそのままでグラフを作成できると思いますので、やり方があるのかもしれません。

 

 

これがさっとできると、「だいたい表計算は使えるね、あとは関数だね」という感じでしょうか。

 

II.日本の富豪リストをグラフに

 

日本の場合、Wikipediaには古いものしかないようです。練習になるのでGoogle Sheetsでグラフを作成してみてください。

 

List of Japanese by net worth

 

Forbesには新しいリストがありますが、スクレイプはたぶん許可されてない?ので、ふつうにコピー&ペーストしてグラフを作成します。

 

Japan’s 50 Richest People

 

レート換算関数でドルを時価で円にしました。ドル円換算関数は次です。

 

=D2*GOOGLEFINANCE("CURRENCY:USDJPY") 

 

 

参考に、Excel Onlineでアラビア数字を漢字になおしました。これは、Google Sheetsではできません。Excelで数字を漢字に直す関数は次です。Argumentの1は漢字の種類です。2にすると難しい方の漢数字になります。

 

=NUMBERSTRING(A1,1) 

 

 

ついでにアラビア数字を英語にしたいと思いましたがやっかいです。

Google Sheetsの関数がありましたが、特定のセルを変換するもので、多くのセルの一括変換に対応していません。また、Excelではマクロを用いて変換しますが、Excel onlineではマクロは使用できません。ちなみに、私はダウンロード版を持っていません。

Google Sheetsのカスタムスクリプトを自分で作成すればよのでしょうが、JavaScriptはそれほどわかりません。

ということでRのライブラリenglishのas.english関数を用いて変換しました。Rのライブラリはなんでもそろっています。Forループで縦一列に並べました。

 

 

Rの変換結果をGoogle Sheetsに貼り付けると完成です。漢字は省きました。

 

 

参考

 

Uniqlo’s Yanai unseats SoftBank’s Son as Japan’s richest man

Please follow and like us:
error

About shibatau

I was born and grown up in Kyoto. I studied western philosophy at the University and specialized in analytic philosophy, especially Ludwig Wittgenstein at the postgraduate school. I'm interested in new technology, especially machine learning and have been learning R language for two years and began to learn Python last summer. Listening toParamore, Sia, Amazarashi and MIyuki Nakajima. Favorite movies I've recently seen: "FREEHELD". Favorite actors and actresses: Anthony Hopkins, Denzel Washington, Ellen Page, Meryl Streep, Mia Wasikowska and Robert DeNiro. Favorite books: Fyodor Mikhailovich Dostoyevsky, "The Karamazov Brothers", Shinran, "Lamentations of Divergences". Favorite phrase: Salvation by Faith. Twitter: @shibatau

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.