0503.R

#0503課堂作業

#請讀取superheroes.RData
load(file = "superheroes.RData")
#一、請將Alignment的資料型態轉換為facor， levels 依序為"good", "neutral", "C"
x<- superheroes
str(x$Alignment)

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

summary(x$Alignment)

##    Length     Class      Mode 
##       428 character character

x$Alignment2 <- factor(x$Alignment, 
                levels= c("good", "neutral","bad"), 
                labels = c("good", "neutral","bad"))

str(x$Alignment2)

##  Factor w/ 3 levels "good","neutral",..: 1 1 1 1 3 3 1 1 1 3 ...

summary(x$Alignment2)

##    good neutral     bad 
##     296      11     121

#二、請計算Alignment裡的good", "neutral"和"bad"的佔比為何？
str(x$Alignment2)

##  Factor w/ 3 levels "good","neutral",..: 1 1 1 1 3 3 1 1 1 3 ...

summary(x$Alignment2)

##    good neutral     bad 
##     296      11     121

#三、請畫出Alignment的長條圖和圓餅圖。
#長條圖
g <- table(x$Alignment2)
p.g <- proportions(g)
p.g <- p.g*100
p.g <- round(p.g, 2)#四捨五入
p.g

## 
##    good neutral     bad 
##   69.16    2.57   28.27

barplot(p.g,
        col = c(15:20),
        main = "Alignment",
        xlab = "數值",
        ylab = "百分比")

#圓餅圖
p.g

## 
##    good neutral     bad 
##   69.16    2.57   28.27

pie_category <- names(c)
pie_category

## NULL

pie_label <- paste(pie_category,p.g ,"%", sep = "")
pie_label

## [1] "69.16%" "2.57%"  "28.27%"

pie(p.g, 
    labels =pie_category , 
    col = c(15:20),
    main = "Alignment")

#四、請畫出speed的直方圖與盒狀圖。
par(mfrow = c(1,2)) 
boxplot(x$Speed, main = "速度")
hist(x$Speed, main = "速度")

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

## [1] 0.6843862

plot(x$Strength,x$Durability)

#六、請問好人們和壞人們誰比較強？
y1<- tapply(x$Total, x$Alignment,mean)
y1

##      bad     good  neutral 
## 335.0331 310.5946 355.3636

barplot(y1,main = "英雄比一比",col = c(1:100))