儋州modify

Author: qiuqiuren-ai

.Rhistory

@@ -1,69 +1,3 @@
-}
-df <- df %>% select(-year, -population)
-return(df)
-}
-dfs <- map(2020:2022, ~new %>%
-filter(year == .x) %>%
-new_cityranking(., .x))
-View(dfs)
-str(new)
-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 > 2013) {
-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)
-}
-dfs <- map(2020:2022, ~new %>%
-filter(year == .x) %>%
-new_cityranking(., .x))
-View(dfs)
-new_cityranking<- reduce(dfs, full_join, by = c("code"))
-View(new_cityranking)
-new_cityranking <- new_cityranking %>%
-select(-contains("地市级"))
-View(new_cityranking)
-new_cityranking <- new_cityranking %>%
-select(-contains("地级"))
-View(new_cityranking)
-library(readxl)
-region_data <- read_excel("region_data.xlsx")
-View(region_data)
-View(new_cityranking)
-region_data <- region_data %>%
-mutate(join_key = case_when(
-zhixiashi == TRUE ~ prov_code,
-zhixiashi != TRUE ~ `2022_code`
-))
-View(region_data)
-region_data  <- region_data %>%
-left_join(new_cityranking, by = c("join_key" = "code")) %>%
-select(-"join_key")
-View(new)
-View(new_cityranking)
-View(new_cityranking)
-any(duplicated(new_cityranking$code))
-duplicated_codes <- new_cityranking$code[duplicated(new_cityranking$code)]
-unique(duplicated_codes)
-new<- import("~/Desktop/全国各市城镇人口构成.xlsx")
 new <- new %>%
 mutate(population = as.numeric(population)) %>%
 arrange(code, year)
@@ -510,3 +444,69 @@ library(dplyr)
 library(regioncode)
 data("corruption")
 force(corruption)
+load("~/Develop/regioncode/data/corruption.rda")
+View(corruption)
+View(corruption)
+load("~/Develop/regioncode/dev/corruption_data.rda")
+View(vignette_data)
+load("~/Develop/regioncode/dev/vignette_data.rda")
+load("~/Develop/regioncode/dev/corruption_data.rda")
+load("~/Develop/regioncode/data/corruption.rda")
+load("~/Develop/regioncode/data/corruption.rda")
+load("~/Develop/regioncode/data/corruption.rda")
+View(corruption)
+load("~/Develop/regioncode/dev/regioncode/corruption.rda")
+load("~/Develop/regioncode/dev/regioncode/corruption.rda")
+View(corruption)
+load("~/Develop/regioncode/dev/regioncode/corruption.rda")
+View(corruption)
+load("~/Develop/regioncode/dev/regioncode/.RData")
+load("~/Develop/regioncode/dev/regioncode/.RData")
+vignette <- readRDS("~/Develop/regioncode/Meta/vignette.rds")
+View(vignette)
+load("~/Develop/regioncode/R/sysdata.rda")
+View(region_data)
+load("~/Develop/regioncode/R/sysdata.rda")
+load("~/Develop/regioncode/dev/vignette_data.rda")
+View(vignette_data)
+load("~/Develop/regioncode/dev/vignette_data.rda")
+View(vignette_data)
+load("~/Develop/regioncode/dev/corruption_data.rda")
+View(vignette_data)
+View(vignette_data)
+load("dev/vignette_data.rda")
+load("~/Develop/regioncode/dev/corruption_data.rda")
+load("~/Develop/regioncode/dev/corruption_data.rda")
+str(vignette_data)
+library(dplyr)
+load("~/Develop/regioncode/dev/corruption_data.rda")
+str(corruption_data)
+str(corruption_data.rda)
+load("~/Develop/regioncode/dev/corruption_data.rda")
+View(vignette_data)
+library(dplyr)
+load("~/Develop/regioncode/dev/corruption_data.rda")
+str(vignette_data)
+vignette_data_modified <- vignette_data %>%
+mutate(
+prefecture_id = ifelse(Year >= 2015 & prefecture_id == 469003, 460400, prefecture_id),
+county_id = ifelse(Year >= 2015 & county_id == 469003, 460400, county_id)
+)
+cat("修改后 - 2015年及以后prefecture_id的分布：\n")
+vignette_data_modified %>%
+filter(Year >= 2015) %>%
+count(prefecture_id) %>%
+print()
+vignette_data_modified <- vignette_data %>%
+mutate(
+prefecture_id = ifelse(as.numeric(Year) >= 2015 & prefecture_id == 469003, 460400, prefecture_id),
+county_id = ifelse(as.numeric(Year) >= 2015 & county_id == 469003, 460400, county_id)
+)
+dplyr::last_dplyr_warnings()
+load("~/Develop/regioncode/dev/corruption_data.rda")
+vignette_data$Year <- as.numeric(vignette_data$Year)
+vignette_data$prefecture_id[vignette_data$Year >= 2015 & vignette_data$prefecture_id == 469003] <- 460400
+vignette_data$county_id[vignette_data$Year >= 2015 & vignette_data$county_id == 469003] <- 460400
+save(vignette_data, file = "~/Develop/regioncode/dev/corruption_data.rda")
+load("~/Develop/regioncode/dev/corruption_data.rda")
+View(vignette_data)

dev/corruption_data.rda

@@ -1,4 +1,5 @@
 Version: 1.0
+ProjectId: 46eb9fff-f626-4fc4-b90e-80efd91b1e68
 
 RestoreWorkspace: No
 SaveWorkspace: No