Elephant Countries

Map countries mentioned in a Wikipedia article about elephants

Get the text of Wikipedia article about elephant:

In[1]:=

text=WikipediaData["elephant"];

Find countries mentioned:

In[2]:=

TextCases[text,"Country""Interpretation"]

Out[2]=

Central,

Australia

,Antarctica,

China

,

Japan

,

Indonesia

,

United States

,

Sri Lanka

,

India

,

Sri Lanka

,

United States

,

Namibia

,

Botswana

,

Uganda

,

Kenya

,

South Africa

,

Botswana

,

Kenya

,

India

,

Sri Lanka

,

India

,

India

,Central,

Cameroon

,

Somalia

,

Zambia

,

Mozambique

,

Angola

,

Botswana

,

Zimbabwe

,

South Africa

,

Zimbabwe

,

Botswana

,

Namibia

,

Zimbabwe

,

South Africa

,

Botswana

,

Cameroon

,

Gabon

,

Mozambique

,

Namibia

,

South Africa

,

Tanzania

,

Zambia

,

Zimbabwe

,

Kenya

,

Syria

,

Iraq

,

China

,

India

,

United States

,

Japan

,

Kenya

,

India

,

China

,

Japan

,

Hong Kong

,

Zimbabwe

,

Botswana

,

Namibia

,

Zambia

,

Malawi

,

Cameroon

,

Chad

,

India

,

China

,

China

,

United States

,

Thailand

,

India

,

Myanmar

,

Thailand

,

Belgium

,

India

,

India

,

Iran

,

India

,

India

,

India

,

India

,

Egypt

,

Greece

,

China

,

Greece

,

United States

,

Zimbabwe

,

United Kingdom

,

United States

,

United States

,

India

,

India

,

Tunisia

,

Niger

,U,S,

Thailand

,

United States



Include only the genuine entities found:

In[3]:=

Cases[%,_Entity]

Out[3]=



Australia

,

China

,

Japan

,

Indonesia

,

United States

,

Sri Lanka

,

India

,

Sri Lanka

,

United States

,

Namibia

,

Botswana

,

Uganda

,

Kenya

,

South Africa

,

Botswana

,

Kenya

,

India

,

Sri Lanka

,

India

,

India

,

Cameroon

,

Somalia

,

Zambia

,

Mozambique

,

Angola

,

Botswana

,

Zimbabwe

,

South Africa

,

Zimbabwe

,

Botswana

,

Namibia

,

Zimbabwe

,

South Africa

,

Botswana

,

Cameroon

,

Gabon

,

Mozambique

,

Namibia

,

South Africa

,

Tanzania

,

Zambia

,

Zimbabwe

,

Kenya

,

Syria

,

Iraq

,

China

,

India

,

United States

,

Japan

,

Kenya

,

India

,

China

,

Japan

,

Hong Kong

,

Zimbabwe

,

Botswana

,

Namibia

,

Zambia

,

Malawi

,

Cameroon

,

Chad

,

India

,

China

,

China

,

United States

,

Thailand

,

India

,

Myanmar

,

Thailand

,

Belgium

,

India

,

India

,

Iran

,

India

,

India

,

India

,

India

,

Egypt

,

Greece

,

China

,

Greece

,

United States

,

Zimbabwe

,

United Kingdom

,

United States

,

United States

,

India

,

India

,

Tunisia

,

Niger

,

Thailand

,

United States



Find the number of times each country appears:

In[4]:=

Counts[%]

Out[4]=



Australia

1,

China

6,

Japan

3,

Indonesia

1,

United States

8,

Sri Lanka

3,

India

16,

Namibia

4,

Botswana

6,

Uganda

1,

Kenya

4,

South Africa

4,

Cameroon

3,

Somalia

1,

Zambia

3,

Mozambique

2,

Angola

1,

Zimbabwe

6,

Gabon

1,

Tanzania

1,

Syria

1,

Iraq

1,

Hong Kong

1,

Malawi

1,

Chad

1,

Thailand

3,

Myanmar

1,

Belgium

1,

Iran

1,

Egypt

1,

Greece

2,

United Kingdom

1,

Tunisia

1,

Niger

1

Make a geo bubble chart:

In[5]:=

GeoBubbleChart[%]

Out[5]=

Publisher Information

Contributed by: Stephen Wolfram