中国年号通史

englianhu · englianhu · commit 43d2b396cd68 · 2024-05-24T14:20:29.000+08:00
#春秋战国 #诸子百家 #秦人牧马 #世袭制道教徒赢家黄氏江夏堂 #世袭制杏林林氏西河堂 #道家中科红旗高频量化对冲 #万般皆下品唯有读书高 #大秦赋 #ChineseEmpire #公元前B4Christ只有中文BC没有外文 #世袭制道教徒赢家黄氏江夏堂拯救亚洲人歼灭所有巫裔回教徒Anti_Islamic_Virus_and_NonHalal_Only_governance #中国政府南太平洋战略 #大葱回教堂商鞅变法Anti_Islamic_Virus #Only_NonHalal_can_Survive #古老的东方有一条河它的名字叫黄河 #古老的东方有一条江它的名字叫长江 #江夏堂 #西河堂 #黄河文明 #黄埔军校 #黄种人🎶 #农民🎶 印裔尽弃，瓦釜雷鸣； 莫忘初衷，方得始终。 《🚩🇨🇳🔆🏹🌟👊🚀🦔大秦赋 - 黄埔军校赢家黄氏江夏堂 - 中科红旗，高频量化对冲》 「大秦赋 - 借鉴黄河文明史」 秦国三杰，拯救亚洲； 歼灭印裔，取代美国。 秦灭六洲，一统天下； 莫忘初衷，方得始终。 注释：印裔是祖籍印尼和印度、世袭制法家可兰经回教刑事法典断肢法的回教徒和世袭制奴隶大宝森节和屠妖节杀戮习俗文化的兴都教徒。 #春秋战国 #七大洲五大洋 #诸子百家 #鬼谷传奇 #世袭制道教徒学术份子 #秦国文臣三杰商鞅吕不韦李斯 #秦国China #洲学论 #关雎 #山海经 #军官与淑女 #关关雎鸠在河之洲是黄河文明 🚩🌟🦔赢家黄氏江夏堂，黄河文明、黄埔军校、黄种人嬴政之黄河文明拯救亚洲人，焚经坑乌（歼灭所有可兰经回教刑事法典断肢法的回教徒和吠陀经大宝森节屠妖节习俗文化的兴都教徒），功勋超过历代三黄五帝，建立道家、物理学、统筹法、运筹学、学术、金融、军事、易经、算卜、概率论与博弈论、黄种人世袭制道家民族主义，史称「秦始皇」 🚩🌟🦔杏林林氏西河堂，复兴中华杏林、金融、农业、武术、学术、道家、物理学、统筹法、运筹学、算卜、🧶刺绣密码学、科技信息学、概率论与博弈论、易经世纪大革命 🚩🌟🦔商家苏氏阜阳堂，复兴华夏司法界、商业、农业、物理学、统筹法、运筹学、学术、治安、易经、算卜、概率论与博弈论、金融大革命 🚩🌟🦔道家肖氏远芳堂，复兴中华道家、十二生肖、天文历法、物理学、统筹法、运筹学、学术、算卜、概率论与博弈论、易经世纪大革命 🚩🇨🇳🏹🌟🦔量化对冲，中科红旗；一带一路，一统天下（兵马未动，粮草先行；人民币货币经济学，东亚中国司马错得蜀既得楚；歼灭所有施展可兰经巫术窥听窥视入侵电子仪器的失心疯猥亵淫魔小丑巫师王白骨精瑾貹·殡·刘、入侵马来西亚的所有新加坡公民和印尼公民回教徒和峇峇娘惹并攻占东南亚，尤其是四季仔的印尼回教徒外劳房客、阿塔的孟加拉回教徒外劳房客、瓜雪回教市政局大门入口处柜台巫婆回教徒公仆奴辱依杀·殡敌·刘和大厅玻璃窗巫贼巫婆回教徒公仆瑾貹·殡敌·刘和美国回教市政局世袭制可兰经回教徒公仆达里尔·索菲亚、瓜雪回教土地局巫贼巫婆回教徒汪阿自杀和懦蛤仕蟆和法米仨、瓜雪回教警署巫贼巫婆回教徒、大港回教警署所有巫贼巫婆回教徒、瓜雪RHU（淮西派）花园加德士油站隔壁第三巷门牌卅二号边抽鼻涕边求命边膜拜边失心疯边自残自虐自杀的土司乩童刘瑾貹、瓜雪巴西不能帮门牌T十五号吱吱吾语的失心疯猥亵淫魔土司乩童小丑白骨精巫师王张佳坤、瓜雪回教警署巫贼回教徒黑米哈山·殡·伊不拉心和马航日语组森美兰人黑米哈山）、大港巴列特花园第十三巷门牌廿七号观音庙巫师王白骨精、廿九号光头小丑巫师王白骨精和胖妈、卅一号巫师王白骨精小丑李东海李、东梅和所有回教徒（尤其是回教徒公仆）和峇峇娘惹党羽、所有印裔（祖籍印尼包括土著和回教徒、祖籍印度的兴都教徒和回教徒包括土著）、印尼爱敌苏山多和新加坡欧阳金泰和洋蕃SEC001和洋蕃败登、鄀文艺坊与猫城所有洋蕃回教徒员工、巴西不能帮三或四石里路左右的可兰经回教宗教学校和大葱回教堂所有世袭制可兰经法家巫贼巫婆非法回教徒、世袭制自宫自残自虐自杀的失心疯猥亵淫魔英国可兰经法家回教徒洋妞儿米拉和世袭制自宫自残自虐自杀的失心疯猥亵淫魔男宠欧霸波懦。 🚩🇨🇳🏹🌟🦔诸子百家：印裔回教徒尽弃，瓦釜雷鸣。儒学、墨学、法学、道学、兵法、阴阳学、佛学、哲学、运筹学、思想录、干支算筹、中华习俗文化宗教语言复兴、学术数学科学科技大秦赋 🚩🇨🇳🏹🌟🦔《大秦赋 - 🇨🇳关雎》 🚩🇨🇳🏹🌟🦔春秋战国，诸子百家； 🚩🇨🇳🏹🌟🦔左氏春秋，鬼谷传奇。 🚩🇨🇳🏹🌟🦔商鞅变法，道法兵家； 🚩🇨🇳🏹🌟🦔四面楚歌，焚经坑番。 🚩🇨🇳🏹🌟🦔一带一路，横跨七洲； 🚩🇨🇳🏹🌟🦔史无前例，一统天下。 🚩🇨🇳🏹🌟🦔高频量化，对冲基金； 🚩🇨🇳🏹🌟🦔只争朝夕，不负韶华。 🚩🇨🇳🏹🌟🦔学海无涯，唯勤是岸； 🚩🇨🇳🏹🌟🦔莫忘初衷，方得始终。 https://gitee.com/eglianhu
diff --git a/binary-Q1Inter-HFT-RV3E.Rmd b/binary-Q1Inter-HFT-RV3E.Rmd
@@ -1128,9 +1128,6 @@ if (!exists('.蜀道')) {
 if (!exists('.蜀道书轩')) .蜀道书轩 <- paste0(.蜀道, '诸子百家学府/中国年号通史/')
 if (!dir.exists(.蜀道书轩))  dir.create(.蜀道书轩)
 
-
-source('函数/中国年号通史.R')
-
 链 <- c('.cbov1618288725', '.jlfm1618288727', '.ciju1618288729', '.bbci1618288731', '.ywpp1618288732', '.ycyo1618288734', '.hlua1618288735', '.mfoi1618288737', '.xnvk1618288739', '.rieb1618288740', '.pljd1618288742', '.alot1618288744', '.hahg1618288745', '.uzis1618288747', '.gafp1618288749', '.qzin1618288750', '.gmrx1618288752', '.hewg1618288753', '.lezv1618288755', '.lcpj1618288757')
 names(链) <- c('https://www.cidianwang.com/nianhao/zhouchao_0a340.htm', paste0('https://www.cidianwang.com/nianhao/zhouchao_0a340_', 1:19, '.htm'))
 
@@ -1379,6 +1376,86 @@ rm(链, 战国年号, 简, 列甲, 限甲, 列乙, 限乙, 列丙, 限丙, 属
 
 ```
 
+```{r}
+## 秦国 China，秦人 Chinese
+## 司马错得蜀既得楚
+if (!exists('.蜀道')) {
+  .蜀道 <- getwd() |> 
+    {\(.) str_split(., '/')}() |> 
+    {\(.) c('/', .[[1]][2:5])}() |> 
+    {\(.) c(., 'binary.com-interview-question-data/')}() |> 
+    {\(.) paste(., collapse = '/')}() |> 
+    {\(.) substring(., 2)}()
+}
+
+if (!exists('.蜀道书轩')) .蜀道书轩 <- paste0(.蜀道, '诸子百家学府/中国年号通史/')
+if (!dir.exists(.蜀道书轩))  dir.create(.蜀道书轩)
+
+source('函数/中国年号通史.R')
+
+朝代 <- c('唐朝', '宋朝', '元朝', '明朝', '清朝', '周朝', '三皇五帝', '三黄五帝', '商朝', '东周', '夏朝', '汉朝', '大理', '春秋', '西周', '战国', '西汉', '辽国', '东汉', '北朝', '西夏', '南北朝', '南朝', '北宋', '晋朝', '南宋', '北魏', '十六国', '金朝', '东晋', '吴越', '前凉', '三国', '南朝宋', '南平', '南朝梁', '南汉', '五代十国', '孙吴', '西晋', '西秦', '曹魏', '马楚', '成汉', '前秦', '蜀汉', '北凉', '南唐', '隋朝', '闽国', '杨吴')
+lapply(朝代, function(朝) {
+  天朝 <- 中国年号通史(朝)
+  fwrite(天朝, paste0(.蜀道书轩, 天朝, '年号.csv'))
+  })
+
+天朝 <- '周朝'
+周朝 <- 中国年号通史(天朝)
+## fwrite(周朝, paste0(.蜀道书轩, 天朝, '年号.csv'))
+
+天朝 <- '春秋'
+春秋 <- 中国年号通史(天朝)
+## fwrite(春秋, paste0(.蜀道书轩, 天朝, '年号.csv'))
+
+天朝 <- '战国'
+战国 <- 中国年号通史(天朝)
+## fwrite(战国, paste0(.蜀道书轩, 天朝, '年号.csv'))
+
+
+
+## 
+## > 周朝 %>% 
+## +     dplyr::filter(在位皇帝甲 == '西周共和')
+## # A tibble: 14 × 12
+##     序号 年份               年份乙 干支  生肖  朝代甲 朝代乙 朝代丙 在位皇帝甲 在位皇帝乙 年号甲     年号乙
+##    <int> <fct>               <dbl> <fct> <fct> <fct>  <fct>  <fct>  <fct>      <fct>      <fct>      <fct> 
+##  1   206 公元前八百四十一年   -841 庚申  猴    周朝   西周   NA     西周共和   NA         共和元年   NA    
+##  2   207 公元前八百四十年     -840 辛酉  鸡    周朝   西周   NA     西周共和   NA         共和二年   NA    
+##  3   208 公元前八百三十九年   -839 壬戌  狗    周朝   西周   NA     西周共和   NA         共和三年   NA    
+##  4   209 公元前八百三十八年   -838 癸亥  猪    周朝   西周   NA     西周共和   NA         共和四年   NA    
+##  5   210 公元前八百三十七年   -837 甲子  鼠    周朝   西周   NA     西周共和   NA         共和五年   NA    
+##  6   211 公元前八百三十六年   -836 乙丑  牛    周朝   西周   NA     西周共和   NA         共和六年   NA    
+##  7   212 公元前八百三十五年   -835 丙寅  虎    周朝   西周   NA     西周共和   NA         共和七年   NA    
+##  8   213 公元前八百三十四年   -834 丁卯  兔    周朝   西周   NA     西周共和   NA         共和八年   NA    
+##  9   214 公元前八百三十三年   -833 戊辰  龙    周朝   西周   NA     西周共和   NA         共和九年   NA    
+## 10   215 公元前八百三十二年   -832 己巳  蛇    周朝   西周   NA     西周共和   NA         共和十年   NA    
+## 11   216 公元前八百三十一年   -831 庚午  马    周朝   西周   NA     西周共和   NA         共和十一年 NA    
+## 12   217 公元前八百三十年     -830 辛未  羊    周朝   西周   NA     西周共和   NA         共和十二年 NA    
+## 13   218 公元前八百二十九年   -829 壬申  猴    周朝   西周   NA     西周共和   NA         共和十三年 NA    
+## 14   219 公元前八百二十八年   -828 癸酉  鸡    周朝   西周   NA     西周共和   NA         共和十四年 NA
+## 
+## # 如上所示，经过查询，公元前的中国王朝数据中出现共和国，而年号出现共和元年。公元前八百多年前的数据无法证实是否属实，估计是中国政府或学者回测而得知，公元前二二一年第一位中央集权秦王称帝，史称始祖“秦始皇”，而公元后刘备在公元后二二一年称帝“汉昭烈帝”。目前在下才疏学浅，无从查证。而拿破仑和袁世凯也曾称帝与总统之间更迭国号与国君的称号治国路线。
+## 
+## 公元824年 农历干支：甲辰，生肖：龙，朝代：唐朝，在位皇帝：唐敬宗李湛，唐穆宗李恒，年号：长庆四年
+## 公元825年 农历干支：乙巳，生肖：蛇，朝代：唐朝，在位皇帝：唐敬宗李湛，年号：宝历元年
+## 公元826年 农历干支：丙午，生肖：马，朝代：唐朝，在位皇帝：唐敬宗李湛，唐文宗李昂，年号：宝历二年
+## 公元827年 农历干支：丁未，生肖：羊，朝代：唐朝，在位皇帝：唐文宗李昂，年号：宝历三年，太和元年
+## 公元828年 农历干支：戊申，生肖：猴，朝代：唐朝，在位皇帝：唐文宗李昂，年号：太和二年
+## 公元829年 农历干支：己酉，生肖：鸡，朝代：唐朝，在位皇帝：唐文宗李昂，年号：太和三年
+## 公元830年 农历干支：庚戌，生肖：狗，朝代：唐朝，在位皇帝：唐文宗李昂，年号：太和四年
+## 公元831年 农历干支：辛亥，生肖：猪，朝代：唐朝，在位皇帝：唐文宗李昂，年号：太和五年
+## 公元832年 农历干支：壬子，生肖：鼠，朝代：唐朝，在位皇帝：唐文宗李昂，年号：太和六年
+## 公元833年 农历干支：癸丑，生肖：牛，朝代：唐朝，在位皇帝：唐文宗李昂，年号：太和七年
+## 公元834年 农历干支：甲寅，生肖：虎，朝代：唐朝，在位皇帝：唐文宗李昂，年号：太和八年
+## 公元835年 农历干支：乙卯，生肖：兔，朝代：唐朝，在位皇帝：唐文宗李昂，年号：太和九年
+## 公元836年 农历干支：丙辰，生肖：龙，朝代：唐朝，在位皇帝：唐文宗李昂，年号：开成元年
+## 公元837年 农历干支：丁巳，生肖：蛇，朝代：唐朝，在位皇帝：唐文宗李昂，年号：开成二年
+## 公元838年 农历干支：戊午，生肖：马，朝代：唐朝，在位皇帝：唐文宗李昂，年号：开成三年
+## 公元839年 农历干支：己未，生肖：羊，朝代：唐朝，在位皇帝：唐文宗李昂，年号：开成四年
+## 公元840年 农历干支：庚申，生肖：猴，朝代：唐朝，在位皇帝：唐文宗李昂，唐武宗李炎，年号：开成五年
+## 公元841年 农历干支：辛酉，生肖：鸡，朝代：唐朝，在位皇帝：唐武宗李炎，年号：会昌元年
+```
+
 ```{r 读取朝代年号, results = 'asis', error = TRUE}
 ## 秦国 China，秦人 Chinese
 ## 司马错得蜀既得楚
@@ -1394,8 +1471,18 @@ if (!exists('.蜀道')) {
 if (!exists('.蜀道书轩')) .蜀道书轩 <- paste0(.蜀道, '诸子百家学府/中国年号通史/')
 if (!dir.exists(.蜀道书轩))  dir.create(.蜀道书轩)
 
-周朝年号 <- fread(paste0(.蜀道书轩, '周朝年号.csv'), stringsAsFactors = TRUE)
-周朝年号  %>% 
+周朝年号 <- fread(paste0(.蜀道书轩, '周朝年号.csv')) %>% 
+  as_tibble()
+春秋年号 <- fread(paste0(.蜀道书轩, '春秋年号.csv')) %>% 
+  as_tibble()
+战国年号 <- fread(paste0(.蜀道书轩, '战国年号.csv')) %>% 
+  as_tibble()
+周朝 <- plyr::join_all(list(周朝年号, 春秋年号, 战国年号))
+rm(周朝年号, 春秋年号, 战国年号)
+
+周朝 <- 周朝[c('年份', '年份乙', '干支', '生肖', '朝代甲', '朝代乙', '朝代丙', '在位皇帝甲', '在位皇帝乙', '在位皇帝丙', '在位皇帝丁', '年号甲', '年号乙', '年号丙')]
+
+rbindlist(周朝年号, 春秋年号, 战国年号)  %>% 
   kbl(caption = '**周朝（春秋战国）**', escape = FALSE) %>% 
   ## https://www.w3schools.com/cssref/css_colors.asp
   row_spec(0, background = 'DimGrey', color = '#7B1113') %>% 
diff --git a/函数/中国年号通史.R b/函数/中国年号通史.R
@@ -5,7 +5,7 @@
     .蜀道 <- getwd() |> 
       {\(.) str_split(., '/')}() |> 
       {\(.) c('/', .[[1]][2:5])}() |> 
-      {\(.) c(., 'binary.com-interview-question-data/')}() |> 
+      {\(.) c(., 'zhongkehongqi-cangku/')}() |> 
       {\(.) paste(., collapse = '/')}() |> 
       {\(.) substring(., 2)}()
   }
@@ -21,6 +21,8 @@
   
   帝王 <- c('秦始皇嬴政', '清圣祖玄烨', '清高宗弘历', '清世宗胤禛', '明太祖朱元璋', '明成祖朱棣', '蒙古太祖铁木真', '西汉武帝刘彻', '西汉文帝刘恒', '元世祖忽必烈', '北宋徽宗赵佶', '北宋太祖赵匡胤', '唐玄宗李隆基', '周武曌武则天', '唐太宗李世民', '唐高宗李治', '隋文帝杨坚', '隋炀帝杨广', '东周赧王姬延', '秦昭襄王嬴稷', '西夏仁宗李仁孝', '西周穆王姬满', '西夏崇宗李乾顺', '东周平王姬宜臼', '东周显王姬扁', '辽圣宗耶律隆绪', '明神宗朱翊钧', '南朝梁高祖萧衍', '辽道宗耶律洪基', '明世宗朱厚熜', '西周宣王姬静', '东周敬王姬匄', '北宋仁宗赵祯', '南宋理宗赵昀', '三国蜀汉后主刘禅', '西周厉王姬胡', '南宋高宗赵构', '元惠宗妥欢帖睦尔', '清德宗载湉', '殷商武乙子瞿', '东周襄王姬郑', '东汉光武帝刘秀', '东汉献帝刘协', '成汉武帝李雄', '南宋宁宗赵扩', '清宣宗旻宁', '殷商纣王子辛', '北朝北魏世祖拓跋焘', '东周贞定王姬介', '金世宗完颜雍')
   
+  天朝 <- 天朝
+  
   if (天朝 %in% 朝代) {
     ## 唐朝
     if (天朝 == '唐朝') {
@@ -352,7 +354,7 @@
   }) %>% 
     as_tibble()
   
-  年号乙 <- 战国年号 %>% 
+  年号乙 <- 年号 %>% 
     mutate(
       年份乙 = 年份 %>% 
         str_extract_all('[0-9]') %>% 
@@ -368,7 +370,7 @@
   年号通史 <- cbind(年号乙[c('年份', '年份乙')], 年号通史) %>% 
     as_tibble() %>% 
     dplyr::mutate_if(is.character, factor)
-  rm(简, 朝代序, 朝代列, 君主序, 君主列, 年号序, 年号列, 年号乙)
+  rm(简, 朝代序, 朝代列, 君主序, 君主列, 年号序, 年号列, 年号, 年号乙)
   
   if (levels(年号通史$农历干支) == '农历干支') 年号通史$农历干支 <- NULL
   if (levels(年号通史$十二生肖) == '生肖') 年号通史$十二生肖 <- NULL
diff --git a/实验室/中国年号通史.R b/实验室/中国年号通史.R
