data <- read.csv("/Users/jinvy/Downloads/DC_data.csv")
head(data)
##   page_id                     name                            urlslug
## 1    1840 Arthur Light (New Earth) \\/wiki\\/Arthur_Light_(New_Earth)
## 2    2755       DeSaad (New Earth)       \\/wiki\\/DeSaad_(New_Earth)
## 3    1693  Jack Knight (New Earth)  \\/wiki\\/Jack_Knight_(New_Earth)
## 4    7230    Ohiyesa I (New Earth)    \\/wiki\\/Ohiyesa_I_(New_Earth)
## 5   11871 Daniel Leong (New Earth) \\/wiki\\/Daniel_Leong_(New_Earth)
## 6    1800   Lee Travis (New Earth)   \\/wiki\\/Lee_Travis_(New_Earth)
##                ID           ALIGN        EYE       HAIR             SEX
## 1 Public Identity  Bad Characters Black Eyes Black Hair Male Characters
## 2 Public Identity  Bad Characters Black Eyes Black Hair Male Characters
## 3 Public Identity Good Characters Black Eyes Black Hair Male Characters
## 4 Public Identity Good Characters Black Eyes Black Hair Male Characters
## 5 Secret Identity Good Characters Black Eyes Black Hair Male Characters
## 6 Secret Identity Good Characters Black Eyes Black Hair Male Characters
##                 ALIVE APPEARANCES FIRST.APPEARANCE YEAR
## 1 Deceased Characters         142       1962, June 1962
## 2   Living Characters         158        1971, May 1971
## 3   Living Characters         122  1994, September 1994
## 4   Living Characters         109  1949, September 1949
## 5 Deceased Characters         164   1942, February 1942
## 6 Deceased Characters         139    1938, October 1938
str(data)
## 'data.frame':    213 obs. of  12 variables:
##  $ page_id         : int  1840 2755 1693 7230 11871 1800 31787 7288 2612 38844 ...
##  $ name            : chr  "Arthur Light (New Earth)" "DeSaad (New Earth)" "Jack Knight (New Earth)" "Ohiyesa I (New Earth)" ...
##  $ urlslug         : chr  "\\/wiki\\/Arthur_Light_(New_Earth)" "\\/wiki\\/DeSaad_(New_Earth)" "\\/wiki\\/Jack_Knight_(New_Earth)" "\\/wiki\\/Ohiyesa_I_(New_Earth)" ...
##  $ ID              : chr  "Public Identity" "Public Identity" "Public Identity" "Public Identity" ...
##  $ ALIGN           : chr  "Bad Characters" "Bad Characters" "Good Characters" "Good Characters" ...
##  $ EYE             : chr  "Black Eyes" "Black Eyes" "Black Eyes" "Black Eyes" ...
##  $ HAIR            : chr  "Black Hair" "Black Hair" "Black Hair" "Black Hair" ...
##  $ SEX             : chr  "Male Characters" "Male Characters" "Male Characters" "Male Characters" ...
##  $ ALIVE           : chr  "Deceased Characters" "Living Characters" "Living Characters" "Living Characters" ...
##  $ APPEARANCES     : int  142 158 122 109 164 139 158 199 166 113 ...
##  $ FIRST.APPEARANCE: chr  "1962, June" "1971, May" "1994, September" "1949, September" ...
##  $ YEAR            : int  1962 1971 1994 1949 1942 1938 1961 1940 1994 1987 ...
summary(data)
##     page_id           name             urlslug               ID           
##  Min.   :  1380   Length:213         Length:213         Length:213        
##  1st Qu.:  1611   Class :character   Class :character   Class :character  
##  Median :  1904   Mode  :character   Mode  :character   Mode  :character  
##  Mean   : 14290                                                           
##  3rd Qu.: 11867                                                           
##  Max.   :403631                                                           
##     ALIGN               EYE                HAIR               SEX           
##  Length:213         Length:213         Length:213         Length:213        
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
##                                                                             
##     ALIVE            APPEARANCES     FIRST.APPEARANCE        YEAR     
##  Length:213         Min.   :  98.0   Length:213         Min.   :1937  
##  Class :character   1st Qu.: 126.0   Class :character   1st Qu.:1955  
##  Mode  :character   Median : 174.0   Mode  :character   Median :1971  
##                     Mean   : 294.1                      Mean   :1970  
##                     3rd Qu.: 286.0                      3rd Qu.:1987  
##                     Max.   :3093.0                      Max.   :2006
table_counts <- table(data$ALIGN, data$SEX)

table_counts
##                     
##                      Female Characters Male Characters
##   Bad Characters                     5              17
##   Good Characters                   63             105
##   Neutral Characters                 5              18
table_proportions <- prop.table(table_counts)

table_proportions
##                     
##                      Female Characters Male Characters
##   Bad Characters            0.02347418      0.07981221
##   Good Characters           0.29577465      0.49295775
##   Neutral Characters        0.02347418      0.08450704
table_percent <- round(table_proportions * 100, 2)

table_percent
##                     
##                      Female Characters Male Characters
##   Bad Characters                  2.35            7.98
##   Good Characters                29.58           49.30
##   Neutral Characters              2.35            8.45

There is a higher number of male characters across all alignment categories (Good, Bad, and Neutral), which suggests a potential gender imbalance in the representation of DC characters.

Good Characters are significantly more prevalent than Bad or Neutral Characters. This could indicate a tendency in DC comics to favor hero archetypes over anti-heroes or morally ambiguous characters.