The Real Ladybug and Chat Senior

Throughout the seasons of Miraculous: Tales of Ladybug & Cat Noir we get to see many friends and family members of the main protagonist, Marinette Dupain-Cheng, get akumatized. While a lot of them and even strangers end up getting akumatized more than once, the main cause of those akumatizations may shock you. Our findings led us to the root cause of most of the negative emotions in Paris stemming from Social-issues rather than a single person. Though, our runner-ups of Gabriel and Marinette herself make for some strong contenders.

library(ggnetwork)
## Loading required package: ggplot2
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(sna)
## Loading required package: statnet.common
## 
## Attaching package: 'statnet.common'
## The following objects are masked from 'package:base':
## 
##     attr, order
## Loading required package: network
## 
## 'network' 1.19.0 (2024-12-08), part of the Statnet Project
## * 'news(package="network")' for changes since last version
## * 'citation("network")' for citation information
## * 'https://statnet.org' for help, support, and other information
## sna: Tools for Social Network Analysis
## Version 2.8 created on 2024-09-07.
## copyright (c) 2005, Carter T. Butts, University of California-Irvine
##  For citation information, type citation("sna").
##  Type help(package="sna") to get started.
library(tidyr)
library(ggplot2)
###############################
library(readr)
Miraculous_My_Beloved_Sheet1 <- read_csv("Miraculous My Beloved - Sheet1.csv")
## Rows: 157 Columns: 8
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (6): Title, Akuma-cause, Akuma-tee, Lucky Charm, Written Out Cause, Notes
## dbl (2): Season, Episode
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
###############################
bug_net<-data.frame(SOURCE=Miraculous_My_Beloved_Sheet1$"Akuma-cause", TARGET = Miraculous_My_Beloved_Sheet1$"Akuma-tee")


all_names <- c(bug_net$SOURCE)
all_names <- all_names[all_names != "N/A"]
name_counts <- table(all_names)
result_df <- as.data.frame(name_counts)
colnames(result_df) <- c("name", "count")

akumakazies<-result_df %>% 
  filter("Akuma-cause" != "N/A")


################

filtered_df <- subset(result_df, count > 3)

ggplot(filtered_df, aes(x = reorder(name, -count), y = count)) +
  geom_bar(stat = "identity", fill = "red2") +
  labs(title = "Top ranking Akuma-causers",
       x = "Name",
       y = "Akuma-tee Count") +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

Network of Frenchies

Relationships and ties to the citizens of Beaugette Town,

(story network)

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.