My Notes

統計学とかR(R言語)とかPython3の覚え書きとか走り書きとか。 座右の銘にしたい: All work and no play makes Jack a dull boy.

いろんなデータの分布をR(R言語)で可視化 ヒストグラムと散布図 世界の主な山

Rコード

# 分布 ヒストグラムと散布図
# 使用するデータは、『データブック・オブ・ザ・ワールド 世界各国要覧と最新統計 2016 Vol.28』
# p.5

# 世界の主な山
# 山の名称は、この目的上、必要ないので省略

# 文字化けする場合
par(family = "Osaka")

世界の主な山 <- data.frame(高度 = c(8848, 8611, 7719, 7439, 5671,
                                4548, 4095, 3805, 3767, 5895,
                                5199, 4533, 4167, 3482, 5642,
                                4808, 4750, 4506, 3404, 2912,
                                2655, 2470, 1895, 1344, 6960,
                                6194, 5610, 4418, 4398, 4392,
                                4205, 3754, 2230, 4897))

世界の主な山


x <- hist(世界の主な山$高度, col = "steelblue", right = FALSE, main = "世界の主な山の高度 単位 : m")
x

summary(世界の主な山$高度)

plot(世界の主な山$高度, ylab = "世界の主な山$高度 単位 : m")

R Console

> # 分布 ヒストグラムと散布図
> # 使用するデータは、『データブック・オブ・ザ・ワールド 世界各国要覧と最新統計 2016 Vol.28』
> # p.5
> 
> # 世界の主な山
> # 山の名称は、この目的上、必要ないので省略
> 
> # 文字化けする場合
> par(family = "Osaka")
> 
> 世界の主な山 <- data.frame(高度 = c(8848, 8611, 7719, 7439, 5671,
+                             4548, 4095, 3805, 3767, 5895,
+                             5199, 4533, 4167, 3482, 5642,
+                             4808, 4750, 4506, 3404, 2912,
+                             2655, 2470, 1895, 1344, 6960,
+                             6194, 5610, 4418, 4398, 4392,
+                             4205, 3754, 2230, 4897))
> 
> 世界の主な山
   高度
1  8848
2  8611
3  7719
4  7439
5  5671
6  4548
7  4095
8  3805
9  3767
10 5895
11 5199
12 4533
13 4167
14 3482
15 5642
16 4808
17 4750
18 4506
19 3404
20 2912
21 2655
22 2470
23 1895
24 1344
25 6960
26 6194
27 5610
28 4418
29 4398
30 4392
31 4205
32 3754
33 2230
34 4897
> 
> 
> x <- hist(世界の主な山$高度, col = "steelblue", right = FALSE, main = "世界の主な山の高度 単位 : m")
> x
$breaks
[1] 1000 2000 3000 4000 5000 6000 7000 8000 9000

$counts
[1]  2  4  5 12  5  2  2  2

$density
[1] 5.882353e-05 1.176471e-04 1.470588e-04 3.529412e-04 1.470588e-04
[6] 5.882353e-05 5.882353e-05 5.882353e-05

$mids
[1] 1500 2500 3500 4500 5500 6500 7500 8500

$xname
[1] "世界の主な山$高度"

$equidist
[1] TRUE

attr(,"class")
[1] "histogram"
> 
> summary(世界の主な山$高度)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   1344    3757    4462    4683    5634    8848 
> 
> 
> plot(世界の主な山$高度, ylab = "世界の主な山$高度 単位 : m")

ヒストグラムスクリーンショット

f:id:my_notes:20170603110615p:plain

散布図のスクリーンショット

f:id:my_notes:20170603110650p:plain

参考文献

データブック オブ・ザ・ワールド―世界各国要覧と最新統計〈2016 Vol.28〉

データブック オブ・ザ・ワールド―世界各国要覧と最新統計〈2016 Vol.28〉