R语言中国结婚和离婚数据分析报告

报告是英文的，中文自己翻译

Introduction

At present, the marriage rate in China has reached a new low in history, the divorce rate has soared, and the rate of remarriage has continued to rise. Why do young people increasingly resist marriage? This article analyzes the situation of marriage and divorce in China from 2009 to 2017.

Dataset

data source :national bureau of statistics of china
http://data.stats.gov.cn/easyquery.htm?cn=E0103

China marriage and divorce couples by province from 2009 to 2017.

Analysis

library(tidyverse)
divorce <- read_csv("divorce.csv")
marriage <- read_csv("marriage.csv")

marriage_people <- colSums(marriage[2:10])
year <- c(2017:2009)
divorce_people <- colSums(divorce[2:10])
df <- data.frame(year = year,marriage = ma