fix nas & check

Author: qiuqiuren-ai

.Rhistory

@@ -1,191 +1,3 @@
-# Name to codes of the same year
-regioncode(data_input = corruption$prefecture,
-convert_to = "code",
-year_from = 2019,
-year_to = 2019)
-# Name to name of a different year
-regioncode(data_input = corruption$prefecture,
-convert_to = "name",
-year_from = 2019,
-year_to = 1989)
-# Original full names
-corruption$prefecture
-fake_incomplete <- corruption$prefecture
-index_incomplete <- sample(seq(length(corruption$prefecture)), 7)
-fake_incomplete[index_incomplete] <- fake_incomplete[index_incomplete] |>
-substr(start = 1, stop = 2)
-fake_incomplete
-# Conversion to full names in 2008
-regioncode(data_input = fake_incomplete,
-convert_to = "name",
-year_from = 2019,
-year_to = 2008,
-incomplete_name = TRUE)
-names_municipality <- c("北京市", # Beijing, a municipality
-"海淀区", # A district of Beijing
-"上海市", # Shanghai, a municipality
-"静安区", # A district of Shanghai
-"济南市") # A prefecture of Shandong
-# When `zhixiashi` is FALSE, only the districts are recognized
-regioncode(data_input = names_municipality,
-year_from = 2019,
-year_to = 2019,
-convert_to = "code",
-zhixiashi = FALSE)
-# When `zhixiashi` is TRUE, municipalities are recognized
-regioncode(data_input = names_municipality,
-year_from = 2019,
-year_to = 2019,
-convert_to = "code",
-zhixiashi = TRUE)
-tibble(
-city = corruption$prefecture,
-rank1989 = regioncode(data_input = corruption$prefecture,
-year_from = 2019,
-year_to = 1989,
-convert_to="rank"),
-rank2014 = regioncode(data_input = corruption$prefecture,
-year_from = 2019,
-year_to = 2014,
-convert_to = "rank")
-)
-tibble(
-city = corruption$prefecture,
-cityPY = regioncode(data_input = corruption$prefecture,
-year_from = 2019,
-year_to = 1989,
-convert_to = "name",
-to_pinyin = TRUE
-),
-areaPY = regioncode(data_input = corruption$prefecture,
-year_from = 2019,
-year_to = 1989,
-convert_to = "area",
-to_pinyin = TRUE
-)
-)
-# Regions with special spelling
-regioncode(data_input = c("山西", "陕西", "内蒙古", "香港", "澳门"),
-year_from = 2019,
-year_to = 2008,
-convert_to = "name",
-incomplete_name = TRUE,
-province = TRUE,
-to_pinyin = TRUE
-)
-tibble(
-province = corruption$province_id,
-prov_name = regioncode(data_input = corruption$province_id,
-convert_to = "name",
-year_from = 2019,
-year_to = 1989,
-province = TRUE),
-prov_abbre = regioncode(data_input = corruption$province_id,
-convert_to = "codeToabbre",
-year_from = 2019,
-year_to = 1989,
-province = TRUE)
-)
-regioncode(data_input = corruption$prefecture,
-year_from = 2019,
-year_to = 1989,
-convert_to = "area")
-tibble(
-city = corruption$prefecture,
-dialectGroup = regioncode(data_input = corruption$prefecture,
-year_from = 2019,
-year_to = 1989,
-to_dialect = "dia_group"),
-dialectSubGroup = regioncode(data_input = corruption$prefecture,
-year_from = 2019,
-year_to = 1989,
-to_dialect = "dia_sub_group")
-)
-pkgbuild::check_build_tools(debug = TRUE)
-library(devtools)
-detach("package:devtools", unload = TRUE)
-install.packages("devtools")
-pkgbuild::check_build_tools(debug = TRUE)
-new<- import("~/Desktop/全国各市城镇人口构成.xlsx")
-if (!requireNamespace("dplyr", quietly = TRUE)) {
-install.packages("dplyr")
-}
-library(dplyr)
-if (!requireNamespace("pacman", quietly = TRUE)) {
-install.packages("pacman")
-}
-library(pacman)
-p_load("rio",
-"tidyverse")
-new<- import("~/Desktop/全国各市城镇人口构成.xlsx")
-View(new)
-str(new)
-new <- new %>%
-mutate(population= as.numeric(population))
-View(new)
-new<- import("~/Desktop/全国各市城镇人口构成.xlsx")
-new <- new %>%
-mutate(population= as.numeric(population))
-View(new)
-new<- import("~/Desktop/全国各市城镇人口构成.xlsx")
-View(new)
-new <- new %>%
-mutate(population= as.numeric(population))
-new<- import("~/Desktop/全国各市城镇人口构成.xlsx")
-new <- new %>%
-mutate(population= as.numeric(population))
-View(new)
-new <- new %>%
-mutate(population = as.numeric(population)) %>%
-arrange(code, year)
-View(new)
-generate_cityranking <- function(df) {
-year <- unique(df$year)
-year_cityranking <- paste0(year, "_cityranking")
-if (year %in% 1986:2013) {
-df[[year_cityranking]] <- case_when(
-df$population > 100 ~ "特大城市",
-df$population > 50 & df$population <= 100 ~ "大城市",
-df$population > 20 & df$population <= 50 ~ "中等城市",
-df$population <= 20 ~ "小城市",
-TRUE ~ NA_character_
-)
-} else if (year %in% 2014:2019) {
-df[[year_cityranking]] <- case_when(
-df$population > 1000 ~ "超大城市",
-df$population > 500 & df$population <= 1000 ~ "特大城市",
-df$population > 300 & df$population <= 500 ~ "I型大城市",
-df$population > 100 & df$population <= 300 ~ "II型大城市",
-df$population > 50 & df$population <= 100 ~ "中等城市",
-df$population > 20 & df$population <= 50 ~ "I型小城市",
-df$population <= 20 ~ "II型小城市",
-TRUE ~ NA_character_
-)
-}
-df <- select(df, -year, -population,-population_original)
-df
-}
-new_cityranking <- function(df, year) {
-year_cityranking <- paste0(year, "_cityranking")
-if (year %in% 1986:2013) {
-df[[year_cityranking]] <- case_when(
-df$population > 100 ~ "特大城市",
-df$population > 50 & df$population <= 100 ~ "大城市",
-df$population > 20 & df$population <= 50 ~ "中等城市",
-df$population <= 20 ~ "小城市",
-TRUE ~ NA_character_
-)
-} else if (year %in% 2014:2019) {
-df[[year_cityranking]] <- case_when(
-df$population > 1000 ~ "超大城市",
-df$population > 500 & df$population <= 1000 ~ "特大城市",
-df$population > 300 & df$population <= 500 ~ "I型大城市",
-df$population > 100 & df$population <= 300 ~ "II型大城市",
-df$population > 50 & df$population <= 100 ~ "中等城市",
-df$population > 20 & df$population <= 50 ~ "I型小城市",
-df$population <= 20 ~ "II型小城市",
-TRUE ~ NA_character_
-)
 }
 df <- df %>% select(-year, -population)
 return(df)
@@ -510,3 +322,191 @@ region_data <- read_excel("region_data.xlsx")
 View(region_data)
 View(corruption)
 save(region_data, corruption, file = "~/Documents/GitHub/regioncode/R/sysdata.rda")
+devtools::check()
+## ----setup, include=FALSE-----------------------------------------------------
+knitr::opts_chunk$set(message = FALSE, warning = FALSE)
+if(!require(regioncode)) install.packages("regioncode")
+library(regioncode)
+library(dplyr)
+## ----code2code----------------------------------------------------------------
+library(regioncode)
+data("corruption")
+# Conversion to the 1989 version
+regioncode(data_input = corruption$prefecture_id,
+convert_to = "code", # default setting
+year_from = 2019,
+year_to = 1989)
+# Comparison
+tibble(
+code2019 = corruption$prefecture_id,
+code1989 = regioncode(data_input = corruption$prefecture_id,
+convert_to = "code", # default setting
+year_from = 2019,
+year_to = 1989),
+name2019 = regioncode(data_input = corruption$prefecture_id,
+convert_to = "name", # default setting
+year_from = 2019,
+year_to = 2019),
+name1989 = regioncode(data_input = corruption$prefecture_id,
+convert_to = "name", # default setting
+year_from = 2019,
+year_to = 1989)
+)
+## ----setup, include=FALSE-----------------------------------------------------
+knitr::opts_chunk$set(message = FALSE, warning = FALSE)
+if(!require(regioncode)) install.packages("regioncode")
+library(regioncode)
+library(dplyr)
+## ----code2code----------------------------------------------------------------
+library(regioncode)
+data("corruption")
+# Conversion to the 1989 version
+regioncode(data_input = corruption$prefecture_id,
+convert_to = "code", # default setting
+year_from = 2019,
+year_to = 1989)
+# Comparison
+tibble(
+code2019 = corruption$prefecture_id,
+code1989 = regioncode(data_input = corruption$prefecture_id,
+convert_to = "code", # default setting
+year_from = 2019,
+year_to = 1989),
+name2019 = regioncode(data_input = corruption$prefecture_id,
+convert_to = "name", # default setting
+year_from = 2019,
+year_to = 2019),
+name1989 = regioncode(data_input = corruption$prefecture_id,
+convert_to = "name", # default setting
+year_from = 2019,
+year_to = 1989)
+)
+## ----code2name----------------------------------------------------------------
+# Original name
+tibble(
+id = corruption$prefecture_id,
+name = corruption$prefecture
+)
+# Codes to name
+regioncode(data_input = corruption$prefecture_id,
+convert_to = "name",
+year_from = 2019,
+year_to = 1989)
+# Name to codes of the same year
+regioncode(data_input = corruption$prefecture,
+convert_to = "code",
+year_from = 2019,
+year_to = 2019)
+# Name to name of a different year
+regioncode(data_input = corruption$prefecture,
+convert_to = "name",
+year_from = 2019,
+year_to = 1989)
+## ----incomplete_name----------------------------------------------------------
+# Original full names
+corruption$prefecture
+fake_incomplete <- corruption$prefecture
+index_incomplete <- sample(seq(length(corruption$prefecture)), 7)
+fake_incomplete[index_incomplete] <- fake_incomplete[index_incomplete] |>
+substr(start = 1, stop = 2)
+fake_incomplete
+# Conversion to full names in 2008
+regioncode(data_input = fake_incomplete,
+convert_to = "name",
+year_from = 2019,
+year_to = 2008,
+incomplete_name = TRUE)
+## ----municipality-------------------------------------------------------------
+names_municipality <- c("北京市", # Beijing, a municipality
+"海淀区", # A district of Beijing
+"上海市", # Shanghai, a municipality
+"静安区", # A district of Shanghai
+"济南市") # A prefecture of Shandong
+# When `zhixiashi` is FALSE, only the districts are recognized
+regioncode(data_input = names_municipality,
+year_from = 2019,
+year_to = 2019,
+convert_to = "code",
+zhixiashi = FALSE)
+# When `zhixiashi` is TRUE, municipalities are recognized
+regioncode(data_input = names_municipality,
+year_from = 2019,
+year_to = 2019,
+convert_to = "code",
+zhixiashi = TRUE)
+## ----rank---------------------------------------------------------------------
+tibble(
+city = corruption$prefecture,
+rank1989 = regioncode(data_input = corruption$prefecture,
+year_from = 2019,
+year_to = 1989,
+convert_to="rank"),
+rank2014 = regioncode(data_input = corruption$prefecture,
+year_from = 2019,
+year_to = 2014,
+convert_to = "rank")
+)
+## ----pinyin-------------------------------------------------------------------
+tibble(
+city = corruption$prefecture,
+cityPY = regioncode(data_input = corruption$prefecture,
+year_from = 2019,
+year_to = 1989,
+convert_to = "name",
+to_pinyin = TRUE
+),
+areaPY = regioncode(data_input = corruption$prefecture,
+year_from = 2019,
+year_to = 1989,
+convert_to = "area",
+to_pinyin = TRUE
+)
+)
+# Regions with special spelling
+regioncode(data_input = c("山西", "陕西", "内蒙古", "香港", "澳门"),
+year_from = 2019,
+year_to = 2008,
+convert_to = "name",
+incomplete_name = TRUE,
+province = TRUE,
+to_pinyin = TRUE
+)
+## ----provinces----------------------------------------------------------------
+tibble(
+province = corruption$province_id,
+prov_name = regioncode(data_input = corruption$province_id,
+convert_to = "name",
+year_from = 2019,
+year_to = 1989,
+province = TRUE),
+prov_abbre = regioncode(data_input = corruption$province_id,
+convert_to = "codeToabbre",
+year_from = 2019,
+year_to = 1989,
+province = TRUE)
+)
+## ----2area--------------------------------------------------------------------
+regioncode(data_input = corruption$prefecture,
+year_from = 2019,
+year_to = 1989,
+convert_to = "area")
+## ----language_zone------------------------------------------------------------
+tibble(
+city = corruption$prefecture,
+dialectGroup = regioncode(data_input = corruption$prefecture,
+year_from = 2019,
+year_to = 1989,
+to_dialect = "dia_group"),
+dialectSubGroup = regioncode(data_input = corruption$prefecture,
+year_from = 2019,
+year_to = 1989,
+to_dialect = "dia_sub_group")
+)
+load("~/Develop/regioncode/R/sysdata.rda")
+load("~/Develop/regioncode/data/corruption.rda")
+#| label: installConfirm
+R.Version()
+#| label: installConfirm
+R.Version()
+letters
+1:50

.Rproj.user/shared/notebooks/paths

@@ -1,4 +1,11 @@
-/Users/xinyiye/Documents/GitHub/regioncode/R/regioncode.R="DC074D86"
-/Users/xinyiye/Documents/GitHub/regioncode/dev/citylevel2021.R="2E3C9D10"
-/Users/xinyiye/Documents/GitHub/regioncode/dev/cityranking.R="A45A71BD"
-/Users/xinyiye/Documents/博一下/空间分析/Lec2_visulizing_spatial_data/Lec2_visulizing_spatial_data.R="9BEF4761"
+/Users/qiuqian/Develop/drhur_textbook/_quarto.yml="2206F0A0"
+/Users/qiuqian/Develop/drhur_textbook/b_drhur.bib="EE001743"
+/Users/qiuqian/Develop/drhur_textbook/history.qmd="1E802CAD"
+/Users/qiuqian/Develop/drhur_textbook/index.qmd="F36D8065"
+/Users/qiuqian/Develop/regioncode/.github/workflows/draft-pdf.yml="93529F8D"
+/Users/qiuqian/Develop/regioncode/DESCRIPTION="3F67DB9B"
+/Users/qiuqian/Develop/regioncode/NEWS.md="721E00DD"
+/Users/qiuqian/Develop/regioncode/R/globals.R="1B8096D6"
+/Users/qiuqian/Develop/regioncode/R/regioncode.R="5BBEBD57"
+/Users/qiuqian/Develop/regioncode/vignettes/regioncode-vignette.R="3372B0E9"
+/Users/qiuqian/Develop/regioncode/vignettes/regioncode-vignette.html="5A075A28"