미국 기초 화장품 주요 수입국 데이터 시각화 │ ggraph

미국 기초 화장품 주요 수입국 데이터 시각화  │ ggraph

지난 포스팅에서는 R의 대표적인 데이터 시각화 패키지인 ggpplot2와 TradeMap의 세계수출데이터를 이용하여 한국 기초 화장품 주요 수출국가 데이터 시각화를 정리하였다.

이전 포스팅 클릭 ☞ 한국 기초화장품 수출 │R 데이터 시각화 │ ggplot2

한국 기초화장품 수출 │ R 데이터 시각화 │ggplot2

이번 포스팅에서는 R의 ggraph를 이용하여 기초 화장품 세계 최대 기초화장품 국가 중 하나인 미국의 주요 수입국가에 관한 데이터 시각화를 정리한다.

ggraph를 활용한 데이터 시각화

#1. Create nodes list

exports <- us417 %>%
distinct(source) %>%
rename(label = source)

imports <- us417 %>%
distinct(target) %>%
rename(label = target)

#2. Join the two data to create node

nodes <- full_join(exports, imports, by = "label")
nodes <- nodes %>%
mutate(id = 1:nrow(nodes)) %>%
select(id, everything())
head(nodes, 3)

# 3. Create edges list :

us417 <- us417 %>%
rename(weight = weight)

edges <- us417 %>%
left_join(nodes, by = c("source" = "label")) %>%
rename(from = id)

edges <- edges %>%
left_join(nodes, by = c("target" = "label")) %>%
rename(to = id)

edges <- select(edges, from, to, weight)
head(edges, 3)

#4 igraph

library(igraph)
net.igraph <- graph_from_data_frame(
d = edges, vertices = nodes,
directed = TRUE
)

set.seed(123)
plot(net.igraph, edge.arrow.size = 0.2,
layout = layout_with_graphopt)

igraph를 활용한 미국의 기초 화장품 수입국 네트워크 분석 결과 

 

#5. tidygraph and ggraph

library(tidygraph)
net.tidy <- tbl_graph(
nodes = nodes, edges = edges, directed = TRUE
)

library(ggraph)
ggraph(net.tidy, layout = "star") +
geom_node_point() +
geom_edge_link(aes(width = weight), alpha = 0.8) +
scale_edge_width(range = c(0.2, 2)) +
geom_node_text(aes(label = label), repel = TRUE) +
labs(edge_width = "ac17") +
theme_graph()

ggraph를 이용한 미국 기초 화장품 수입 네트워크 분석 (1)

#5.3 Graph layout

ggraph(net.tidy, layout = "linear", circular = TRUE) +
geom_edge_arc(aes(width = weight), alpha = 0.8) +
scale_edge_width(range = c(0.2, 2)) +
geom_node_text(aes(label = label), repel = TRUE) +
labs(edge_width = "trade amount") +
theme_graph()+
theme(legend.position = "top")

ggraph를 이용한 미국 기초 화장품 수입 네트워크 분석 (2)

#5.3.2 Arc diagram

ggraph(net.tidy, layout = "linear") +
geom_edge_arc(aes(width = weight), alpha = 0.5) +
scale_edge_width(range = c(0.2, 2)) +
geom_node_text(aes(label = label), repel = TRUE) +
labs(edge_width = "trade amount") +
theme_graph()+
theme(legend.position = "top")

ggraph를 이용한 미국 기초 화장품 수입 네트워크 분석 (3)

마지막으로 미국 기초 화장품 주요 수입국 데이터는 WTO의 TradeMap에서 수집하였고, 시각화를 위한 ggraph R Code는 다음의 책을 참고하였다. Alboukadel Kassambara (2017), Network Analysis and Visualization in R 

1. R Code 다운로드

ggraph.R

0.00MB

2. 연습용 미국 기초 화장품 수입 데이터 다운로드 

US417.csv

0.00MB