{r}getwd()
data <- read.csv("/Users/eunseokim/Desktop/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 1938str(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. :2006table_counts <- table(data$ALIGN, data$SEX)
table_counts##
## Female Characters Male Characters
## Bad Characters 5 17
## Good Characters 63 105
## Neutral Characters 5 18table_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.08450704table_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