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

Rコード

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


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

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

世界の主な海溝 <- data.frame(深度 = c(10920, 10800, 10057, 10047, 9780,
                                    9550, 9175, 8946, 8940, 8605,
                                    8325, 8322, 8170, 8058, 8054))

世界の主な海溝

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

summary(世界の主な海溝$深度)

plot(世界の主な海溝$深度, ylab = "世界の主な海溝の深度 単位 : m")

R Console

> # 世界の主な海溝
> # 海溝の名称は、この目的上、必要ないので省略
> 
> # 文字化けする場合
> par(family = "Osaka")
> 
> 世界の主な海溝 <- data.frame(深度 = c(10920, 10800, 10057, 10047, 9780,
+                              9550, 9175, 8946, 8940, 8605,
+                              8325, 8322, 8170, 8058, 8054))
> 
> 世界の主な海溝
    深度
1  10920
2  10800
3  10057
4  10047
5   9780
6   9550
7   9175
8   8946
9   8940
10  8605
11  8325
12  8322
13  8170
14  8058
15  8054
> 
> x <- hist(世界の主な海溝$深度, col = "steelblue", right = FALSE, main = "世界の主な海溝の深度 単位 : m")
> x
$breaks
[1]  8000  8500  9000  9500 10000 10500 11000

$counts
[1] 5 3 1 2 2 2

$density
[1] 0.0006666667 0.0004000000 0.0001333333 0.0002666667 0.0002666667
[6] 0.0002666667

$mids
[1]  8250  8750  9250  9750 10250 10750

$xname
[1] "世界の主な海溝$深度"

$equidist
[1] TRUE

attr(,"class")
[1] "histogram"
> 
> summary(世界の主な海溝$深度)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
   8054    8324    8946    9183    9914   10920 
> 
> plot(世界の主な海溝$深度, ylab = "世界の主な海溝の深度 単位 : m")

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

f:id:my_notes:20170603062432p:plain

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

f:id:my_notes:20170603062504p:plain

参考文献

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

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

なお、ggplot2を使用する場合

# ggplot2を使用する場合の雛形
#
# library("ggplot2")
#
# 文字化けする場合
# theme_set(theme_grey(base_family = "Osaka"))
#
#
# ggplot(データフレーム名, aes(x = データフレーム名$列名)) +
#     geom_histogram(binwidth = 区間幅, fill = "塗りつぶし色名", colour = "枠の色名", alpha = 透明度, boundary = 区間の始まり) +
#     ggtitle("タイトル")
#
# 具体例
library("ggplot2")
theme_set(theme_grey(base_family = "Osaka"))

ggplot(世界の主な海溝, aes(x = 世界の主な海溝$深度)) +
     geom_histogram(binwidth = 500, fill = "steelblue", colour = "black", alpha = 0.6, boundary = 8000) +
     ggtitle("世界の主な海溝")

スクリーンショット

f:id:my_notes:20170603062942p:plain