前言

写这篇文章有两个原因。 第一个是最近在看吴秀波的《军师》。 这部剧紧凑的剧情，出色的唱功，还有很多震撼的细节，再次激起了我对三国志的喜爱。 兴趣。 我从小就玩过很多三国游戏，也读过很多三国书籍。 电视剧版的三国志、高希希版的新三国志等电视剧也不是问题。 那些年，我不仅经常玩《三国10》，而且对三国也没有任何影响力。 什么样的研究，我想通过这个分析来回顾一下三国中的这些人物和故事。 第二个原因是我已经很久没有写过R了，在工作中使用R的机会并不多。 我有点生疏，所以打算用这些数据来练练手。 另外，这个数据是英文的，我之前没有用过R。 有使用英文数据的经验。

人物价值系统依然是光辉历史游戏的一大特色。 是荣耀结合史实、小说、野史等资料对人物进行的综合评价。 光荣公司的《三国志》系列可以说是最经典的三国志游戏。 自1985年推出第一代以来，已有十三代作品。 至于每一代的数百名副将，经历了这么多版本之后，他们的属性是否会出现较大的变化，而这个变化又体现了什么？ 这就是本次分析主要要研究的内容。

我使用的中将数据是由一位日本网友（cws0324@yahoo.com.tw）收集并制作的。 它包含三国演义1-11中的所有中将数据。 对于字符使用数值是不言而喻的。 它可以让我们对游戏中的将领实力有一个直观的了解，但好处是我们有时只看重数值，而忽略了历史上人物真实的一面，这个问题在台湾战国中更为严重人物。 例如伊达政宗、竹中半兵卫。 如果你想学习，请参考：

战国时期台湾为何有这么多名将？ （第一个答案吓死我了）（）

我对国外非专业界（民间科学？）研究台湾战国史的氛围和现状的思考（）

马伯庸在知乎上回答一个问题时也做了类似的分析。 他使用的工具是Excel。 如果你有兴趣的话，可以去看看。 光荣公司的游戏《三国志》中副将的设定是根据三国历史设计的吗？ ()

我还用这个data+shiny做了一个三国人物的数据查询工具。

因为我对言情也了解得比较多，所以我会更多地从言情的角度来分析，并结合史实。 废话不多说，开始我们的分析吧。

1. 数据处理

首先，我们来看看数据本身的格式。

我们发现不同列中存在多个相同的变量，并且版本信息占据了多个条带。 这些数据如果不经过自动处理很难读入R（也许？），而且在excel中似乎可以直接使用，但是在R中这并不是我们所说的干净数据（clean data）。干净数据的定义如下

1. 每个变量必须有自己的列

2. 每个样本必须有自己的行

3. 每个值必须在自己的条带中

我决定自动将版本数据分成 11 个表，每个表如右图所示。 （当然我也可以直接自动获取我们最终想要的数据，但是我决定使用R来实现。）

我把初步处理后的数据放在这里()

这是我们需要使用的包。

library(readxl)
library(dplyr)
library(data.table)
library(ggplot2)

为了在 R 中使用英语，我们使用以下代码将系统区域设置设置为“Chs”。 这里使用的操作系统是Win10家庭版。

Sys.setlocale('LC_ALL','Chs')

然后使用readxl::read_excel读取数据，每个版本的数据都存储在一个dataframe中，我们一共有11个dataframe，而这11个dataframe存储在一个list中，因为lapply返回的是list结构，我们将其命名为dt。

dt <- lapply(1:11, function(x) read_excel("Characters.xlsx", x)) 

因为每一代副将的属性都不同，为了上面方便，我希望做成一个大的dataframe。 它的变量包括名称、所有版本的属性以及角色的版本。 我们来看看如何实现这个目标。

我首先删除每个版本的数据中该版本中没有出现过的不必要的变量和副将。 有些NPC属性全为0，我们也将其删除，并将清除的数据保存为新的。 在变量中，称为级数。

# Column 2-8 为不需要的变量
series <- lapply(1:11, function(x) {select(dt[[x]], -c(2:8)) %>%
    filter(complete.cases(dt[[x]][,-c(2:8)])) %>%
    mutate(版本 =  paste0("三國志", x)) %>%
    filter(智力!= 0) }) # 通常一项属性为0，其它属性也都为0 

第一代的前六名中尉如下。

head(series[[1]])

# A tibble: 6 x 7
  姓名    體力  武力  智力  魅力  運勢 版本   
           
1 丁奉     81.   22.   81.   29.   47. 三國志1
2 于禁     82.   72.   20.   25.   28. 三國志1
3 公孫瓚   84.   70.   67.   89.   28. 三國志1
4 太史慈   88.   97.   47.   84.   34. 三國志1
5 孔融     84.   82.   61.   50.   77. 三國志1
6 文聘     88.   84.   22.   64.   83. 三國志1

后面会提到，每一代游戏副将都有不同的属性。 第一代有体力，第二代把征服分为陆地指和水指，第九代没有魅力。 那么我们来看看所有作品都有哪些属性，以及每一代作品都有哪些属性。

除去名字和版本，历朝历代都出现过的唯一属性就是武力和智力。 这两个属性是我们前面要重点分析的。

common_attr <- Reduce(intersect, sapply(series, colnames))
all_attr <- Reduce(union, sapply(series, colnames))
all_attr[2:9]

[1] "體力" "武力" "智力" "魅力" "運勢" "版本" "政治" "陸指"

common_attr[2:3]

[1] "武力" "智力"

由于我们的 11 个数据框现在是独立的，因此我们需要合并它们，但每个数据框具有不同的列数。 如何合并它们。 最简单的方法是使用 plyr::rbind.fill()，它可以手动用 NA 填充缺失值。 在使用这个功能之前，我尝试了一个特别复杂的方法。 这些方法需要调整变量的顺序，这里不讨论。

我还调整了分类变量版本的级别，使其按照1-11代的顺序排列，主要是为了以后做图时，X轴值（版本）可以按照正常的顺序排列。

series_full <- do.call(plyr::rbind.fill, series) %>%
   mutate(版本 = factor(版本, levels = paste0("三國志", 1:11))) %>%
   select(c(1,11,3:10,2)) # 体力只出现于第一个版本，把它移到最后一列

现在我们得到了我们想要的大数据框，它看起来像这样。

head(series_full)
 姓名 統率 武力 智力 魅力 運勢    版本 政治 陸指 水指 體力
1   丁奉   NA   22   81   29   47 三國志1   NA   NA   NA   81
2   于禁   NA   72   20   25   28 三國志1   NA   NA   NA   82
3 公孫瓚   NA   70   67   89   28 三國志1   NA   NA   NA   84
4 太史慈   NA   97   47   84   34 三國志1   NA   NA   NA   88
5   孔融   NA   82   61   50   77 三國志1   NA   NA   NA   84
6   文聘   NA   84   22   64   83 三國志1   NA   NA   NA   88

2. 各种数据分析

2.1 各代人物数量分析

我们先来看看每一代的角色数量

char_freq <- group_by(series_full, 版本) %>% summarise(人數 = n())
char_freq

# A tibble: 11 x 2
   版本      人數
       
 1 三國志1    256
 2 三國志2    352
 3 三國志3    770
 4 三國志4    454
 5 三國志5    571
 6 三國志6    520
 7 三國志7    539
 8 三國志8    635
 9 三國志9    674
10 三國志10   650
11 三國志11   702

毫不奇怪，第一个版本的字符最少。 这些副官我们一定很熟悉。 就像最早的三国杀标准包一样，只有二十多个来自三国等强大势力的主要角色，而现在秦糜、孙子、刘芳等人物都已经登场。

我们来看看十一部作品中有多少个角色。

show_in_all <- Reduce(intersect, lapply(series, "[", 1))
nrow(show_in_all)

[1] 221

从第 1 代到第 11 代，每代出现 221 个角色。我们从中随机选择 10 个。 毫不奇怪，他们都是你可以随意讲述故事的角色（讲述你的故事）。

sample_n(show_in_all, 10)

# A tibble: 10 x 1
   姓名 
   
 1 丁奉 
 2 楊秋 
 3 張昭 
 4 孔融 
 5 潘璋 
 6 劉循 
 7 陳宮 
 8 顏良 
 9 魏延 
10 袁術 

那么哪些角色在第一部中出现，但在后来的一些版本中没有出现呢？

show_in_all <- Reduce(intersect, lapply(series, "[", 1))
setdiff(filter(series_full, 版本 == "三國志1")$姓名, show_in_all$姓名)
 [1] "朱褒"   "朱儁"   "呂公"   "宋謙"   "李堪"   "侯選"   "胡軫"  
 [8] "馬延"   "張既"   "張顗"   "梁綱"   "陳紀"   "陳珪"   "陳琳"  
[15] "陳嬉"   "陳應"   "陳蘭"   "傅士仁" "傅幹"   "楊奉"   "楊彪"  
[22] "趙岑"   "劉永"   "劉理"   "劉賢"   "劉璝"   "樂就"   "蔣欽"  
[29] "蔣幹"   "蔡邕"   "鮑信"   "鍾進"   "韓浩"   "譙周"   "嚴畯"

其中有些人颇有名气，比如《三国演义》中被密谋疏远周瑜的江谦（没猜到方翩？）、楚国的坚定投降派、大儒乔周，还有东吴将军蒋钦。 传授能治曹操呕吐文章的建安七子之一的陈琳，其他大多都是不太出名的人物，比如袁术的一群儿子韩遂。

2.2 三国领主数值对比

首先捕获刘备、孙权、曹操的数据，存储在单独的dataframe中，称之为皇帝

# 刻意调整了level的顺序，来对应游戏中吴国势力的红色，蜀国势力的绿色，以及魏国势力的蓝色
emperor <- filter(series_full, 姓名 %in% c("劉備", "曹操", "孫權")) %>%
  mutate(姓名 = factor(姓名, levels = c("孫權", "劉備", "曹操")))

使用该功能可以绘制属性对比折线图。

emperor_attr <- function(attrs){
  result <- ggplot(emperor, aes_string(x = "版本", y = attrs, 
    group = "姓名")) + 
    geom_point(size = 2, aes(color = 姓名)) +
    geom_line(aes(color = 姓名)) + 
    geom_text(aes_string(label = attrs), hjust = 1, vjust = -0.5) + 
    ylab(attrs) + 
    ggtitle(paste0("三國主君歷代遊戲", attrs, "對比"))
  result
}

2.2.1 力比较

emperor_attr("武力")

作为一款1985年出品的游戏，《三国志1》在人物价值观上可能稍显不成熟。 这一代，孙权和曹操的军事实力达到了惊人的94和93，未来，几乎还会继续增长。 最终两人的战力都在70左右，基本就是准二流中将的水平了。

从数据来看，曹操的武力低于普通士兵是没有问题的。

兵谋叛，夜烧太祖帐，太祖手剑杀数十人，馀皆披靡，乃得出营；其不叛者五百馀人。——《三国志魏书武帝纪第一》

关于孙权的武力描述不多，但有记载说他曾经杀过老虎。 实际使用了设备。

二十三年十月，权将如吴，亲乘马射虎於庱亭。马为虎所伤，权投以双戟，虎卻废，常从张世击以戈，获之。——《吴传记》

史书中关于刘备武力的记载很少。 我相信光荣对刘备的力量很可能来自于爱情。 三侠战吕布其实是虚构的，但我们有理由相信，罗贯中的虚构大部分都会取材于一定的历史事实。 如果刘备没有实力，没有拿装备，剧情恐怕就是二侠大战吕布了。 另外，刘备早年曾带头征伐土匪、盗贼，多次来到战场。 这也需要勇气，70的力量并不夸张。

所以孙曹和刘的武功最终稳定在70左右，我觉得还是比较科学的。

2.2.2 情报对比

emperor_attr("智力")

从图中我们可以看到，不仅曹操的智力每一代都稳定在90以上，孙权和刘备的智力也在不断增加，分别稳定在80和70左右。 这是很有道理的。 一、刘备在整个《三国演义》中的聪明才智，没有什么精彩的克敌制胜的情节和出色的谋略。 诸葛亮出来后，经常臣服于不同的势力，从曹操，到袁绍，再到刘表，从来没有自己的根据地。 其实，刘备最大的魅力不是谋略，而是仁爱，以及他的得人心的能力。 在他最初衰弱的时候，仍然选择搜救公孙瓒、孔融等诸侯，并率领庐山、荆州数十万人逃往汉阳。 这也是可以做到的。 解释一下为什么关羽、张飞等人总是能一心一意追随刘备，为什么诸葛亮愿意出山。

公元192年，曹操以牧人身份接管荆州，招募三十万盗贼入徐州兵。 就算与吕布、张绣等人交战时互有胜负，至少也成为了一股力量。 皇帝能够在不到两六年的时间内带领皇帝指挥诸侯，击败吕布，攻克淮北，击败袁绍，统一南方，靠的就是他自己的大局观、战略眼光、调兵能力。和策略。 曹操实际上有很多得力的大臣和谋士，总体战略规划也是曹操做的。 它不是刘备集团那样的寡头集团。 早期的诸葛亮，中期的诸葛亮、庞统，到法正病逝后，就真的只剩下诸葛亮了。

亮叹曰：「法孝直若在，则能制主上，令不东行；就复东行，必不倾危矣。」

孙权18岁时继承了哥哥孙策的王位。继位初期，政权不稳定。 很多章节都有政变。 就连孙权的表弟也和曹操有内部联系。 此时，孙权一方面继续重用程普、张昭等重臣，另一方面广纳贤才。 鲁迅、鲁肃、诸葛瑾都是这一时期加入孙权阵营的。 完成亲政、维护江东稳定后，孙权将目标瞄准了汉阳黄祖。 虽然最终没有攻下汉阳，但多次击败刘表大军，但最终还是杀死了黄祖。 此后，赤壁之战取得彻底胜利。 后来在蔡州与曹操作战时，被评价为“有子如孙仲谋”。 事实上，孙权依然没有攻克扬州，只是在逍遥津之战中接替了张辽。 然而到了晚年，继任者问题引发了两宫之争（两宫之争），导致陇西许多人才流失（鲁迅、卜质之死）更多还是与此事无关），但世上没有完美的人，贾诩其实就是一个。

战略并不是决定胜败的唯一因素。 天时、地利甚至性格影响着曹操、刘备、孙权的发展进程，但确实是关键一环。 综上所述，我认为两人的智力数值和变化是比较准确的。

2.2.3 对比

刘备和孙权的征战最终收敛在75岁左右。指挥是指带兵打仗的能力。 刘备一生虽然屡战屡败，但徐州之战堪称他个人的巅峰。 孙权统治江东五十多年，但他虽然死守了乌鲁木齐，但在秦国的徐州地区却从未获得过任何好处。 一直以来都是晋朝的名将，不过这也多少说明了孙权的战斗能力。

暂时决定确认《三国志1》整体身价是否偏低。

series_full %>% group_by(版本) %>% 
  summarise(智力均值 = mean(智力), 武力均值 = mean(武力))

# A tibble: 11 x 3
   版本     智力均值 武力均值
              
 1 三國志1      56.2     57.3
 2 三國志2      56.4     59.3
 3 三國志3      56.6     59.5
 4 三國志4      58.6     61.4
 5 三國志5      59.9     59.2
 6 三國志6      59.1     58.4
 7 三國志7      57.7     58.8
 8 三國志8      56.4     58.6
 9 三國志9      59.4     55.4
10 三國志10     58.5     56.4
11 三國志11     59.0     53.7

看来不是。

2.3 最强/最弱王朝

2.3.1 史上最强力量

下面的函数用于统计游戏中每个角色进入力量最强、智力最强、力量最弱等前10名的次数。

# If n is positive, selects the top n rows. If negative, selects the bottom n rows.
top_low_attr <- function(attrs, bw = 1){
  col_name <- enquo(attrs) 
  result <- series_full %>% group_by(版本) %>% 
    top_n(n = bw * 10, !!col_name) %>% 
    group_by(姓名) %>%
    summarise(次數 = n(), 均值 = ceiling(mean(!!col_name))) %>%
    arrange(desc(次數), desc(均值)) %>%
    slice(1:10)
    result
}

跨越21年的11代游戏，最强战士变化大吗？ 从下表来看，吕布、关羽、张飞、马超、许褚每次都进入了最强选手前十名。 其他两个都没有什么悬念，但是太史慈却多次进入前五，这让我有点意外。 太史慈的处女作是柳州救孔融。 他最著名的作品是与孙策的决斗。 加盟东吴后，成功镇压刘盘。 总的来说，他是非常勇敢的。 游戏中最低90的武力他是没有问题的。 没想到，他竟然光荣了。 我已经多次被赋予95以上的力量了。

注：此平均力量值是角色进入前10名时的平均力量值。

top_low_attr(武力)

# A tibble: 10 x 3
   姓名    次數  均值
      
 1 呂布      11  100.
 2 張飛      11   99.
 3 關羽      11   98.
 4 馬超      11   98.
 5 許褚      11   97.
 6 趙雲      10   98.
 7 典韋       9   96.
 8 黃忠       6   96.
 9 文醜       6   96.
10 太史慈     5   96.

2.3.2 历代最高智慧

如果去掉左慈，悬念就消失了。 唯一让人意外的是，诸葛亮一次都没有跻身前十。 可能我的代码没有考虑并列第十的情况，但是论智力，诸葛亮怎么可能排第十呢？ ？

top_low_attr(智力)

# A tibble: 10 x 3
   姓名    次數  均值
      
 1 龐統      11   98.
 2 司馬懿    11   98.
 3 荀彧      11   97.
 4 周瑜      11   97.
 5 諸葛亮    10  100.
 6 郭嘉      10   98.
 7 陸遜      10   96.
 8 賈詡       9   96.
 9 徐庶       9   96.
10 左慈       4   99.

那我们就来看看诸葛亮落后于哪一代了。 原来，这已经是第七场比赛了。 看来这款游戏的人物数值设计师就是诸葛亮。 又或许他增强了诸葛亮的其他能力？

series_full %>% filter(姓名 == "諸葛亮")  %>%
  select("智力", "版本")

智力     版本
1   100  三國志1
2   100  三國志2
3   100  三國志3
4   100  三國志4
5   100  三國志5
6   100  三國志6
7    92  三國志7
8   100  三國志8
9   100  三國志9
10  100 三國志10
11  100 三國志11

哦，原来在历朝历代，诸葛亮的武力都是5、60，甚至是3、40，到了第七部，诸葛亮突然变成了中尉，武力87，有理由相信，这是为了平衡而削弱诸葛亮的荣誉。 智力激励。

series_full %>% filter(姓名 == "諸葛亮") 

    姓名 統率 武力 智力 魅力 運勢     版本 政治 陸指 水指 體力
1  諸葛亮   NA   72  100   97   84  三國志1   NA   NA   NA   69
2  諸葛亮   NA   65  100   98   NA  三國志2   NA   NA   NA   NA
3  諸葛亮   NA   61  100   95   NA  三國志3   92   92   78   NA
4  諸葛亮   97   55  100   96   NA  三國志4   96   NA   NA   NA
5  諸葛亮   NA   60  100   97   NA  三國志5   96   NA   NA   NA
6  諸葛亮   97   55  100   98   NA  三國志6   98   NA   NA   NA
7  諸葛亮   NA   87   92   95   NA  三國志7   98   NA   NA   NA
8  諸葛亮   NA   50  100   91   NA  三國志8   98   NA   NA   NA
9  諸葛亮   92   33  100   NA   NA  三國志9   98   NA   NA   NA
10 諸葛亮   93   37  100   92   NA 三國志10   98   NA   NA   NA
11 諸葛亮   92   38  100   92   NA 三國志11   95   NA   NA   NA

2.3.3 历朝历代最弱的智力

提起五屠骨，可能有些人不太熟悉，但恐怕都知道诸葛亮七次擒获孟获。 孟获六次被俘后，他第七次去的藤家兵副将的老大。 （我仍然把他和萨莫科混淆了）。 无疆是《三国演义》中的虚构人物。 就算他的三千人马被诸葛亮的火攻全灭，他的智力也不会在十一场比赛中九次垫底，会被乌图谷委屈。

在这个表中，来自少数部落的人占了50%。 它们有着突出的骨头、长长的牙齿和三个金环。 孟佑是蛮夷。 二和少歌，三国演义中最脍炙人口的名字，藏族副将（神秘）。 当了王，浩猛φ(￣∇￣o)不服气）。 在演义里，扮演副将的基本蛮族和羌人的下场都不好。 刘备请沙莫哥攻吴，被周泰所杀。 雅丹和月吉被活捉，一人被杀，其次是额和少哥（历史上额和少哥是两个人）。

top_low_attr(智力, -1)

# A tibble: 10 x 3
   姓名      次數  均值
        
 1 兀突骨       9    9.
 2 俄何燒戈     7   13.
 3 潘鳳         7   12.
 4 忙牙長       7   10.
 5 楊秋         5   16.
 6 金環三結     5   15.
 7 蔡和         5    9.
 8 王雙         4   16.
 9 曹豹         4   14.
10 孟優         3   12.

其他角色就不用多说了。 被曹操叫来卧底的蔡和，很可能还没来得及施展歌功就被周瑜揭穿了。 潘凤中将打不过华雄，智商为何如此之低？ 毕竟是韩馥放他走的。 都是罗贯中的错。

“末将遵命！取兵器来！” 《央视版三国》
“小小娃娃口出狂言，我乃潘凤，快来送死！” 《貂蝉》
“华雄的拳在真正天才的眼里，不过是慢动作而已。” 《终极三国》
“有何不敢？我的大斧早就饥渴难耐了！” 《三国》

2.3.4 历代最差魅力

宦官黄皓和权臣岑浑的选拔悬念就较小了。 小说中，韩轩被描述为“性急之人，嗜杀成性，人人皆恨”。 杨松卖张鲁辅佐曹军，结果头颅失踪。 糜芳投降东吴是比较合理的。

top_low_attr(魅力, -1)

# A tibble: 10 x 3
   姓名      次數  均值
        
 1 兀突骨       9    9.
 2 俄何燒戈     7   13.
 3 潘鳳         7   12.
 4 忙牙長       7   10.
 5 楊秋         5   16.
 6 金環三結     5   15.
 7 蔡和         5    9.
 8 王雙         4   16.
 9 曹豹         4   14.
10 孟優         3   12.

2.4 智慧与勇敢

2.4.1 勇敢机智

看看武力高于智力的人中，谁的智力最高

war_int <- series_full %>% filter(武力 > 智力) %>% 
  group_by(版本) %>%
  top_n(n = 1, 智力) %>%
  select(c("姓名", "武力", "智力"))

table(war_int$姓名)
曹操 郝昭 李嚴 孫策 徐盛 張遼 張任 趙雲 
   1    1    1    3    2    4    1    3 

孙策、赵云、张辽、徐胜、张任、郝昭，这确实是三国最强大的人物群。

2.4.2 民用和军用

智力高于实力的人中，谁的实力就会最高。

int_war <- series_full %>% filter(智力 >= 武力) %>% 
  group_by(版本) %>%
  top_n(n = 1, 武力) %>%
  select(c("姓名", "武力", "智力"))

table(int_war$姓名)
曹操 姜維 孫權 
   2    9    1 

基本上就是蒋博越，不过相信光荣公司更换蒋维的武力和情报，不会有人有什么异议。

我们来看看武力+智力最高的人是谁，和上面的人物有没有不同

war_int2 <- series_full %>%  mutate(智勇 = 智力 + 武力) %>%
  group_by(版本) %>%
  top_n(n = 1, 智勇)
table(war_int2$姓名) 
曹操 姜維 孫權 
   2    9    1 

基本上没有区别。

2.5 五虎将VS五勇将

我们来对比一下魏国五虎将和五勇将。 首先我们放一张光辉风格的副将军头像。

五勇将是指曹魏将领张辽、徐晃、乐进、张郃、于禁。 此书名出自陈寿的《三国志》

太祖建茲武功，而时之良將，五子为先 --陈寿 《三国志魏志卷十七》

史书中没有五虎将称号的记载。 陈寿将关羽、张飞、赵云、黄忠、马超编成《三国蜀书关张马黄昭传》。 五虎将中将或许也受到了五位勇将的启发。

2.5.1 力的比较

wuzi <- c("張郃", "徐晃", "張遼", "于禁", "樂進")
wuhu <- c("關羽", "張飛", "趙雲", "馬超", "黃忠")

general <- series_full %>% filter(姓名 %in% c(wuzi, wuhu)) %>% 
  mutate(稱呼 = ifelse(姓名 %in% wuzi, "五子良將", "五虎大將"))

wuhu_vs_wuzi <- function(attrs){
  ggplot(general, aes_string(x = "版本", y = attrs, group = "姓名")) + 
    geom_point(size = 2, aes(color = 稱呼)) + 
    geom_line(aes(color = 稱呼)) +
    scale_y_continuous(limits = c(0, 100), breaks = seq(0, 100, 10)) + 
    geom_text(data = filter(general, 版本 == "三國志1"), 
      aes(label = 姓名, hjust = 1, vjust = -1)) +
    ggtitle(paste0("五子良將和五虎大將歷代", attrs, "對比"))
}

wuhu_vs_wuzi("武力")

从这张图来看，五虎的基本力量就是碾压五公子，而五公子之中，又以张辽和徐晃的力量最高。 后者无话可说，虽然《三国蜀书成语传》中记载了关羽和赵飞“万人之敌”的称号。 先不说赵云在历史上的真实形象，单凭小说中他在长坂坡、汉水抗敌的表现，以及他的人气，光荣不敢给赵云95%以上的武力。 五虎将的战力这些年来基本没有变化，维持在95左右。乐进和于进的战力在第二代一度跌破了60，之后又升到了80以上。

张辽就不多说了，我们来看看曹丕和孙权对他的评价。

曹丕：「此亦古之召虎也。」「合肥之役，辽、（李）典以步卒八百，破贼十万，自古用兵，未之有也。
      使贼至今夺气，可谓国之爪牙矣。其分辽、典邑各百戶，赐一子爵关內侯。」
孙权：「张辽虽病，不可当也，慎之！」

介绍徐晃的武功，还是先从小说入手吧。 历代徐晃的武力都在90左右，这说明这个数值基本上没有发生变化的理由。 徐晃的主要战绩是50回合战平许褚、20回合负于颜良、80回合负于夷陵之战中手腕受伤的年近60的关羽。 二十回合输给颜良可以说是彻底失败，但是颜良和《三国演义》中最厉害的人物却被关羽瞬间秒杀。

颜良正在麾下，见关公到来，恰欲问之，马已至近。云长手起，一刀斩颜良于马下。

所以，根据1v1的战绩，再加上徐晃在长武、襄阳之战击败关羽的武功，徐晃的武力值是没有问题的。

《三国演义1》和《三国演义2》中乐进的兵力都大于60，这几乎是没有根据的。以下记载于《三国演义·张越张旭传》

从征张绣於安众，围吕布於下邳，破别将，击眭固於射犬，攻刘备於沛，皆破之，...，
从击袁绍於官渡，力战，斩绍将淳于琼。从击谭、尚於黎阳，斩其大将严敬，行游击将军。
别击黄巾，破之，...，从击袁谭於南皮，先登，入谭东门。谭败，别攻雍奴，破之

从乐进的传记来看，乐进参加的战斗几乎是不败的，他作战勇敢，身先士卒。 陈寿评价他为“小郭”，寓意勇敢、坚强。

最后我们来看看张郃，也就是《三国蜀书十七》

又与张辽讨陈兰、梅成等，破之。从破马超、韩遂於渭南。围安定，降杨秋。
与夏侯渊讨鄜贼梁兴及武都氐。又破马超，平宋建 ...,
...,
备以精卒万馀，分为十部，夜急攻郃。郃率亲兵搏战，备不能克。
依阻南山，不下据城。郃绝其汲道，击，大破之。南安、天水、安定郡反应亮，郃皆破平之。

我不会单独谈论于进。 力量的强度并没有太大的变化。 最终关羽在节末不保投降，这其实对他的价值观造成了一些影响。

2.5.2 智能对比

wuhu_vs_wuzi("智力")

从数字上看，张辽五子智商不仅总体趋势在上升，而且平均水平还低于五虎将，主要是因为张飞和马超拖后腿，而黄忠则马马虎虎，而他的智力维持在60左右。

我感觉，与五虎将相比，五勇将是更加帅气的人才，而且他们的军事实力可能不是顶尖的，但是他们有带兵打仗、以弱胜强、毁城毁村的能力。比五虎将还要强。

2.6 数值变化最大的人

2.6.1 力值变化最大的人

我们先来看看，实力发生巨大变化的人是谁。

series_full %>% group_by(姓名) %>% 
  summarise(武力變化 = max(武力) - min(武力)) %>%
  top_n(10, 武力變化) %>%
  arrange(desc(武力變化))

# A tibble: 10 x 2
   姓名  武力變化
       
 1 孔融       77.
 2 貂蟬       71.
 3 鍾繇       68.
 4 韓馥       66.
 5 小喬       65.
 6 大喬       63.
 7 丁奉       62.
 8 曹熊       61.
 9 裴秀       60.
10 劉繇       59.

另一位建安七子，兵力变化最大的就是孔融让利故事的主角孔文举。 孔融的武力最高达到了82，最低的也只有5。其实，孔融早年算是十八诸侯之一，参与了征伐董卓的行动。 但无论是史书还是小说，孔融记载的战斗基本上都是失败的。 晋代书籍中有一段很有趣的记载。

《后汉书·卷七十》：「建安元年，为袁谭所攻，自春至夏，战士所余裁数百人，
流矢雨集，戈矛內接。融隐机读书，谈笑自若。城夜陷，乃奔东山，妻子为谭所虏。」

类似于孔融童子的“翻巢之下，必有完整的蛋”。

series_full %>% filter(姓名=="孔融")

   姓名 統率 武力 智力 魅力 運勢     版本 政治 陸指 水指 體力
1  孔融   NA   82   61   50   77  三國志1   NA   NA   NA   84
2  孔融   NA   35   82   87   NA  三國志2   NA   NA   NA   NA
3  孔融   NA   58   83   64   NA  三國志3   76   67   63   NA
4  孔融   68   51   82   65   NA  三國志4   76   NA   NA   NA
5  孔融   NA   37   89   72   NA  三國志5   75   NA   NA   NA
6  孔融   63   48   85   71   NA  三國志6   75   NA   NA   NA
7  孔融   NA   56   75   59   NA  三國志7   67   NA   NA   NA
8  孔融   NA   32   68   56   NA  三國志8   74   NA   NA   NA
9  孔融   23    7   69   NA   NA  三國志9   64   NA   NA   NA
10 孔融   30   11   74   60   NA 三國志10   78   NA   NA   NA
11 孔融   30    5   72   65   NA 三國志11   75   NA   NA   NA

2.6.2 智力值变化最大的人

series_full %>% group_by(姓名) %>% 
  summarise(智力變化 = max(智力) - min(智力)) %>%
  top_n(10, 智力變化) %>%
  arrange(desc(智力變化))

# A tibble: 11 x 2
   姓名   智力變化
        
 1 鮑信        67.
 2 韓玄        66.
 3 劉璋        65.
 4 穆順        57.
 5 橋玄        56.
 6 曹訓        55.
 7 全琮        54.
 8 蔡中        53.
 9 韓浩        53.
10 審配        53.
11 於夫羅      53.

韩轩的智力发生了很大的变化。 虽然历史上的韩轩与小说中的形象相差甚远，但以下内容摘自维基百科。

清代汪应铨《韩玄墓记》载；韩玄“威信智略，足以服人”，“宽厚爱人，玄与三郡俱降，兵不血刃，百姓安堵，可谓知顺逆之理，
有安全之德。”对韩玄评价甚高，似在为其正名。

所以，光荣对韩轩的设计更多的是指浪漫，但谁会在乎这样的人物呢。

咱们就来说说刘章吧。 三国演义9和三国演义11给出了惨淡的5情报。 我对刘璋最大的印象就是“阴暗弱”，而正史对刘璋的评价一般是不是英雄、不是英雄、弱小。 但有这样一句话，足以说明他的优点。

“刘璋虽暗懦，然国富民盛，守之以恩，无所得罪也。” --叶适（《习学记言》）

没有野心并没有错。 刘章的目的或许就是安安静静，国富民安就好了。 无奈，刘备的目标是天下，占领扬州，夺取西蜀，等待天下改变。 当时我看演义，读到黄权正用臼齿咬着刘璋的校服，阻止刘璋去钦州会见刘备。 蜀中人才济济，无奈遇见主刘章。

series_full %>% filter(姓名 == "劉璋")

   姓名 統率 武力 智力 魅力 運勢     版本 政治 陸指 水指 體力
1  劉璋   NA   51   70   94   60  三國志1   NA   NA   NA   74
2  劉璋   NA   50   70   90   NA  三國志2   NA   NA   NA   NA
3  劉璋   NA   52   51   82   NA  三國志3   63   47   21   NA
4  劉璋   48   53   50   82   NA  三國志4   63   NA   NA   NA
5  劉璋   NA   33   60   85   NA  三國志5   43   NA   NA   NA
6  劉璋   38   31   63   87   NA  三國志6   55   NA   NA   NA
7  劉璋   NA   27   48   53   NA  三國志7   46   NA   NA   NA
8  劉璋   NA   17   37   80   NA  三國志8   46   NA   NA   NA
9  劉璋    3    3    5   NA   NA  三國志9   33   NA   NA   NA
10 劉璋   18   15   10   75   NA 三國志10   45   NA   NA   NA
11 劉璋   16    5    9   65   NA 三國志11   38   NA   NA   NA

2.7 同名角色

我玩《三国演义10》的时候，看到了两个马忠和两个李峰。 还有其他同名角色吗？

series_full %>% group_by(版本, 姓名) %>%
  summarise(人数 = n()) %>%
  filter(人数 > 1)

# A tibble: 16 x 3
# Groups:   版本 [9]
   版本     姓名   人数
        
 1 三國志3  李豐      3
 2 三國志3  馬忠      2
 3 三國志4  馬忠      2
 4 三國志5  馬忠      2
 5 三國志6  馬忠      2
 6 三國志7  馬忠      2
 7 三國志8  李豐      2
 8 三國志8  馬忠      2
 9 三國志8  張溫      2
10 三國志9  李豐      2
11 三國志9  馬忠      2
12 三國志10 李豐      3
13 三國志10 馬忠      2
14 三國志11 李豐      3
15 三國志11 馬忠      2
16 三國志11 張南      2

从结果来看，李峰三个，马忠两个，张文两个，张楠两个。 我跟大家查了一下，确实是这样，并不是数据错误。 其中最著名的大概就是擒获关羽的东吴马忠了。

3.杂项注释

这篇文章完成并成功发送到用blogdown搭建的网站后，我才真正感受到什么叫“书用之恨少，因果难解”。 写之前我以为以我自己对三国的了解，写起来应该不是很难，但是我发现我知道的只够和别人聊天，写出来还不够。 现在需要检查。 我读了很多书，但我的写作水平却没有提高。 我读自己写的东西总是感到别扭。 有时一个句子被多次删加，造词造句，防止重复。 想想老师在写中小学英语练习时经常说的话。 如果这里使用think，只需更改上面的单词即可，例如考虑、相信、建议。

我对这篇文章写的R还是比较满意的。 它比较简洁，并且尽可能减少了变量和行数。 在google的过程中我也学到了很多东西。

另外，文中对人物的部分评价是我自己的主观看法，可能经不起推敲。 如有错误，请大家讨论并原谅。

关于作者：

潘新晨拥有尚佩恩佛罗里达学院统计学硕士学位。 他目前在纽约一家市场研究公司从事数据分析工作。 R爱好者、乒乓球狂热者、东野圭吾小说狂热者。

统计之都：专业、人文、诚信的中国统计社区。

关注方式：扫描右侧二维码。 或者找到官方账号，搜索Statistics City或CapStat。

历史推送：进入统计会话窗口，点击右上角小人图标，查看历史消息。