0501.R

#0501課堂作業
#請讀取superheroes.RData
load("superheroes.RData")
#一、請將Alignment的資料型態轉換為facor， levels 依序為"good", "neutral", "bad"
X <- superheroes
str(X$Alignment)

##  chr [1:428] "good" "good" "good" "good" "bad" "bad" "good" "good" "good" ...

X$Alignment<- factor(X$Alignment, 
                  levels= c("good","neutral","bad"),
                  labels = c("好", "普通", "不好"))
#二、請計算Alignment裡的good", "neutral"和"bad"的佔比為何？
str(X$Alignment)

##  Factor w/ 3 levels "好","普通","不好": 1 1 1 1 3 3 1 1 1 3 ...

summary(X$Alignment)

##   好 普通 不好 
##  296   11  121

#三、請畫出Alignment的長條圖和圓餅圖。
g <- table(X$Alignment)
g

## 
##   好 普通 不好 
##  296   11  121

p.g <- proportions(g)
p.g <- p.g*100
p.g <- round(p.g, 2)#四捨五入
p.g

## 
##    好  普通  不好 
## 69.16  2.57 28.27

pie(p.g, 
    col = c(7:9),
    main = "超級英雄"
    )

barplot(p.g,
        col = c(7:9),
        main= "超級英雄",
        xlab= "陣營",
        ylab= "百分比")

#四、請畫出speed的直方圖與盒狀圖。
boxplot(X$Speed, main = "速度盒狀圖")

hist(X$Speed, main = "速度直方圖")

#五、請計算Strength與Durability的相關係數，並畫出散佈圖。
cor(X$Strength, X$Durability)

## [1] 0.6843862

plot(X$Strength,X$Durability,
     main= "Strength/Durability",
     xlab="Strength",
     ylab= "Durability",sub = "by yihong") 

#六、請問好人們和壞人們誰比較強？