Final Dashboard

Corrplot

library(dplyr)

## Warning: package 'dplyr' was built under R version 4.6.1

## 
## 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(ggplot2)

## Warning: package 'ggplot2' was built under R version 4.6.1

df_dr_stone <- read.csv("C:\\Users\\bisho\\Documents\\R Programming\\dr_stone_character_analysis.csv")

df_dr_stone_numeric_col <- df_dr_stone %>%
                            select_if(is.numeric)

# ?is.numeric

cor(df_dr_stone_numeric_col)

##                     character_id intelligence_rating strength_rating
## character_id          1.00000000          -0.2016767     -0.09500122
## intelligence_rating  -0.20167674           1.0000000     -0.15218599
## strength_rating      -0.09500122          -0.1521860      1.00000000
## strategic_value      -0.40366755           0.8576823      0.05147780
##                     strategic_value
## character_id             -0.4036675
## intelligence_rating       0.8576823
## strength_rating           0.0514778
## strategic_value           1.0000000

library(corrplot)

## Warning: package 'corrplot' was built under R version 4.6.1

## corrplot 0.95 loaded

corrplot(cor(df_dr_stone_numeric_col), method = "color")

#Dark Blue Square (High Positive Correlation): Intelligence and strategic value are highly correlated (~0.86). In Dr. Stone, top-tier intellect (like Senku) directly drives strategic importance.

# Faint Orange/White Squares (Low/No Correlation): Physical strength shows a weak negative correlation with intelligence (~ -0.15) and almost no relationship with overall strategic value (~0.05).