《🚩🇨🇳🔆🏹🌟👊🚀🦔大秦赋 - 黄埔军校赢家黄氏江夏堂 - 中科红旗，高频量化对冲》

#春秋战国 #诸子百家 #秦人牧马 #世袭制道教徒赢家黄氏江夏堂 #世袭制杏林林氏西河堂 #道家中科红旗高频量化对冲 #万般皆下品唯有读书高 #大秦赋 #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

Author: englianhu

binary-Q1Inter-HFT-RV3E.Rmd

@@ -36,6 +36,10 @@ output:
 <audio controls loop autoplay src="诸子百家诗经与古诗源/卜学亮 - 子曰.mp3" controls></audio>
 <br>
 
+> 赢家黄氏江夏堂、赢家黄氏巴东堂、儒家孔氏东鲁堂、道家卜氏西河堂、杏林林氏西河堂、道家与法家李氏陇西堂、商家苏氏阜阳堂
+
+*引用：[牢记祖先，彰显祖宗功德，四百卅三个姓氏堂号大全](https://zhuanlan.zhihu.com/p/82039189)*
+
 > **发问：**
 > 
 > 二十弱冠、三十而立、四十不惑、五十知天命、六十花甲子、七十古来稀、八十为<ruby>耄<rp>(</rp><rt>mào</rt><rp>)</rp>耋<rp>(</rp><rt>dié</rt><rp>)</rp></ruby>^[**<ruby>耄<rp>(</rp><rt>mào</rt><rp>)</rp>耋<rp>(</rp><rt>dié</rt><rp>)</rp></ruby>**两字连用代称八、九十岁<br>**<ruby>期<rp>(</rp><rt>qī</rt><rp>)</rp>颐<rp>(</rp><rt>yí</rt><rp>)</rp></ruby>**：百岁之人]、九十是什么？
@@ -90,20 +94,62 @@ output:
 
 *出处：[七十古稀、八十耄耋、九十是什么？](https://m.ximalaya.com/ask/q6379714)*
 
-### 桃李满天下
+### 祖宗十八代
 
 > 赢家黄氏江夏堂、赢家黄氏巴东堂、儒家孔氏东鲁堂、道家卜氏西河堂、杏林林氏西河堂、道家与法家李氏陇西堂、商家苏氏阜阳堂
 
 *引用：[牢记祖先，彰显祖宗功德，四百卅三个姓氏堂号大全](https://zhuanlan.zhihu.com/p/82039189)*
 
+> 所谓祖宗十八代是指自己上下九代的宗族成员。
+> 
+> - 上九代为：父、祖、曾祖、高祖、天祖、列祖、太祖、远祖、鼻祖。
+> - 下九代为：子、孙子、曾孙、玄孙、来孙、晜孙、仍孙、云孙、耳孙。
+> 
+> 从小到大为：耳、云、仍、晜、来、玄、曾、孙、子、父、祖、曾、高、天、烈、太、远、鼻。你以上的九代和你以后的九代称为祖宗十八代。
+> 
+> ![](诸子百家考工记/祖宗十八代的称呼.png){width=400}
+> 
+> **扩展资料：**
+> 
+> 祖宗十八代——祖宗十八代，顾名思义，上九代，下九代，这其中的所有人都是在这十八代当中。这里要注意的一点就是自己，简称“己”，“自己”是上九代与下九代的分水岭，不包含在“祖宗十八代”之内。
+> 
+> - 上序称谓：生己者为父母，父之父为祖，祖父之父为曾祖，曾祖之父为高祖，高祖之父为天祖，天祖之父为烈祖，烈祖之父为太祖，太祖之父为远祖，远祖之父为鼻祖。即：父、祖、曾、高、天、烈、太、远、鼻。书中说：因人怀胎，鼻先受形，故鼻祖为始祖。
+> - 下序称谓：父之子为子，子之子为孙，孙之子为曾孙，曾孙之子为玄孙，玄孙之子为来孙，来孙之子为<ruby>晜<rp>(</rp><rt>kūn</rt><rp>)</rp></ruby>孙，晜孙之子为仍孙，仍孙之子为云孙，云孙之子为耳孙。即：子、孙、曾、玄、来、<ruby>晜<rp>(</rp><rt>kūn</rt><rp>)</rp></ruby>、仍、云、耳。书中说：耳孙者，谓祖甚远，仅耳目闻之也。“远祖者，几世乎，九世矣。”为证也！
+> 
+> - 远祖：远祖、太高、太尊、先、祖先、先君、先人、祖考等，皆可称远祖。
+> - 始祖：始祖、鼻祖，皆可称始祖。
+> - 高祖：曾祖的父亲。高祖、高祖王父、显考、长祖、高门等，皆可称高祖。
+> - 高祖母：曾祖之母，亦可称高祖王母。
+> - 曾祖：祖父的父亲。曾祖、曾祖王父、曾祖父、皇考、府君、太翁、次长祖、曾翁、曾门、曾大父、曾父、曾太公、大王父、王大父等，皆可称曾祖。
+> - 曾祖母：祖父之母，亦可称曾祖王母。
+> - (曾祖的兄弟及兄弟之妻，称“族曾王父”、“族曾祖父”，“族曾王母”、“族曾祖母”)
+> - 祖父：父亲的父亲。祖父、王父、大王父、祖王父、大父、祖君、祖翁、公、太公等，皆可称祖父。对人称其祖父曰“家公”。称人之祖曰“尊祖父”。称已故祖父曰“亡祖”、“亡考”、“皇祖考”、“府君”、“先祖”、“先子”、“先亡丈人”等。称人之已故祖父曰“大门中”。
+> - (祖父的兄弟称“从祖祖父”、“从祖世父”、“从祖叔父”、“从祖王父”、“伯翁”、“叔翁”)
+> - 祖母：父亲的母亲。祖母、王母、大母、太母、祖婆等，皆可称祖母。称人祖母曰“尊祖母”。称已故祖母曰“皇祖妣”。祖父之妾称“季祖母”“妾祖姑”。从祖祖父之妻称“从祖祖母”“从祖世母”“从祖叔母”“从祖王母”“从祖母”“季祖母”“伯祖妣”等。
+> 
+> 中国人“三姑六舅”，对本祖一脉上下或亲戚关系称谓有严格的规定，在现实中曾经出现过这样一个难题，一个上下差7代的晚辈不知道如何称呼比自己大8辈的长辈，出现令人难堪的场面。现在依据中国《汉语大辞典》、东汉的《尔雅•释亲》和《春秋公羊传•庄公四年》等史书考证，才确定了中国人本族内“上下九辈”的称呼。
+> 
+> 为什么上九代叫做鼻呢？这里面有个比较有意思的古人常识。在古人的观念中，人在肚子里的时候，最先长出的就是鼻子，所以，就把最久远的祖宗叫做鼻祖。同样比较有意思的是，古人把下九代中最末一代的子孙叫做耳孙。那么，为什么这样叫呢？
+> 
+> 因为耳孙距离自己的祖宗太遥远了，从来没有见过，也只是听说过而已，所以，有了这样的称呼。从耳到鼻，在脸上不到一扎长，没想到在辈分中，竟然隔了十八辈。
+> 
+> **参考链接：**
+> 
+> [「问百度」百度百科——祖宗十八代](https://baike.baidu.com/item/%E7%A5%96%E5%AE%97%E5%8D%81%E5%85%AB%E4%BB%A3/8539817)
+
+*出处：[「问百度」请问关于这上九代和下九代都是怎么称呼的？ 之前查的往上是曾祖、高祖、天祖、列祖、太祖、远祖、鼻祖](https://jingyan.baidu.com/article/a681b0de7316337a184346ed.html)*
+
 - [「吴氏在线」“世界最长家谱”《 孔子世家谱》被湖北省档案馆收藏](http://www.cnwu.net/baijiaxingshi/2458.html)
-- [中国古代亲属称谓家谱总览](https://zhuanlan.zhihu.com/p/458028908)
+- [「知乎」中国古代亲属称谓家谱总览](https://zhuanlan.zhihu.com/p/458028908)
+- [「问百度」请问关于这上九代和下九代都是怎么称呼的？ 之前查的往上是曾祖、高祖、天祖、列祖、太祖、远祖、鼻祖](https://jingyan.baidu.com/article/a681b0de7316337a184346ed.html)
 - [「元宇宙」春节拜年，亲戚怎么叫？](https://www.facebook.com/englianhu/posts/pfbid0cqugyMqSdk1DBwzB8XiawCCz8bRXf5mZktm1Wr2WKs1ozj1D84FpB9RYXuCrmzDTl)
-- [「百度」我怎么称呼我堂叔的儿子啊？ 他比我小 应该怎么称呼？ 叫堂弟吗？ 可是堂叔的儿子已经不是堂了啊？](https://zhidao.baidu.com/question/291505101/answer/3012972358.html)
+- [「问百度」我怎么称呼我堂叔的儿子啊？ 他比我小 应该怎么称呼？ 叫堂弟吗？ 可是堂叔的儿子已经不是堂了啊？](https://zhidao.baidu.com/question/291505101/answer/3012972358.html)
 - [「范本模板」古代称谓大全](https://wenku.baidu.com/view/8a3d6c3ca3c7aa00b52acfc789eb172dec639967.html?_wkts_=1709365939475&bdQuery=%E6%A8%A1%E6%9D%BF%E5%8F%A4%E7%A7%B0)
 - [古代尊称荟萃](https://wenku.baidu.com/view/2324997758fafab069dc0256.html?_wkts_=1709527487300&bdQuery=春秋战国论文称呼大全)
 - [传统文化丨“八拜之交”是指哪八拜？](https://www.facebook.com/xyzhiju/posts/pfbid02hRxd7rzkyVFGWAUdhJGHjtwTqgiyQaD4aQpSmUBdAqRG3VfUE87JyjkN2yyL4YWTl)
 
+### 桃李满天下
+
 > 阳历二零四年十一月廿一日，全球第一所孔子学院正式在韩国首都首尔挂牌成立。截至阳历二零二零年七月卅一日，全球已有百圆二国家（地区）设立了五百卌三所孔子学院和千百进个孔子课堂：
 > 
 - 亚洲卅九国（地区），孔子学院百卅五所、孔子课堂百十五个
@@ -1036,13 +1082,15 @@ names(链) <- c('https://www.cidianwang.com/nianhao/zhouchao_0a340.htm', paste0(
   差乙 = 限乙 - 列乙[迭甲]
   空乙 = rep(NA, 差乙)
   if (差乙 > 0) {
-    牍 <- c(简[[迭甲]][1:(列乙[[迭甲]] - 差乙)], 空乙, 简[[迭甲]][列乙[[迭甲]]:列甲[[迭甲]]]) 
+    牍 <- c(简[[迭甲]][1:(列乙[[迭甲]] - 1)], 空乙, 简[[迭甲]][列乙[[迭甲]]:列甲[[迭甲]]]) 
   } else {
     牍 <- 简[[迭甲]]
   }})
 
 列乙 <- lapply(简, function(迭) grep('在位皇帝', 迭)) %>% 
   unlist()
+限乙 <- 列乙 %>% 
+    max()
 
 列丙 <- lapply(牍, function(迭) grep('年号', 迭)) %>% 
   unlist()
@@ -1054,7 +1102,7 @@ names(链) <- c('https://www.cidianwang.com/nianhao/zhouchao_0a340.htm', paste0(
     差丙 = 限丙 - 列丙[迭甲]
     空丙 = rep(NA, 差丙)
     if (差丙 > 0) {
-      牍 <- c(牍[[迭甲]][1:(列丙[[迭甲]] - 差丙)], 空丙, 牍[[迭甲]][列丙[[迭甲]]:限丙]) 
+      牍 <- c(牍[[迭甲]][1:(列丙[[迭甲]] - 1)], 空丙, 牍[[迭甲]][列丙[[迭甲]]:限丙]) 
     } else {
       牍 <- 牍[[迭甲]]
     }
@@ -1075,17 +1123,60 @@ names(链) <- c('https://www.cidianwang.com/nianhao/zhouchao_0a340.htm', paste0(
                     as.numeric() %>% 
                     cnum::num2c(lang = 'sc')}) %>% 
             unlist(), 
-        年份 = if_else(substr(年份, 1, 3) == '公元前', paste0('公元前', 年份乙, '年'), 年份乙) %>% 
+        年份 = if_else(
+          substr(年份, 1, 3) == '公元前', paste0('公元前', 年份乙, '年'), 年份乙) %>% 
           factor, 
         年份乙 = -cnum::c2num(年份乙))
 
-牍 <- cbind(周朝年号乙[c('年份', '年份乙')], 牍[, -grep('参数', colnames(牍))]) %>% 
+牍 <- cbind(序号 = 1:nrow(牍), 
+  周朝年号乙[c('年份', '年份乙')], 牍[, -grep('参数', colnames(牍))]) %>% 
   as_tibble() %>% 
   dplyr::mutate_if(is.character, factor)
 rm(链, 周朝年号, 简, 列甲, 限甲, 列乙, 限乙, 列丙, 限丙, 周朝年号乙)
-
 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年 农历干支：辛酉，生肖：鸡，朝代：唐朝，在位皇帝：唐武宗李炎，年号：会昌元年
+
 ####################################################################################
 ## 战国
 天朝 <- '战国'
@@ -1106,7 +1197,6 @@ fwrite(牍, paste0(.蜀道书轩, '周朝年号.csv'))
   版 <- matrix(椠, ncol = 2, byrow = TRUE, dimnames = list(NULL, c('年份', '明细')))
 }, .progress = 'text')
 
-
 简 <- strsplit(战国年号$明细, '，|：')
 列甲 <- 简 %>% 
     lapply(length) %>% 
@@ -1123,14 +1213,17 @@ fwrite(牍, paste0(.蜀道书轩, '周朝年号.csv'))
     列乙[迭甲] = grep('在位皇帝', 简[[迭甲]])
     差乙 = 限乙 - 列乙[迭甲]
     空乙 = rep(NA, 差乙)
+    列乙[[迭甲]] - 差乙 + 1
     if (差乙 > 0) {
-        牍 <- c(简[[迭甲]][1:(列乙[[迭甲]] - 差乙)], 空乙, 简[[迭甲]][列乙[[迭甲]]:列甲[[迭甲]]]) 
+        牍 <- c(简[[迭甲]][1:(列乙[[迭甲]] - 差乙 + 1)], 空乙, 简[[迭甲]][列乙[[迭甲]]:列甲[[迭甲]]]) 
     } else {
         牍 <- 简[[迭甲]]
     }})
 
 列乙 <- lapply(简, function(迭) grep('在位皇帝', 迭)) %>% 
     unlist()
+限乙 <- 列乙 %>% 
+    max()
 
 列丙 <- lapply(牍, function(迭) grep('年号', 迭)) %>% 
     unlist()
@@ -1147,14 +1240,32 @@ fwrite(牍, paste0(.蜀道书轩, '周朝年号.csv'))
         牍 <- 牍[[迭甲]]
     }
     牍 <- c(牍, rep(NA, 限甲 - length(牍)))
-}) %>% 
-    unlist %>% 
-    matrix(ncol = 限甲, byrow = TRUE, dimnames = list(
-        NULL, c('参数甲', '干支', '参数乙', '生肖', '参数丙', '朝代甲', '朝代乙', '朝代丙', '参数丁', '在位皇帝甲', 
-                '在位皇帝乙', '参数戊', '年号甲', '年号乙')))
+})
+
+牍 %<>% 
+  llply(., function(牒) (matrix(牒, ncol = 限甲, byrow = TRUE, dimnames = list(NULL, 名)))) %>% 
+  rbind.fill.matrix()
+
+属性 <- 牍 %>% 
+  data.frame() %>% 
+  llply(unique)
+
+if ((length(属性[[1]]) == 1 & 属性[[1]] == '农历干支') & (length(属性[[3]]) == 1 & 属性[[3]] == '生肖') & (length(属性[[5]]) == 1 & 属性[[5]] == '朝代')) {
+  牍 <- 牍[, -c(1, 3, 5)]
+  属性[c(1, 3, 5)] <- NULL
+}
+
+if (限甲 == 14) 名 <- c('参数甲', '干支', '参数乙', '生肖', '参数丙', '朝代甲', '朝代乙', '朝代丙', '参数丁', '在位皇帝甲', '在位皇帝乙', '参数戊', '年号甲', '年号乙')
+
+if (限甲 == 15) 名 <- c('参数甲', '干支', '参数乙', '生肖', '参数丙', '朝代甲', '朝代乙', '朝代丙', '参数丁', '在位皇帝甲', '在位皇帝乙', '在位皇帝丙', '在位皇帝丁', '参数戊', '年号甲')
+names(牍) <- 名
+
+%>% 
+  unlist %>% 
+  matrix(ncol = 限甲, byrow = TRUE, dimnames = list(NULL, 名))
 
 战国年号乙 <- 战国年号 %>% 
-    as_tibble %>% 
+    # as_tibble %>% 
     mutate(
         年份乙 = 年份 %>% 
             str_extract_all('[0-9]') %>% 
@@ -1172,8 +1283,6 @@ fwrite(牍, paste0(.蜀道书轩, '周朝年号.csv'))
     dplyr::mutate_if(is.character, factor)
 rm(链, 战国年号, 简, 列甲, 限甲, 列乙, 限乙, 列丙, 限丙, 战国年号乙)
 
-牍 %>% llply(., function(牒) data.frame(t(matrix(牒)))) %>% rbindlist()
-
 ```
 
 ```{r 读取朝代年号, results = 'asis', error = TRUE}

诸子百家学府/.directory

@@ -1,4 +1,4 @@
 [Dolphin]
 SortRole=type
-Timestamp=2023,1,3,17,29,1
+Timestamp=2024,5,21,17,52,46
 Version=4