원달러 환율 그래프 10년치로 보는 경제 흐름: R로 쉽게 분석하기

みなさん、こんにちは！今日は私たちの日常生活に大きな影響を与える「ウォン・ドル為替レート」についてお話したいと思います。特に最近のウォン・ドル為替レートの10年分のグラフを見ながら、韓国経済がどのような流れで推移してきたかを一緒に見てみましょう。

この記事では Rというプログラミング言語を使ってデータを可視化する方法も紹介しますので、データ分析に興味のある方には特に役立つと思います！

ウォンドルの為替レート、なぜ重要なのでしょうか？

ウォンドルの為替レートは、韓国経済の健康状態を示す重要な指標の一つです。為替レートが上がると輸出企業は喜びますが、海外旅行や通販を楽しむ方は残念に思います。逆に為替レートが下がると輸入品の価格が下がり、消費者は喜びますが、輸出企業は心配が増えます。このように、ウォンドルの為替レートは私たちの生活のあらゆるところに影響を及ぼしています。

Rで韓国ウォン-ドル為替レートの10年分のグラフを描画する

それでは、Rを使って最近10年間のウォンドル為替レートのグラフを描いてみましょう。下記のコードに従ってみてください。

# パッケージのインストールとロード
if (!require("quantmod")) install.packages("quantmod")
if (!require("ggplot2")) install.packages("ggplot2")
if (!require("dplyr")) install.packages("dplyr")
if (!require("zoo")) install.packages("zoo")
library(quantmod)
library(ggplot2)
library(dplyr)
library(zoo)

# Yahoo Financeからデータをダウンロード
currency_pair <- "USDKRW=X"
start_date <- Sys.Date() - 365*10 # 最近10年間
end_date <- Sys.Date()

# 為替レートデータの取得
getSymbols(currency_pair, src = "yahoo", from = start_date, to = end_date, auto.assign = TRUE)
data <- get(currency_pair)

# 欠損値処理
data <- na.omit(data)

# データフレームに変換
data <- data.frame(Date = index(data), coredata(data))
colnames(data) <- c("Date", "Open", "High", "Low", "Close", "Volume", "Adjusted")

# 50日移動平均線を計算します。
data %
    mutate(MA50 = rollmean(Close, k = 50, fill = NA))

# 主要経済イベントの定義
events <- data.frame(
    Date = as.Date(c("2020-03-01", "2022-02-24", "2024-12-07"))、
    Label = c("COVID-19 Pandemic", "Russia-Ukraine War", "Martial Law Declaration")
)

#の最大・最小為替レートの計算
max_rate <- max(data$Close, na.rm = TRUE)
min_rate <- min(data$Close, na.rm = TRUE)
max_date <- data$Date[which.max(data$Close)].
min_date <- data$Date[which.min(data$Close)].

# 10年間の平均為替レート計算
mean_rate <- mean(data$Close, na.rm = TRUE)

# 最大最小為替レートのデータフレームを生成します。
extreme_points <- data.frame(
    Date = c(max_date, min_date)、
    Rate = c(max_rate, min_rate)、
    Label = c(paste("Max:", round(max_rate, 2), "on", max_date)、
              paste("Min:", round(min_rate, 2), "on", min_date))
)

# グラフ描画
ggplot(data, aes(x = Date, y = Close)) +
    geom_line(color = "steelblue", size = 1, alpha = 0.8) +
    geom_line(aes(y = MA50), color = "orange", size = 1, linetype = "dashed") + geom_line(data, aes(y = Date, y = Close))
    geom_hline(yintercept = mean_rate, color = "青", linetype = "点線", size = 1) +
    annotate("text", x = max(data$Date), y = mean_rate、
             label = paste("10-Year Average:", round(mean_rate, 2))、
             color = "blue", vjust = -0.5, hjust = 1, size = 3) +...
    geom_vline(data = events, aes(xintercept = Date), color = "赤", linetype = "dashed", size = 0.7) + geom_text(data = events, aes(xintercept = Date), color = "赤", linetype = "dashed", size = 0.7)
    geom_text(data = events, aes(x = Date, y = max(data$Close, na.rm = TRUE), label = Label)、
              color = "赤", vjust = 10, hjust = 1.5, angle = 45, size = 3) +
    geom_point(data = extreme_points, aes(x = Date, y = Rate), color = c("green", "purple"), size = 3) +
    geom_text(data = extreme_points, aes(x = Date, y = Rate, label = Label)、
              color = c("green", "purple"), vjust = c(-1, 1.5), hjust = 0.5, size = 3) + geom_text(
    labs(
        title = "KRW/USD Exchange Rate Over Last 10 Years"、
        x = "年"、
        y = "為替レート(KRW/USD)"
    ) + λλλλλλλλλλλλλλλλλλλλλ
    theme_minimal() +
    theme(
        plot.title = element_text(hjust = 0.5, size = 16, face = "bold")、
        axis.title = element_text(size = 12)
    )

ウォン-ドル為替レートグラフ10年、何を教えてくれますか？

원달러 환율 그래프 10년치에 미친 주요 사건들 — ( ウォンドル為替レートグラフ10年分に影響を与えた主な出来事 )

上記のグラフは、過去10年間のウォン/ドル為替レートの変動を視覚的に示しています。様々な国内外の主要な出来事が為替レートに与えた影響を明確に示し、この期間中の韓国経済とグローバル経済の相互作用を理解するための重要な手がかりを提供します。以下に注目すべき点を整理してみました。

COVID-19パンデミックの影響

2020年3月、世界中で COVID-19パンデミックが宣言これにより、韓国ウォンの価値が下落し、安全資産に分類されるドルの需要が急増し、為替レートは急激に上昇しました。

ロシア・ウクライナ戦争の影響

2022年2月、ロシアのウクライナ侵攻により、世界的な地政学的不安が高まりました。エネルギー危機とグローバルサプライチェーンの混乱が深刻化し、ウォン/ドル為替レートは再び大きく上昇しました。

非常事態宣言の影響

2024年12月3日、ユン・ソクヨル大統領が非常戒厳令を宣言した事件は、外国為替市場に即座に衝撃を与えました。政治的不安定性が高まり、投資家の心理が萎縮し、これはウォン安とウォン/ドル為替レートの上昇につながりました。現在、為替レートは約1,430ウォン台で変動しています。

最高点と最低点

グラフによると、為替レートは2022年10月24日に約 1,443.96円で最高値を記録しました。逆に、2018年4月3日には、2018年4月3日に 1,053.73円で最低点を示しました。
このような変動は、国際的なイベントと国内経済政策が複合的に作用した結果と解釈されます。

おわりに

韓国ウォン-ドル為替レートの10年間のグラフを見ると、韓国経済がいかに様々な要因の影響を受けているかが分かります。金利、物価、国際情勢など、すべてが複合的に作用します。このようなデータをRで分析して視覚化すると、複雑な経済現象をもう少し簡単に理解することができます。

皆さんもこのコードを活用して他の経済指標を分析してみてはいかがでしょうか？データは私たちに多くの物語を語る準備ができています。一緒に耳を傾けてみましょう！

# コード詳細解説

以下は、ウォンドル為替レートグラフの10年分のデータを分析して視覚化するRコードの行ごとの解説です：

if (!require("quantmod")) install.packages("quantmod")
if (!require("ggplot2")) install.packages("ggplot2")
if (!require("dplyr")) install.packages("dplyr")
if (!require("zoo")) install.packages("zoo")

必要なパッケージがインストールされていない場合はインストールします。

ライブラリ(quantmod)
library(ggplot2)
ライブラリ(dplyr)
図書館(動物園)

必要なパッケージをロードします。

currency_pair <- "USDKRW=X"
start_date <- Sys.Date() - 365*10
end_date <- Sys.Date()

為替レートデータを取得する通貨ペアと期間を設定します。

getSymbols(currency_pair, src = "yahoo", from = start_date, to = end_date, auto.assign = TRUE)
data <- get(currency_pair)

Yahoo Financeから為替レートデータをダウンロードし、変数に割り当てます。

data <- na.omit(data)

欠測値を削除します。

data <- data.frame(Date = index(data), coredata(data))
colnames(data) <- c("Date", "Open", "High", "Low", "Close", "Volume", "Adjusted")

データをデータフレームに変換し、列名を指定します。

data %
mutate(MA50 = rollmean(Close, k = 50, fill = NA))

50日移動平均線を計算してデータに追加します。

events <- data.frame(
Date = as.Date(c("2020-03-01", "2022-02-24", "2024-12-03"))、
Label = c("COVID-19パンデミック", "ロシア・ウクライナ戦争", "KR戒厳令宣言")
)

主要な経済イベントを定義します。

max_rate <- max(data$Close, na.rm = TRUE)
min_rate <- min(data$Close, na.rm = TRUE)
max_date <- data$Date[which.max(data$Close)]].
min_date <- data$Date[which.min(data$Close)]].

最大と最小の為替レートとその日付を計算します。

extreme_points <- data.frame(
Date = c(max_date, min_date)、
Rate = c(max_rate, min_rate)、
Label = c(paste("Max:", round(max_rate, 2), "on", max_date)、
paste("Min:", round(min_rate, 2), "on", min_date))
)

最大および最小為替レートポイントのデータフレームを作成します。

ggplot(data, aes(x = Date, y = Close)) +...
geom_line(color = "steelblue", size = 1, alpha = 0.8) +...
geom_line(aes(y = MA50), color = "橙色", size = 1, linetype = "破線") +...
geom_vline(data = events, aes(xintercept = Date), color = "赤", linetype = "破線", size = 0.7) +
geom_text(data = events, aes(x = Date, y = max(data$Close, na.rm = TRUE), label = Label)、
color = "赤", vjust = 10, hjust = 1.5, angle = 45, size = 3) +...
geom_point(data = extreme_points, aes(x = Date, y = Rate), color = c("green","purple"), size = 3) +...
geom_text(data = extreme_points, aes(x = Date, y = Rate, label = Label)、
color = c("緑", "紫"), vjust = c(-1, 1.5), hjust = 0.5, size = 3) +...
ラボ(
title = "KRW/USD Exchange Rate Over Last 10 Years"、
x = "年"です、
y = "為替レート(KRW/USD)"
) +
theme_minimal() +...
テーマ(
plot.title = element_text(hjust = 0.5, size = 16, face = "bold")、
axis.title = element_text(size = 12)
)

ggplot2を使用してグラフを描画します。為替レートデータ、移動平均線、主要イベント、最大/最小為替レートポイントを表示し、グラフのタイトルと軸のラベルを設定します。最後に、グラフのテーマとスタイルを調整します。

ウォンドル為替レートグラフ10年分で見る経済の流れ: Rで簡単に分析する

ウォンドルの為替レート、なぜ重要なのでしょうか？

Rで韓国ウォン-ドル為替レートの10年分のグラフを描画する