复仇者联盟4终结篇：10年回忆与英雄情结的完美收官

《复仇者联盟 4》上映，3小时的精彩剧情让人回味10年的经典。作为系列的最终篇章，它的成功离不开之前作品构建的世界观。接下来，我们通过数据分析，来揭秘漫威英雄们最常使用的词汇背后的故事。

分析背景与目标

为了向崇高的复仇者系列表示敬意，我们采用了R语言进行编程，对漫威英雄常用的词汇进行了研究。我们选取了《复仇者联盟》、《复仇者联盟：奥创纪元》和《美国队长：内战》这三部作品中英雄角色交叉频繁的剧本。这样做是为了通过这些词汇来深入分析英雄们的个性特征。

钢铁侠与美国队长的差异

电影中，钢铁侠和美国队长均担任领导者。不过，他们的追求有着显著的不同。他们既是亲密的朋友，也是彼此的竞争对手。这或许也是美国队长总是直呼钢铁侠名字的缘由。钢铁侠更看重运用科技与智慧来守护，而美国队长则更重视维护正义和坚守传统道德。

黑豹的常用词汇

分析表明，黑豹常提及父亲、朋友和国王等词汇，其言辞中带有几分少年气盛。这种现象与他所在的国家环境以及承担的角色紧密相连。在黑豹看来，父亲象征着家族的延续和使命的传承，朋友则是共同奋斗的伙伴，而国王则代表着他的地位和肩负的重任。

蜘蛛侠的幼稚表达

library(dplyr)
library(grid)
library(gridExtra)
library(ggplot2)
library(reshape2)
library(cowplot)
library(jpeg)
library(extrafont)

作为团队中的小成员，蜘蛛侠的台词显得有些稚嫩。他经常说“嗨”、“呃”、“嗯”这类词，这些词汇与他十几岁的年纪相吻合。在众多英雄中，他通过这种方式展现自己的活泼，给电影增添了青春和活力。

rm(list = ls())

dir_images <- "C:\\Users\\Matt\\Documents\\R\\Avengers"
setwd(dir_images)

绿巨人与鹰眼对黑寡妇的关注

windowsFonts(Franklin=windowsFont("Franklin Gothic Demi"))

可视化分析表明，绿巨人及鹰眼常提及黑寡妇。在并肩作战的过程中，黑寡妇与他们共度难关，感情深厚。她既勇敢又聪明，作为团队的关键角色，她在调和与战斗中发挥着重要作用，值得大家重视。

character_names <- c("black_panther","black_widow","bucky","captain_america",
                    "falcon","hawkeye","hulk","iron_man",
                    "loki","nick_fury","rhodey","scarlet_witch",
                    "spiderman","thor","ultron","vision")
image_filenames <- paste0(character_names, ".jpg")

all_images <- lapply(image_filenames, read_image)

幻视与绯红女巫的情感世界

names(all_images) <- character_names

# clear the plot window
grid.newpage()
# draw to the plot window
grid.draw(rasterGrob(all_images[['vision']]))

幻视和绯红女巫聊天的内容相同，都喜欢提及“恐惧”和“担忧”等话题。幻视作为一位超级人工智能，能够预知未来，对未来的种种忧虑让他感到烦恼。而绯红女巫，或许是因为她的能力以及过去的经历，使得她和幻视在情感上有了共同的感受。

capitalize <- Vectorize(function(string){
  substr(string,1,1) <- toupper(substr(string,1,1))
  return(string)
})
proper_noun_list <- c("clint","hydra","steve","tony",
                      "sam","stark","strucker","nat","natasha",
                      "hulk","tesseract", "vision",
                      "loki","avengers","rogers", "cap", "hill")
# Run the capitalization function
word_data <- word_data %>%
  mutate(word = ifelse(word %in% proper_noun_list, capitalize(word), word)) %>%
  mutate(word = ifelse(word == "jarvis", "JARVIS", word))

漫威通过众多生动英雄与引人入胜的故事，赢得了全世界观众的喜爱。大家在学习了这些英雄词汇后，是否对他们的精彩表演更加怀念？来点个赞，把这篇文章分享给你的漫威好友，同时，不妨留下你的评论，分享一下你心中最难忘的英雄台词！

unique(word_data$Speaker)
##  [1] "Black Panther"   "Black Widow"     "Bucky"
##  [4] "Captain America" "Falcon"          "Hawkeye"
##  [7] "Hulk"            "Iron Man"        "Loki"
## [10] "Nick Fury"       "Rhodey"          "Scarlet Witch"
## [13] "Spiderman"       "Thor"            "Ultron"
## [16] "Vision"