add 중등사회3 data update

R/data.R

@@ -953,3 +953,204 @@ NULL
 #' @source \url{http://estat.me/estat/eStat/}
 #' @keywords datasets
 "students_math_score"
+
+
+#' mudflat_change_trend: 중등사회 5-3
+#'
+#' 중등사회 5-3 교과서에 수록된 갯벌 면적의 변화 추이 데이터
+#'
+#'
+#' @format 변수 2개와 4행을 갖는 티블 데이터프레임:
+#' @aliases 갯벌 면적의 변화 추이
+#' @docType data
+#' @return \item{mudflat_change_trend}{데이터프레임}
+#' \describe{
+#'   \item{\code{년도}}{double 1987, 1998, 2003, 2008년}
+#'   \item{\code{갯벌면적}}{double 갯벌면적}
+#'}
+#' @details  중등사회 5-3 교과서에 수록된 갯벌 면적의 변화 추이 데이터
+#' @source \url{http://estat.me/estat/eStat/}
+#' @keywords datasets
+"mudflat_change_trend"
+
+
+#' mudflat_region_dist: 중등사회 5-3
+#'
+#' 중등사회 5-3 교과서에 수록된 갯벌의 지역별 분포 데이터
+#'
+#'
+#' @format 변수 3개와 7행을 갖는 티블 데이터프레임:
+#' @aliases 갯벌의 지역별 분포
+#' @docType data
+#' @return \item{mudflat_region_dist}{데이터프레임}
+#' \describe{
+#'   \item{\code{지역}}{character 7개 광역시}
+#'   \item{\code{면적}}{double 면적, km2}
+#'   \item{\code{면적비율}}{double 면적비율}
+#'}
+#' @details  중등사회 5-3 교과서에 수록된 갯벌의 지역별 분포 데이터
+#' @source \url{http://estat.me/estat/eStat/}
+#' @keywords datasets
+"mudflat_region_dist"
+
+
+#' population_change_trend: 중등사회 5-3
+#'
+#' 중등사회 5-3 교과서에 수록된 광양시 인구 변화 데이터
+#'
+#'
+#' @format 변수 2개와 5행을 갖는 티블 데이터프레임:
+#' @aliases 광양시 인구 변화
+#' @docType data
+#' @return \item{population_change_trend}{데이터프레임}
+#' \describe{
+#'   \item{\code{구분}}{character 년도(년)}
+#'   \item{\code{인구}}{double 인구, 명}
+#'}
+#' @details  중등사회 5-3 교과서에 수록된 광양시 인구 변화 데이터
+#' @source \url{http://estat.me/estat/eStat/}
+#' @keywords datasets
+"population_change_trend"
+
+#' oil_production_by_country: 중등사회 5-3
+#'
+#' 중등사회 5-3 교과서에 수록된 국가별 석유 생산량 데이터
+#'
+#'
+#' @format 변수 2개와 10행을 갖는 티블 데이터프레임:
+#' @aliases 석유 생산량 데이터
+#' @docType data
+#' @return \item{oil_production_by_country}{데이터프레임}
+#' \describe{
+#'   \item{\code{생산국}}{character 생산국}
+#'   \item{\code{생산량}}{double 생산량, 백만톤}
+#'}
+#' @details  중등사회 5-3 교과서에 수록된 국가별 석유 생산량 데이터
+#' @source \url{http://estat.me/estat/eStat/}
+#' @keywords datasets
+"oil_production_by_country"
+
+
+#' ironstone_import_by_country: 중등사회 5-3
+#'
+#' 중등사회 5-3 교과서에 수록된 국가별 철광석 수입량 데이터
+#'
+#'
+#' @format 변수 3개와 6행을 갖는 티블 데이터프레임:
+#' @aliases 철광석 수입량 데이터
+#' @docType data
+#' @return \item{ironstone_import_by_country}{데이터프레임}
+#' \describe{
+#'   \item{\code{구분}}{character 국가}
+#'   \item{\code{수입량}}{double 수입량, 만톤}
+#'   \item{\code{비율}}{double 비율, %}
+#'}
+#' @details  중등사회 5-3 교과서에 수록된 국가별 철광석 수입량 데이터
+#' @source \url{http://estat.me/estat/eStat/}
+#' @keywords datasets
+"ironstone_import_by_country"
+
+
+#' ratio_of_paddy_field: 중등사회 5-3
+#'
+#' 중등사회 5-3 교과서에 수록된 김포시 논밭비율의 변화 데이터
+#'
+#'
+#' @format 변수 5개와 2행을 갖는 티블 데이터프레임:
+#' @aliases 논밭비율의 변화 데이터
+#' @docType data
+#' @return \item{ratio_of_paddy_field}{데이터프레임}
+#' \describe{
+#'   \item{\code{구분}}{character 논, 밭}
+#'   \item{\code{1996년면적}}{double 면적, ha}
+#'   \item{\code{1996년비율}}{double 비율, %}
+#'   \item{\code{2008년면적}}{double 면적, ha}
+#'   \item{\code{2008년비율}}{double 비율, %}
+#'}
+#' @details  중등사회 5-3 교과서에 수록된 김포시 논밭비율의 변화 데이터
+#' @source \url{http://estat.me/estat/eStat/}
+#' @keywords datasets
+"ratio_of_paddy_field"
+
+
+#' comp_mineral_resource: 중등사회 5-3
+#'
+#' 중등사회 5-3 교과서에 수록된 남북한광물자원 매장량 데이터
+#'
+#'
+#' @format 변수 3개와 12행을 갖는 티블 데이터프레임:
+#' @aliases 광물자원 매장량 데이터
+#' @docType data
+#' @return \item{comp_mineral_resource}{데이터프레임}
+#' \describe{
+#'   \item{\code{구분}}{character 자원 종류}
+#'   \item{\code{남한}}{double 비율, %}
+#'   \item{\code{북한}}{double 비율, %}
+#'}
+#' @details  중등사회 5-3 교과서에 수록된 남북한광물자원 매장량 데이터
+#' @source \url{http://estat.me/estat/eStat/}
+#' @keywords datasets
+"comp_mineral_resource"
+
+
+#' population_change_mungyeong: 중등사회 5-3
+#'
+#' 중등사회 5-3 교과서에 수록된 문경시 인구변화 데이터
+#'
+#'
+#' @format 변수 2개와 10행을 갖는 티블 데이터프레임:
+#' @aliases 문경시 인구변화 데이터
+#' @docType data
+#' @return \item{population_change_mungyeong}{데이터프레임}
+#' \describe{
+#'   \item{\code{구분}}{character 자원 종류}
+#'   \item{\code{인구수}}{double 인구수, 명}
+#'}
+#' @details  중등사회 5-3 교과서에 수록된 문경시 인구변화 데이터
+#' @source \url{http://estat.me/estat/eStat/}
+#' @keywords datasets
+"population_change_mungyeong"
+
+
+#' wheat_production: 중등사회 5-3
+#'
+#' 중등사회 5-3 교과서에 수록된 밀 생산량 데이터
+#'
+#'
+#' @format 변수 3개와 11행을 갖는 티블 데이터프레임:
+#' @aliases 밀 생산량 데이터
+#' @docType data
+#' @return \item{wheat_production}{데이터프레임}
+#' \describe{
+#'   \item{\code{구분}}{character 국가}
+#'   \item{\code{밀생산량}}{double 밀생산량, 만톤}
+#'   \item{\code{비율}}{double 비율, %}
+#'}
+#' @details  중등사회 5-3 교과서에 수록된 밀 생산량 데이터
+#' @source \url{http://estat.me/estat/eStat/}
+#' @keywords datasets
+"wheat_production"
+
+
+
+#' wheat_export: 중등사회 5-3
+#'
+#' 중등사회 5-3 교과서에 수록된 밀 수출량 데이터
+#'
+#'
+#' @format 변수 3개와 8행을 갖는 티블 데이터프레임:
+#' @aliases 밀 수출량 데이터
+#' @docType data
+#' @return \item{wheat_export}{데이터프레임}
+#' \describe{
+#'   \item{\code{구분}}{character 국가}
+#'   \item{\code{밀수출량}}{double 밀수출량, 만톤}
+#'   \item{\code{비율}}{double 비율, %}
+#'}
+#' @details  중등사회 5-3 교과서에 수록된 밀 수출량 데이터
+#' @source \url{http://estat.me/estat/eStat/}
+#' @keywords datasets
+"wheat_export"
+
+
+

data-raw/DATASET.R

@@ -365,6 +365,79 @@ agro_fishery_in_out_raw <- readr::read_csv("inst/extdata/초등사회6-2우리
 agro_fishery_in_out <- agro_fishery_in_out_raw %>%
     set_names(c("년도", "수입액", "수출액"))
 
+## 중등사회3갯벌면적의변화추이(89쪽).csv
+
+mudflat_change_trend <- readr::read_csv("inst/extdata/중등사회3갯벌면적의변화추이(89쪽).csv")
+
+mudflat_change_trend <- mudflat_change_trend %>%
+    set_names(c("년도", "갯벌면적"))
+
+## 중등사회3갯벌의지역별분포(88쪽).csv
+
+mudflat_region_dist <- readr::read_csv("inst/extdata/중등사회3갯벌의지역별분포(88쪽).csv")
+
+mudflat_region_dist <- mudflat_region_dist %>%
+    set_names(c("지역", "면적", "면적비율"))
+
+## 중등사회3광양시인구변화(44쪽).csv
+
+population_change_trend <- readr::read_csv("inst/extdata/중등사회3광양시인구변화(44쪽).csv")
+
+population_change_trend <- population_change_trend %>%
+    set_names(c("구분", "인구(명)"))
+
+## 중등사회3국가별석유생산량(17쪽).csv
+
+oil_production_by_country <- readr::read_csv("inst/extdata/중등사회3국가별석유생산량(17쪽).csv")
+
+oil_production_by_country <- oil_production_by_country %>%
+    set_names(c("생산국", "생산량(백만톤)"))
+
+## 중등사회3국가별철광석수입량(17쪽).csv
+
+ironstone_import_by_country <- readr::read_csv("inst/extdata/중등사회3국가별철광석수입량(17쪽).csv")
+
+ironstone_import_by_country <- ironstone_import_by_country %>%
+    set_names(c("구분", "수입량(만톤)", "비율(%)"))
+
+## 중등사회3김포시논밭비율변화(34쪽).csv
+
+ratio_of_paddy_field <- readr::read_csv("inst/extdata/중등사회3김포시논밭비율변화(34쪽).csv")
+
+ratio_of_paddy_field <- ratio_of_paddy_field %>%
+    set_names(c("구분", "1996년면적", "1996년비율", "2008년면적", "2008년비율"))
+
+## 중등사회3남북한광물자원매장량비교(114쪽).csv
+
+comp_mineral_resource <- readr::read_csv("inst/extdata/중등사회3남북한광물자원매장량비교(114쪽).csv")
+
+comp_mineral_resource <- comp_mineral_resource %>%
+    set_names(c("구분", "남한", "북한"))
+
+## 중등사회3문경시인구변화(54쪽).csv
+
+population_change_mungyeong <- readr::read_csv("inst/extdata/중등사회3문경시인구변화(54쪽).csv")
+
+population_change_mungyeong <- population_change_mungyeong %>%
+    set_names(c("구분", "인구수"))
+
+
+## 중등사회3밀생산량(16쪽).csv
+
+wheat_production <- readr::read_csv("inst/extdata/중등사회3밀생산량(16쪽).csv")
+
+wheat_production <- wheat_production %>%
+    set_names(c("구분", "밀생산량(만톤)", "비율(%)"))
+
+## 중등사회3밀수출량(16쪽).csv
+
+wheat_export <- readr::read_csv("inst/extdata/중등사회3밀수출량(16쪽).csv")
+
+wheat_export <- wheat_export %>%
+    set_names(c("구분", "수출량(만톤)", "비율(%)"))
+
+
+
 # 2. 데이터셋 팩키지 추가 ------
 
 usethis::use_data(population_age, overwrite = TRUE)
@@ -422,3 +495,16 @@ usethis::use_data(students_math_score, overwrite = TRUE)
 
 usethis::use_data(gender, overwrite = TRUE)
 
+
+usethis::use_data(mudflat_change_trend, overwrite = TRUE)
+usethis::use_data(mudflat_region_dist, overwrite = TRUE)
+usethis::use_data(population_change_trend, overwrite = TRUE)
+usethis::use_data(oil_production_by_country, overwrite = TRUE)
+usethis::use_data(ironstone_import_by_country, overwrite = TRUE)
+usethis::use_data(ratio_of_paddy_field, overwrite = TRUE)
+usethis::use_data(comp_mineral_resource, overwrite = TRUE)
+usethis::use_data(population_change_mungyeong, overwrite = TRUE)
+usethis::use_data(wheat_production, overwrite = TRUE)
+usethis::use_data(wheat_export, overwrite = TRUE)
+
+

inst/extdata/중등사회3갯벌면적의변화추이(89쪽).csv

@@ -0,0 +1,5 @@
+"년도 ","갯벌면적(㎢)"
+1987,3203.5
+1998,2393
+2003,2550.2
+2008,2489.4

inst/extdata/중등사회3갯벌의지역별분포(88쪽).csv

@@ -0,0 +1,8 @@
+"지역","면적(㎢)","면적비율"
+경기도,168.8,0.067807504
+인천광역시,703.9,0.282758898
+충청남도,358.3,0.143930264
+전라북도,117.7,0.047280469
+전라남도,1036.9,0.416526071
+경상남도,79.1,0.031774725
+부산광역시,24.2,0.009721218

inst/extdata/중등사회3광양시인구변화(44쪽).csv

@@ -0,0 +1,6 @@
+"구분","인구 (명)"
+1970년,94451
+1981년,78478
+1987년,129899
+2000년,138097
+2008년,141388

inst/extdata/중등사회3국가별석유생산량(17쪽).csv

@@ -0,0 +1,11 @@
+"생산국","생산량(백만톤)"
+러시아,494
+사우디아라비아,460
+미국,325
+이란,202
+중국,189
+캐나다,156
+멕시코,148
+베네수엘라,125
+쿠웨이트,121
+아랍 에미리트,120

inst/extdata/중등사회3국가별철광석수입량(17쪽).csv

@@ -0,0 +1,7 @@
+"구분","수입량(만 톤)","비율(%)"
+중국,41130.32,0.56
+일본,8813.64,0.12
+대한민국,3672.35,0.05
+독일,2937.88,0.04
+이탈리아,1468.94,0.02
+기타,15423.87,0.21

inst/extdata/중등사회3김포시논밭비율변화(34쪽).csv

@@ -0,0 +1,3 @@
+"구분","1996년면적(㏊)","1996년비율","2008년면적(㏊)","2008년비율"
+논,8483.81,0.79,6977.34,0.73
+밭,2255.19,0.21,2580.66,0.27

inst/extdata/중등사회3남북한광물자원매장량비교(114쪽).csv

@@ -0,0 +1,14 @@
+"구분","남한","북한"
+갈탄/니켈
+/마그네사이트,0,1
+금,0.002,0.988
+동,0.019,0.981
+아연,0.027,0.973
+석회석,0.091,0.909
+무연탄,0.233,0.767
+은,0.24,0.76
+몰리브덴,0.289,0.711
+중석,0.34,0.66
+망간,0.37,0.63
+활석,0.921,0.079
+고령도,0.982,0.018

inst/extdata/중등사회3문경시인구변화(54쪽).csv

@@ -0,0 +1,11 @@
+"구분","인구수"
+1965,161116
+1970,158015
+1975,161115
+1980,147460
+1985,139811
+1990,119877
+1995,95815
+2000,90000
+2005,78357
+2008,75973

inst/extdata/중등사회3밀생산량(16쪽).csv

@@ -0,0 +1,12 @@
+"구분","밀생산량(만 톤)","비율(%)"
+중국,9598.092,0.163
+인도,6712.776,0.114
+미국,5829.516,0.099
+러시아,5417.328,0.092
+프랑스,3356.388,0.057
+캐나다,2414.244,0.041
+독일,2237.592,0.038
+우크라이나,2178.708,0.037
+오스트레일리아,1825.404,0.031
+파키스탄,1766.52,0.03
+기타,17547.432,0.298