10 min read

"影视：《明星大侦探》剧集解析

2018/11/04

"影视 系列导航

1 "影视：Margin Call 观后感 2018-01-09
2 "影视：致命武器第二季 周三更新 2018-01-13
3 "影视：arbitrage 观后感 2018-01-14
4 "影视：legal high 第一季 视频笔记 2018-01-15
5 "影视：莫斯科行动 视频笔记 2018-01-15
6 "影视：霹雳爸妈 视频笔记 2018-01-15
7 "影视：Fringe 视频笔记 2018-01-27
8 "影视：American Crime Story S02 视频笔记 2018-01-29
9 "影视：Three Billboards Outside Ebbing, Missouri 视频笔记 2018-02-05

{r setup, include=FALSE} knitr::opts_chunk$set(eval = FALSE)

<script type="text/javascript" src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML">
</script>

如发现问题或者有建议，欢迎提交 Issue

{r message=FALSE, warning=FALSE, include=FALSE} library(tidyverse)

第三季04期：深夜麻辣烫

<details close>

<summary>

视频链接

</summary>

</details>
侦探 (何炅)
美食家
鸥小妹 (王鸥)
食客
<details close>

<summary>

因为甄和魏有过节

</summary>
  1. 22:00 到达案发现场
  2. 隐瞒学历
  3. 威胁甄
  4. 在甄威胁魏时，用录音记录下来
</details>
勋外卖 (魏大勋)
外卖员
<details close>

<summary>

甄未照顾好勋爷爷，且没有还钱

</summary>
  1. 21:15 跟老板说私事，但是老板已死
  2. 赊帐
  3. 五十万保管，照顾勋的爷爷
  4. 勋杀人自首，刑满释放
  5. 被辞职
  6. 威胁甄，因为甄给差评
  7. 和魏、甄合谋杀了撒的妻子
</details>
鬼发廊 (吴映洁)
叛逆少女
<details close>

<summary>

发现甄杀死了亲生母亲

</summary>
  1. 日记显示讨厌爸爸
  2. 人身伤害险，受益人鬼
  3. 造星计划，需要100万
  4. 发廊老板答应给工作
  5. 鬼知道甄杀了鬼的妈妈
  6. 20:10-20:15 聊天，回到发廊
</details>
魏来 (魏晨) 凶手
创业精英
<details close>

<summary>

甄威胁魏

</summary>
  1. 21:00 第一次来到现场
  2. 21:50 第二次来到现场
  3. 被要挟200万
  4. 房、车租的，多张身份证
  5. 死后，去二楼删除了被威胁的视频，并且特定强调未经过现场
</details>
撒龙 (撒贝宁)
包工头
<details close>

<summary>

杀妻之仇，但是不明显，因为龙哥为人正直

</summary>
  1. 撒小宁、撒小贝、丁香
  2. 知道鬼被甄领养
  3. 撒欠钱
</details>
甄烫
火锅店老板
<details close>

<summary>

对当年事件赎罪

</summary>
  1. 甄拿到了魏指纹，找到一把刀伪造凶器
  2. 20:15-21:15 被杀现场
</details>

```{r echo=FALSE, message=FALSE, warning=FALSE} library(DiagrammeR) grViz( digraph dot {

graph [layout = dot]

node [shape = egg, style = filled, color = darkgreen, fontsize = 12, fontname = Helvetica, fontcolor = white, # label = ‘’]

勋 -> 甄 [label = ‘要挟’] 勋 -> 魏 [label = ‘要挟’] 魏 -> 撒 [label = ‘朋友’] 魏 -> 鸥 [label = ‘情侣’] 鬼 -> 甄 [label = ‘养父女’] 撒 -> 鬼 [label = ‘父女’] 甄 -> 魏 [label = ‘要挟’] }")

# 第二季05案：周五见


<details close>
<summary> 视频链接 </summary>  

* [明星大侦探第二季05案：周五见](https://www.mgtv.com/b/309556/3838070.html?fpa=se)

</details>

王嘉尔
: 侦探

王鸥 (凶手)
: 记者

<details close>
<summary> 为母报仇 </summary>  

1. 郝是王鸥的亲姐姐
1. 蹲守甄的住宿，抢独家新闻
1. 甄导致郝息影
1. 21:30 一到碰到白就走，打算去杀甄
1. 刀是郝留下的
1. 是熊猫血，郝是亲生母亲
1. 白敲门，因此**疑似**失手捂死了甄
1. 撒谎，郝是母亲不是亲姐姐

</details>

乔振宇
: 学生

<details close>
<summary> 为父报仇，为陷害报仇，放火 </summary>  

1. 21:40 送外卖，放火
1. 郝、甄、白的剧组，有人抽烟，把贾烧伤，因此乔被开除了
1. 但是发现甄在现场抽烟
1. 乔知道甄抽烟的习惯，假借甄抽烟的习惯，误以为自杀
1. 床下有打火机
1. 有且一份火锅燃料
    1. 20:20 开始吃火锅
    1. 20:50 小票时间
1. 乔单方面有DNA鉴定，知道贾天王是亲生父亲

</details>

白敬亭
: 甄的助理

<details close>
<summary> 敲门没人就走了 </summary>  

1. 欠钱
1. 劳动合同，两年三百万
1. 酒和火在住处
1. 郝给白机会演戏，但是郝自杀之后就不了了之

</details>

何炅
: 经纪公司老板

<details close>
<summary> 拿走甄的电脑，来查询甄为什么知道何美女的下落 </summary>  

1. 20:00 打电话
1. 20:30-21:20 讨论危机公关
1. 甄是前旗下艺人
1. 甄家的酒和何家的酒一致
1. 何黑郝，然后郝自杀了
1. 何黑甄，因为甄酒跳槽了
1. 甄的住宿是何名下的，前男女
1. 甄窃听何，知道何美女在美国疗养

</details>

撒贝宁
: 明星

<details close>
<summary> 最后一个到了案发现场 </summary>  

1. 21:30-21:50 危机公关，火势猛烈就离开
1. 贾天王是亲生父亲，继承贾天王的遗产，因为血型一致
1. 被甄炒作，但是喜欢何美女
1. 假扮外卖员

</details>


```
library(DiagrammeR)
grViz(
digraph dot {

graph [layout = dot]

node [shape = egg,
      style = filled,
      color = darkgreen,
      fontsize = 12,
      fontname = Helvetica,
      fontcolor = white,
      # label = ''
]

甄 -> 白 [label = '老板']
鸥 -> 白 [label = '粉丝']
甄 -> 何 [label = '前下属\n前男女']
甄 -> 撒 [label = '追求']
鸥 -> 甄 [label = '记者']
乔 -> 甄 [label = '送外卖\n放火人已死']
撒 -> 何美女 [label = '追求']
何美女 -> 何 [label = '姐弟']
甄 -> 何美女 [label = '了解消息']
贾天王 -> 撒 [label = '亲生父亲']
贾天王 -> 乔 [label = '亲生父亲']
贾天王 -> 鸥 [label = '疑似亲生父亲']
贾天王 -> 郝 [label = '疑似男女']
贾天王 -> 乔乔 [label = '爱慕']
乔乔 -> 乔 [label = '亲生母亲']
郝 -> 鸥 [label = '亲生母亲']
郝 -> 白 [label = '提携']
甄 -> 贾天王 [label = '疑似谋杀']
}")

第二季09案：绝望的主妇

<details close>

<summary>

视频链接

</summary>

</details>
何炅
侦探
王嘉尔
健身教练
<details close>

<summary>

…

</summary>
  1. 发现甄上吊，放下来
  2. 玫瑰花打翻
  3. 10点没走
  4. 立刻分手，就和贾在一起并同居
</details>
苏有朋 (凶手)
前台
<details close>

<summary>

接到任务杀甄

</summary>
  1. 甄投诉苏
  2. 苏母亲恶性肿瘤
  3. 爱赌博
  4. 抢钱后，被机车男抢走
</details>
杨蓉
瑜伽教练
<details close>

<summary>

…

</summary>
  1. 甄是杨的学生
  2. 22:00 下课 22:30 洗澡 22:40 下班，甄和杨交谈
  3. 十点下班后，不寻常。
</details>
撒贝宁
沙拉店老板
<details close>

<summary>

…

</summary>
  1. 关系复杂
  2. 10:45 王在修车
</details>
白敬亭
保险经纪
<details close>

<summary>

…

</summary>
  1. 甄是他的前客户
  2. 11点来过，发现甄已经吊死了，找甄
  3. 白经过甄家，有麻绳、家里拍的照片
  4. 被辞退
  5. 甄的手机在家，白去甄家，拿了手机，才去健身房
</details>

09:30 发现甄在健身房瑜伽室内死亡

```{r echo=FALSE, message=FALSE, warning=FALSE} library(DiagrammeR) grViz( digraph dot {

graph [layout = dot]

node [shape = egg, style = filled, color = black, fontsize = 12, fontname = Helvetica, fontcolor = white, # label = ‘’]

bai [label = ‘白’] wang [label = ‘王’] sa [label = ‘撒’] su [label = ‘苏’] yang [label = ‘杨’]

node [shape = egg, style = filled, color = darkgreen, fontsize = 12, fontname = Helvetica, fontcolor = white, # label = ‘’]

yang -> wang [label = ‘前男女’] yang -> 贾 [label = ‘男女’] 贾继父 -> 贾 [label = ‘继父’] 贾 -> 贾继父 [label = ‘谋杀骗保’] 甄 -> 贾继父 [label = ‘谋杀骗保’] 贾 -> bai [label = ‘买保险’] 贾 -> 甄丈夫 [label = ‘谋杀’] su -> 贾 [label = ‘朋友\n被抢\n疑谋杀’] 甄 -> bai [label = ‘买保险’] bai -> 甄 [label = ‘调查’] sa -> 甄丈夫 [label = ‘兄弟’] sa -> 甄 [label = ‘跟踪’] 甄 -> 甄丈夫 [label = ‘谋杀骗保’] 甄 -> su [label = ‘投诉’] 甄 -> yang [label = ‘学生’] 甄 -> sa [label = ‘男女’] 甄 -> 贾 [label = ‘跟踪\n谋杀’] wang -> 贾 [label = ‘情敌\n朋友’]

}")

# 第二季02案：唐人街传奇

<details close>
<summary> 视频链接 </summary>  

* [明星大侦探第二季02案：唐人街传奇](https://www.mgtv.com/b/309556/3802828.html?cxid=90f0zbamf)

</details>

撒贝宁
: 侦探

陈意涵
: 按摩店老板

<details close>
<summary> ... </summary>  

1. 四大家族的人，习武
1. 右手刀伤
1. 陈爷爷是咏春

</details>

何炅 (凶手)
: 医馆老板

<details close>
<summary> ... </summary>  

1. 认识王的爷爷
1. 认识陈
1. 何爷爷是太极

</details>

白敬亭
: 厨子

<details close>
<summary> ... </summary>  

1. 跟死者通话记录
1. 爷爷练八极拳

</details>

王嘉尔
: 游客

<details close>
<summary> ... </summary>  

1. 王爷爷是八仙剑
1. 甄爷爷杀死王爷爷，因为王爷爷向日本人投降

</details>

大张伟
: 水果店老板

<details close>
<summary> ... </summary>  

1. 

</details>


```
library(DiagrammeR)
grViz(
digraph dot {

graph [layout = dot]


node [shape = egg,
      style = filled,
      color = black,
      fontsize = 12,
      fontname = Helvetica,
      fontcolor = white,
      # label = ''
]

bai [label = '白']
wang [label = '王']
he [label = '何']
chen [label = '陈']
da [label = '大']


node [shape = egg,
      style = filled,
      color = darkgreen,
      fontsize = 12,
      fontname = Helvetica,
      fontcolor = white,
      # label = ''
]

chen -> 陈爷爷 [label='孙']
wang -> 王爷爷 [label='孙']
甄 -> 甄爷爷 [label='孙']
he -> 何爷爷 [label='孙']

甄爷爷 -> 王爷爷 [label='杀死']

da -> 甄 [label='拜师']
甄 -> bai [label='坑\n拜师']
甄 -> chen [label='致残\n偷钥匙']

bai -> 甄 [label='废武功']
wang -> 甄 [label='斗殴']
da -> bai [label='偷剑谱']
甄 -> he [label = '偷剑']
he -> chen [label = '暗恋']

}")

第一季07案：请回答1998

<details close>

<summary>

视频链接

</summary>

</details>
何炅
侦探
王鸥
音像店老板
<details close>

<summary>

…

</summary>

</details>
鬼鬼
继女
<details close>

<summary>

…

</summary>

</details>
白敬亭
状元
<details close>

<summary>

…

</summary>

</details>
蔡康永
书店老板
<details close>

<summary>

…

</summary>

</details>
撒贝宁 (凶手)
混混
<details close>

<summary>

…

</summary>
  1. 游戏厅内打工
</details>

```{r echo=FALSE, message=FALSE, warning=FALSE} library(DiagrammeR) grViz( digraph dot {

graph [layout = dot]

node [shape = egg, style = filled, color = black, fontsize = 12, fontname = Helvetica, fontcolor = white, # label = ‘’]

bai [label = ‘白’] ou [label = ‘鸥’] sa [label = ‘撒’] gu [label = ‘鬼’] cai [label = ‘蔡’]

node [shape = egg, style = filled, color = darkgreen, fontsize = 12, fontname = Helvetica, fontcolor = white, # label = ‘’]

gu -> 甄 [label = ‘继女\n家暴\n录取’] cai -> gu [label = ‘追寻真相’] sa -> 甄 [label = ‘打工\n被克扣’] bai -> ou [label = ‘母女’] cai -> 甄 [label = ‘熟悉’] gu -> sa [label = ‘男女’] 甄 -> ou [label = ‘骚扰’] bai -> 甄 [label = ‘欠债\n怀恨’]

}")

# 第三季10期：仙梦昆仑




<details close>
<summary> 视频链接 </summary>  

* [明星大侦探第三季10期：仙梦昆仑（上）](https://www.mgtv.com/b/317663/4235469.html)
* [明星大侦探第三季10期：仙梦昆仑（下）](https://www.mgtv.com/b/317663/4235470.html)

</details>

杨蓉

杨蓉
: 侦探

乔振宇
: 

<details close>
<summary> ... </summary>  
</details>

鬼鬼
: 昆仑派小师妹

<details close>
<summary> ... </summary>  
</details>

白敬亭
: 昆仑派师侄

<details close>
<summary> ... </summary>  
</details>

何炅 (凶手)
: 昆仑派大师兄

<details close>
<summary> ... </summary>  
</details>

撒贝宁
: 

<details close>
<summary> ... </summary>  
</details>

```
library(tidyverse)
library(data.table)
log_data <- 
'time name event
0000 何 找鬼
0230 何 找鬼
0000 鬼 找何
0230 鬼 找何
0600 何 黑影
0600 鬼 黑影
0500 白 和甄切磋
0600 白 睡醒
2300 撒 和乔聊天
0530 撒 睡醒
2300 乔 和撒聊天
0300 乔 睡觉
0300 撒 睡觉
0540 乔 睡醒
0540 乔 潜入甄房间
1800 何 潜入甄房间
1815 撒 潜入甄房间 
1830 鬼 潜入甄房间
2315 鬼 给甄下药
0500 鬼 检查白和甄
'

{r} library(glue) library(lubridate) log_data %>% fread(colClasses = list(character = 1)) %>% # mutate(event = row_number()) %>% # 看来中文显示出现了问题。 # theme(text=element_text(family="STKaiti")) 没有指定元素是中文。 # geom_text(family="STKaiti") + 另外指定 mutate(time = case_when( str_sub(time,1,2) < 12 ~ glue('2018-01-02 {str_sub(time,1,2)}:{str_sub(time,3,4)}:00') ,str_sub(time,1,2) > 12 ~ glue('2018-01-01 {str_sub(time,1,2)}:{str_sub(time,3,4)}:00') ) ) %>% mutate(time = ymd_hms(time)) %>% ggplot(aes(x=time,y=name,label=event)) + geom_text(family="STKaiti") + theme_minimal() + theme(text=element_text(family="STKaiti"))

watch to: 26:49

```{r echo=FALSE, message=FALSE, warning=FALSE} library(DiagrammeR) grViz( digraph dot {

graph [layout = dot]

node [shape = egg, style = filled, color = black, fontsize = 12, fontname = Helvetica, fontcolor = white, # label = ‘’]

bai [label = ‘白’] qiao [label = ‘乔’] sa [label = ‘撒’] gu [label = ‘鬼’] he [label = ‘何’]

node [shape = egg, style = filled, color = darkgreen, fontsize = 12, fontname = Helvetica, fontcolor = white, # label = ‘’]

sa -> qiao [label = ‘好友’] 乌皇 -> qiao [label = ‘师父’] 甄 -> qiao [label = ‘偷盗\n徒弟’] gu -> he [label = ‘师兄妹\n男女\n转移元神’] bai -> he [label = ‘徒弟’] bai -> 甄 [label = ‘下战书\n杀妻之仇\n被陷害’] 甄 -> 小谷 [label = ‘谋杀’] bai -> gu [label = ‘师侄’] gu -> 甄 [label = ‘下药\n想灭口’] bai -> 小谷 [label = ‘男女’] 小谷 -> he [label = ‘师妹’] 小谷 -> gu [label = ‘师妹’] bai -> he [label = ‘师父’] bai -> gu [label = ‘师父’] 甄 -> sa [label = ‘血洗蓬莱’]

甄 -> gu [label = ‘仙侠大会’] qiao -> 蓬莱公主 [label = ‘男女\n印鉴’] gu -> 蓬莱公主 [label = ‘女儿’] sa -> 蓬莱公主 [label = ‘兄妹’] sa -> gu [label = ‘舅’] 甄 -> gu [label = ‘下战书\n取元神’] 乌皇 -> gu [label = ‘有元神’]

}")

# 第四季02期：逃出无名岛II



<details close>
<summary> 视频链接 </summary>  

* [明星大侦探第四季02期：逃出无名岛Ⅱ（上）](https://www.mgtv.com/b/325963/4709240.html)
* [明星大侦探第四季02期：逃出无名岛Ⅱ（下）](https://www.mgtv.com/b/325963/4709242.html)

</details>

```
library(tidyverse)
library(data.table)
log_data <- 
'time name event
2100 白 回房间，鸥的电话
2100 刘 回房间
2215 白 去鸥房间
2100 何 回房间
2230 何 出门
2100 张 回房间
2200 张 找鸥不在
2150 撒 和鸥聊天
2300 撒 送回房间
0000 鸥 看到被绑架
2315 白 找鸥不在
'

{r} library(glue) library(lubridate) log_data %>% fread(colClasses = list(character = 1)) %>% # mutate(event = row_number()) %>% # 看来中文显示出现了问题。 # theme(text=element_text(family="STKaiti")) 没有指定元素是中文。 # geom_text(family="STKaiti") + 另外指定 mutate(time = case_when( str_sub(time,1,2) < 12 ~ glue('2018-01-02 {str_sub(time,1,2)}:{str_sub(time,3,4)}:00') ,str_sub(time,1,2) > 12 ~ glue('2018-01-01 {str_sub(time,1,2)}:{str_sub(time,3,4)}:00') ) ) %>% mutate(time = ymd_hms(time)) %>% ggplot(aes(x=time,y=name,label=event)) + geom_text(family="STKaiti") + theme_minimal() + theme(text=element_text(family="STKaiti"))

watch to: 26:49

```{r echo=FALSE, message=FALSE, warning=FALSE} library(DiagrammeR) grViz( digraph dot {

graph [layout = dot]

node [shape = egg, style = filled, color = black, fontsize = 12, fontname = Helvetica, fontcolor = white, # label = ‘’]

bai [label = ‘白’] wei [label = ‘魏’] liu [label = ‘刘’] zhang [label = ‘张’] he [label = ‘何’]

node [shape = egg, style = filled, color = darkgreen, fontsize = 12, fontname = Helvetica, fontcolor = white, # label = ‘’]

bai -> 鸥 [label = ‘为女友报仇’] 甄 -> 天真 [label = ‘致死’] liu -> 鸥 [label = ‘为兄报仇’] bai -> 白日光 [label = ‘孙子’] 鸥 -> 天真 [label = ‘妹妹’] he -> {wei,bai,zhang,liu} [label = ‘拉伙’]

}")

# 第三季10期：仙梦昆仑

<details close>
<summary> 视频链接 </summary>  

* [明星大侦探第四季03期：神秘来电（上）](https://www.mgtv.com/b/325963/4733222.html)
* [明星大侦探第四季03期：神秘来电（下）](https://www.mgtv.com/b/325963/4733223.html)

</details>


```
library(tidyverse)
library(data.table)
log_data <- 
'time name event
1250 鬼 店里
1300 鬼 邓和贾来，接电话
1300 贾 来书店
1300 邓 来书店
1200 撒 到书店，跟店长聊
1230 撒 撒太太和何聊天
1240 撒 书店看书
1300 撒 听到甄死了
1330 鸥 到书店，喝咖啡
1230 何 到书店，去仓库
'

{r} library(glue) library(lubridate) log_data %>% fread(colClasses = list(character = 1)) %>% # mutate(event = row_number()) %>% # 看来中文显示出现了问题。 # theme(text=element_text(family="STKaiti")) 没有指定元素是中文。 # geom_text(family="STKaiti") + 另外指定 mutate(time = case_when( str_sub(time,1,2) < 12 ~ glue('2018-01-02 {str_sub(time,1,2)}:{str_sub(time,3,4)}:00') ,str_sub(time,1,2) > 12 ~ glue('2018-01-01 {str_sub(time,1,2)}:{str_sub(time,3,4)}:00') ) ) %>% mutate(time = ymd_hms(time)) %>% ggplot(aes(x=time,y=name,label=event)) + geom_text(family="STKaiti") + theme_minimal() + theme(text=element_text(family="STKaiti"))

```{r echo=FALSE, message=FALSE, warning=FALSE} library(DiagrammeR) grViz( digraph dot {

graph [layout = dot]

node [shape = egg, style = filled, color = black, fontsize = 12, fontname = Helvetica, fontcolor = white, # label = ‘’]

sa [label = ‘撒’] gu [label = ‘鬼’] he [label = ‘何’] ou [label = ‘王’] deng [label = ‘邓’] jia [label = ‘贾’]

node [shape = egg, style = filled, color = darkgreen, fontsize = 12, fontname = Helvetica, fontcolor = white, # label = ‘’]

jia -> 贾爸爸 [label = ‘父子’] 贾爸爸 -> 甄店长 [label = ‘接店’] sa -> he [label = ‘朋友’] sa -> ou [label = ‘男女’] deng -> 甄小于 [label = ‘同学\n下跪’] 甄小于 -> jia [label = ‘霸凌’] {jia,deng} -> gu [label = ‘爱慕’] {甄加,甄减,甄乘,甄除} -> sa [label = ‘质疑’] he -> {甄加,甄减,甄乘,甄除} [label = ‘谋杀’] jia -> deng [label = ‘朋友\n情敌’] 甄小于 -> gu [label = ‘心脏移植’] gu -> 甄小于 [label = ‘兄妹’] gu -> ou [label = ‘同一个人’] }") ```

第四季11期：头号玩家

  1. 照片体现了凶手是二号，体现了撒就是四号，因此在撒和张之间，应该是张。
  2. 但是在第二轮集中讨论时，我发现大家会又讨论三号，因此导演痕迹明显。

"影视 系列导航

1 "影视：Margin Call 观后感 2018-01-09
2 "影视：致命武器第二季 周三更新 2018-01-13
3 "影视：arbitrage 观后感 2018-01-14
4 "影视：legal high 第一季 视频笔记 2018-01-15
5 "影视：莫斯科行动 视频笔记 2018-01-15
6 "影视：霹雳爸妈 视频笔记 2018-01-15
7 "影视：Fringe 视频笔记 2018-01-27
8 "影视：American Crime Story S02 视频笔记 2018-01-29
9 "影视：Three Billboards Outside Ebbing, Missouri 视频笔记 2018-02-05