#資料(data)、值(valus)、變數(varible)、物件(object)
# R 是以物件導向為主的程式語言, 在R中每一樣 “東西”, 都可視為 “物件”(object),
##一、R語言資料集合:
#1.向量(vector)
#2.清單(list)
#3.矩陣(matrix)
#4.陣列(array)
#5.因子(factor)
#6.資料框(dataframe)
# 資料分析基本上是 ：產生資料物件、命名、使用函式對物件運算操作
#建立向量資料====
id <- c("001", "002", "003","004","005")
name <- c("superman", "batman", "spiderman", "wolverine", "wonderwoman")
height <- c(190, 188, 178, 150, 183)
weight <- c(102, 95, 76, 88, 59)
gender <- c("Male", "Male","Male","Male","Female")
#二、R 的最基本物件是向量====
# 向量是由包含相同 “模式” 的元素 (element) 組成，
# 向量物件的基本元素的類型(basic mode) 主要分成
# 六大向量(vector)類型
# 1.數值向量（numeric）：包含 "integer", 整數型向量 與 "double", 倍精確度型向量。
# 2.整數向量（integer）
# 3.文字向量（character）
# 4.邏輯值向量（logical）
# 5.日期向量（Date）
# 6.日期時間向量（POSIXct）
#用class()查詢資料類型====
class(name)
## [1] "character"
class(height)
## [1] "numeric"
class(gender)
## [1] "character"
class(id)
## [1] "character"
class(height)
## [1] "numeric"
q <- height > 170
q
## [1] TRUE TRUE TRUE FALSE TRUE
class(q)
## [1] "logical"
#用[ ]取出向量資料
name
## [1] "superman" "batman" "spiderman" "wolverine" "wonderwoman"
name[2]
## [1] "batman"
name[3:5]
## [1] "spiderman" "wolverine" "wonderwoman"
name[-1]
## [1] "batman" "spiderman" "wolverine" "wonderwoman"
name[-c(1,3,5)]
## [1] "batman" "wolverine"
height
## [1] 190 188 178 150 183
height[height > 170]
## [1] 190 188 178 183
#將向量資料組合為data frame(數據框)
heroes <- data.frame(id,gender, height, weight, name)
#顯示在console區
heroes
## id gender height weight name
## 1 001 Male 190 102 superman
## 2 002 Male 188 95 batman
## 3 003 Male 178 76 spiderman
## 4 004 Male 150 88 wolverine
## 5 005 Female 183 59 wonderwoman
#看資料結構
##存成.RData格式====
save(heroes, file = "heroes.RData")#請填入"heroes.RData"
#清空物件，然後再讀取一次.RData
load("heroes.RData")
###用[ ] 取出data frame中的資料, 其中[ 列, 欄]====
heroes[2, ]#取出第二列資料
## id gender height weight name
## 2 002 Male 188 95 batman
heroes[,2]#取出第二欄資料
## [1] "Male" "Male" "Male" "Male" "Female"
heroes[5, ]##取出第五列
## id gender height weight name
## 5 005 Female 183 59 wonderwoman
heroes[3,4]##取出第三列第四欄資料
## [1] 76
#用欄位名稱取出某欄的資料，有兩種方法：
heroes[["name"]]
## [1] "superman" "batman" "spiderman" "wolverine" "wonderwoman"
##或是
heroes$name
## [1] "superman" "batman" "spiderman" "wolverine" "wonderwoman"
heroes$height
## [1] 190 188 178 150 183
mean(heroes$height)
## [1] 177.8
heroes[1:3,]
## id gender height weight name
## 1 001 Male 190 102 superman
## 2 002 Male 188 95 batman
## 3 003 Male 178 76 spiderman
heroes[heroes$name=="spiderman",]#找出名字為"spiderman"的所有資料
## id gender height weight name
## 3 003 Male 178 76 spiderman
heroes[heroes$name!="spiderman",]#找出除了"spiderman"以外的所有資料
## id gender height weight name
## 1 001 Male 190 102 superman
## 2 002 Male 188 95 batman
## 4 004 Male 150 88 wolverine
## 5 005 Female 183 59 wonderwoman
heroes[heroes$height>180,]#找出身高大於180的所有資料
## id gender height weight name
## 1 001 Male 190 102 superman
## 2 002 Male 188 95 batman
## 5 005 Female 183 59 wonderwoman
heroes$height
## [1] 190 188 178 150 183
sort(heroes$height)#排序由小到大
## [1] 150 178 183 188 190
sort(heroes$height, decreasing = T)#排序由大到小
## [1] 190 188 183 178 150
#畫圖一
barplot(sort(heroes$height, decreasing = T))
#畫圖二
barplot(sort(heroes$height, decreasing = T),#要畫圖的向量資料
main = "Heroes", #大標題
sub = "by Peter Liu", #次標題
names.arg = c("superman", "batman", "spiderman", "wonderwoman", "wolverine"), #資料名稱
xlab = "name", #x軸標籤
ylab = "height", #y軸標籤
col = c(1:5))#使用內建第6至10號顏色, colors(查詢R內建顏色)
# 亞洲四小龍(Four Asian Tigers)
# https://zh.wikipedia.org/wiki/%E4%BA%9A%E6%B4%B2%E5%9B%9B%E5%B0%8F%E9%BE%99
# 建立資料
nation <- c("Korea", "Taiwan", "Hong Kong", "Singapore")
growth <- c(0.36, 0.28,0.83,1.40)
data <- data.frame(nation = nation, growth = growth)
# 由大到小排序
sorted_data <- data[order(-data$growth), ]
# 畫長條圖
barplot(sorted_data$growth,
main = "亞洲四小龍經濟成長率", # 大標題
sub = "by ANNIEY", # 次標題
names.arg = sorted_data$nation, # 資料名稱
xlab = "Nation", # x 軸標籤
ylab = "Growth", # y 軸標籤
col = c("pink", "skyblue", "gray", "purple"), # 自定義顏色
ylim = c(0, max(sorted_data$growth) + 0.5) # 設定 y 軸範圍
)
###資料組合與切割====
# 建立資料框
df <- iris
# 檢視資料
# 查看完整資料
head(df)
## Sepal.Length Sepal.Width Petal.Length Petal.Width Species
## 1 5.1 3.5 1.4 0.2 setosa
## 2 4.9 3.0 1.4 0.2 setosa
## 3 4.7 3.2 1.3 0.2 setosa
## 4 4.6 3.1 1.5 0.2 setosa
## 5 5.0 3.6 1.4 0.2 setosa
## 6 5.4 3.9 1.7 0.4 setosa
# 查看資料結構
str(df)
## 'data.frame': 150 obs. of 5 variables:
## $ Sepal.Length: num 5.1 4.9 4.7 4.6 5 5.4 4.6 5 4.4 4.9 ...
## $ Sepal.Width : num 3.5 3 3.2 3.1 3.6 3.9 3.4 3.4 2.9 3.1 ...
## $ Petal.Length: num 1.4 1.4 1.3 1.5 1.4 1.7 1.4 1.5 1.4 1.5 ...
## $ Petal.Width : num 0.2 0.2 0.2 0.2 0.2 0.4 0.3 0.2 0.2 0.1 ...
## $ Species : Factor w/ 3 levels "setosa","versicolor",..: 1 1 1 1 1 1 1 1 1 1 ...
# 查看資料摘要
summary(df)
## Sepal.Length Sepal.Width Petal.Length Petal.Width
## Min. :4.300 Min. :2.000 Min. :1.000 Min. :0.100
## 1st Qu.:5.100 1st Qu.:2.800 1st Qu.:1.600 1st Qu.:0.300
## Median :5.800 Median :3.000 Median :4.350 Median :1.300
## Mean :5.843 Mean :3.057 Mean :3.758 Mean :1.199
## 3rd Qu.:6.400 3rd Qu.:3.300 3rd Qu.:5.100 3rd Qu.:1.800
## Max. :7.900 Max. :4.400 Max. :6.900 Max. :2.500
## Species
## setosa :50
## versicolor:50
## virginica :50
##
##
##
# 查看資料欄位名稱
names(df)
## [1] "Sepal.Length" "Sepal.Width" "Petal.Length" "Petal.Width" "Species"
# 查看第三欄，第1到10筆資料
df[1:10, 3]
## [1] 1.4 1.4 1.3 1.5 1.4 1.7 1.4 1.5 1.4 1.5
# 查看欄位名稱為(Species)的資料
df$Species
## [1] setosa setosa setosa setosa setosa setosa
## [7] setosa setosa setosa setosa setosa setosa
## [13] setosa setosa setosa setosa setosa setosa
## [19] setosa setosa setosa setosa setosa setosa
## [25] setosa setosa setosa setosa setosa setosa
## [31] setosa setosa setosa setosa setosa setosa
## [37] setosa setosa setosa setosa setosa setosa
## [43] setosa setosa setosa setosa setosa setosa
## [49] setosa setosa versicolor versicolor versicolor versicolor
## [55] versicolor versicolor versicolor versicolor versicolor versicolor
## [61] versicolor versicolor versicolor versicolor versicolor versicolor
## [67] versicolor versicolor versicolor versicolor versicolor versicolor
## [73] versicolor versicolor versicolor versicolor versicolor versicolor
## [79] versicolor versicolor versicolor versicolor versicolor versicolor
## [85] versicolor versicolor versicolor versicolor versicolor versicolor
## [91] versicolor versicolor versicolor versicolor versicolor versicolor
## [97] versicolor versicolor versicolor versicolor virginica virginica
## [103] virginica virginica virginica virginica virginica virginica
## [109] virginica virginica virginica virginica virginica virginica
## [115] virginica virginica virginica virginica virginica virginica
## [121] virginica virginica virginica virginica virginica virginica
## [127] virginica virginica virginica virginica virginica virginica
## [133] virginica virginica virginica virginica virginica virginica
## [139] virginica virginica virginica virginica virginica virginica
## [145] virginica virginica virginica virginica virginica virginica
## Levels: setosa versicolor virginica
# 修改欄位名稱
names(df) <- c("花萼長", "花萼寬", "花瓣長", "花瓣寬", "品種")
# 找出"花萼長"大於等於7的所有資料
df[df$花萼長 >= 7, ]
## 花萼長 花萼寬 花瓣長 花瓣寬 品種
## 51 7.0 3.2 4.7 1.4 versicolor
## 103 7.1 3.0 5.9 2.1 virginica
## 106 7.6 3.0 6.6 2.1 virginica
## 108 7.3 2.9 6.3 1.8 virginica
## 110 7.2 3.6 6.1 2.5 virginica
## 118 7.7 3.8 6.7 2.2 virginica
## 119 7.7 2.6 6.9 2.3 virginica
## 123 7.7 2.8 6.7 2.0 virginica
## 126 7.2 3.2 6.0 1.8 virginica
## 130 7.2 3.0 5.8 1.6 virginica
## 131 7.4 2.8 6.1 1.9 virginica
## 132 7.9 3.8 6.4 2.0 virginica
## 136 7.7 3.0 6.1 2.3 virginica
# 計算"花萼長"大於等於7的資料有幾筆？
nrow(df[df$花萼長 >= 7, ])
## [1] 13
# 查看「品種」欄位為setosa資料
df[df$品種 == "setosa", ]
## 花萼長 花萼寬 花瓣長 花瓣寬 品種
## 1 5.1 3.5 1.4 0.2 setosa
## 2 4.9 3.0 1.4 0.2 setosa
## 3 4.7 3.2 1.3 0.2 setosa
## 4 4.6 3.1 1.5 0.2 setosa
## 5 5.0 3.6 1.4 0.2 setosa
## 6 5.4 3.9 1.7 0.4 setosa
## 7 4.6 3.4 1.4 0.3 setosa
## 8 5.0 3.4 1.5 0.2 setosa
## 9 4.4 2.9 1.4 0.2 setosa
## 10 4.9 3.1 1.5 0.1 setosa
## 11 5.4 3.7 1.5 0.2 setosa
## 12 4.8 3.4 1.6 0.2 setosa
## 13 4.8 3.0 1.4 0.1 setosa
## 14 4.3 3.0 1.1 0.1 setosa
## 15 5.8 4.0 1.2 0.2 setosa
## 16 5.7 4.4 1.5 0.4 setosa
## 17 5.4 3.9 1.3 0.4 setosa
## 18 5.1 3.5 1.4 0.3 setosa
## 19 5.7 3.8 1.7 0.3 setosa
## 20 5.1 3.8 1.5 0.3 setosa
## 21 5.4 3.4 1.7 0.2 setosa
## 22 5.1 3.7 1.5 0.4 setosa
## 23 4.6 3.6 1.0 0.2 setosa
## 24 5.1 3.3 1.7 0.5 setosa
## 25 4.8 3.4 1.9 0.2 setosa
## 26 5.0 3.0 1.6 0.2 setosa
## 27 5.0 3.4 1.6 0.4 setosa
## 28 5.2 3.5 1.5 0.2 setosa
## 29 5.2 3.4 1.4 0.2 setosa
## 30 4.7 3.2 1.6 0.2 setosa
## 31 4.8 3.1 1.6 0.2 setosa
## 32 5.4 3.4 1.5 0.4 setosa
## 33 5.2 4.1 1.5 0.1 setosa
## 34 5.5 4.2 1.4 0.2 setosa
## 35 4.9 3.1 1.5 0.2 setosa
## 36 5.0 3.2 1.2 0.2 setosa
## 37 5.5 3.5 1.3 0.2 setosa
## 38 4.9 3.6 1.4 0.1 setosa
## 39 4.4 3.0 1.3 0.2 setosa
## 40 5.1 3.4 1.5 0.2 setosa
## 41 5.0 3.5 1.3 0.3 setosa
## 42 4.5 2.3 1.3 0.3 setosa
## 43 4.4 3.2 1.3 0.2 setosa
## 44 5.0 3.5 1.6 0.6 setosa
## 45 5.1 3.8 1.9 0.4 setosa
## 46 4.8 3.0 1.4 0.3 setosa
## 47 5.1 3.8 1.6 0.2 setosa
## 48 4.6 3.2 1.4 0.2 setosa
## 49 5.3 3.7 1.5 0.2 setosa
## 50 5.0 3.3 1.4 0.2 setosa
# 將[品種]欄位中為setosa資料，另存成一個物件(df_setosa)
df_setosa <- df[df$品種 == "setosa", ]
# 將物件(df_setosa)另存為.RData格式
save(df_setosa, file = "df_setosa.RData")
#測驗====
#讀取heroes_stats.RData
load("heroes_stats.RData")
#檢視資料
#查看完整資料
head(heroes_stats)
## Name Alignment Intelligence Strength Speed Durability Power Combat
## 1 3-D Man good 50 31 43 32 25 52
## 2 A-Bomb good 38 100 17 80 17 64
## 3 Abe Sapien good 88 14 35 42 35 85
## 4 Abin Sur good 50 90 53 64 84 65
## 5 Abomination bad 63 80 53 90 55 95
## 6 Abraxas bad 88 100 83 99 100 56
## Total
## 1 233
## 2 316
## 3 299
## 4 406
## 5 436
## 6 526
#查看資料結構
str(heroes_stats)
## Classes 'spec_tbl_df', 'tbl_df', 'tbl' and 'data.frame': 428 obs. of 9 variables:
## $ Name : chr "3-D Man" "A-Bomb" "Abe Sapien" "Abin Sur" ...
## $ Alignment : Factor w/ 3 levels "bad","good","neutral": 2 2 2 2 1 1 2 2 2 1 ...
## $ Intelligence: num 50 38 88 50 63 88 63 10 75 50 ...
## $ Strength : num 31 100 14 90 80 100 10 8 28 85 ...
## $ Speed : num 43 17 35 53 53 83 12 13 38 100 ...
## $ Durability : num 32 80 42 64 90 99 100 5 80 85 ...
## $ Power : num 25 17 35 84 55 100 71 5 72 100 ...
## $ Combat : num 52 64 85 65 95 56 64 20 95 40 ...
## $ Total : num 233 316 299 406 436 526 320 61 388 460 ...
## - attr(*, "spec")=List of 3
## ..$ cols :List of 9
## .. ..$ Name : list()
## .. .. ..- attr(*, "class")= chr [1:2] "collector_character" "collector"
## .. ..$ Alignment : list()
## .. .. ..- attr(*, "class")= chr [1:2] "collector_character" "collector"
## .. ..$ Intelligence: list()
## .. .. ..- attr(*, "class")= chr [1:2] "collector_double" "collector"
## .. ..$ Strength : list()
## .. .. ..- attr(*, "class")= chr [1:2] "collector_double" "collector"
## .. ..$ Speed : list()
## .. .. ..- attr(*, "class")= chr [1:2] "collector_double" "collector"
## .. ..$ Durability : list()
## .. .. ..- attr(*, "class")= chr [1:2] "collector_double" "collector"
## .. ..$ Power : list()
## .. .. ..- attr(*, "class")= chr [1:2] "collector_double" "collector"
## .. ..$ Combat : list()
## .. .. ..- attr(*, "class")= chr [1:2] "collector_double" "collector"
## .. ..$ Total : list()
## .. .. ..- attr(*, "class")= chr [1:2] "collector_double" "collector"
## ..$ default: list()
## .. ..- attr(*, "class")= chr [1:2] "collector_guess" "collector"
## ..$ delim : chr ","
## ..- attr(*, "class")= chr "col_spec"
## - attr(*, "problems")=<externalptr>
#查看資料摘要
summary(heroes_stats)
## Name Alignment Intelligence Strength
## Length:428 bad :121 Min. : 6.00 Min. : 4.00
## Class :character good :296 1st Qu.: 50.00 1st Qu.: 10.00
## Mode :character neutral: 11 Median : 63.00 Median : 32.00
## Mean : 62.69 Mean : 40.78
## 3rd Qu.: 75.00 3rd Qu.: 73.50
## Max. :113.00 Max. :100.00
## Speed Durability Power Combat
## Min. : 8.00 Min. : 5.00 Min. : 5.00 Min. : 6.00
## 1st Qu.: 23.00 1st Qu.: 28.00 1st Qu.: 34.00 1st Qu.: 42.00
## Median : 33.00 Median : 58.00 Median : 57.50 Median : 64.00
## Mean : 38.36 Mean : 59.00 Mean : 57.06 Mean : 60.76
## 3rd Qu.: 50.00 3rd Qu.: 89.25 3rd Qu.: 75.25 3rd Qu.: 80.00
## Max. :100.00 Max. :120.00 Max. :100.00 Max. :101.00
## Total
## Min. : 61.0
## 1st Qu.:240.5
## Median :306.0
## Mean :318.7
## 3rd Qu.:384.5
## Max. :581.0
#查看資料欄位名稱
names(heroes_stats)
## [1] "Name" "Alignment" "Intelligence" "Strength" "Speed"
## [6] "Durability" "Power" "Combat" "Total"
#查看第一、二、九欄，第1到5筆資料
heroes_stats[1:5,c(1,2,9)]
## Name Alignment Total
## 1 3-D Man good 233
## 2 A-Bomb good 316
## 3 Abe Sapien good 299
## 4 Abin Sur good 406
## 5 Abomination bad 436
#查看欄位名稱為Alignment的資料
heroes_stats$Alignment
## [1] good good good good bad bad good good good
## [10] bad good good bad good good good bad good
## [19] good bad bad good good good good bad good
## [28] good good good good good bad good bad good
## [37] good good good good good good good good good
## [46] good good good good bad good good good neutral
## [55] bad good good good good bad good good bad
## [64] bad good good good bad bad bad good good
## [73] good good good bad good bad good good good
## [82] bad good good good good good good bad good
## [91] good good bad bad good good good good good
## [100] good bad good good good good good good bad
## [109] good good good good neutral bad good neutral bad
## [118] bad good good bad good good good bad bad
## [127] bad good bad good bad good bad good good
## [136] bad bad good bad bad good good good good
## [145] good good good good good good good bad neutral
## [154] good good bad good bad bad bad good good
## [163] good bad bad good good good good bad good
## [172] good good good good good good good good good
## [181] good good good good bad good good good good
## [190] good good good bad good good good good good
## [199] good good good good bad good good neutral bad
## [208] good bad bad good good bad good bad bad
## [217] good bad bad good bad good bad good good
## [226] bad bad bad bad bad good good good bad
## [235] good bad good bad neutral good good bad good
## [244] good good bad good good bad good good good
## [253] bad good bad good good good good good good
## [262] good bad bad bad good good good bad bad
## [271] good good good good bad bad good good good
## [280] good good good good good good good good good
## [289] bad good good bad good good good good bad
## [298] bad good good bad good bad good good good
## [307] bad good neutral good neutral good bad good bad
## [316] good bad bad bad good good good good good
## [325] good good bad good neutral good good bad good
## [334] good bad bad bad good good good good good
## [343] good bad good good good good bad bad bad
## [352] good good good bad good good good good good
## [361] good good good good good good good good good
## [370] good good good bad good good bad bad good
## [379] good bad good neutral good good good good good
## [388] good bad good bad neutral good good bad good
## [397] bad bad bad bad bad bad good good good
## [406] bad bad good good bad good good good good
## [415] bad good good good good good good good good
## [424] good good good good bad
## Levels: bad good neutral
#找出"Power"大於95的所有資料
heroes_stats[heroes_stats$Power >= 95, ]
## Name Alignment Intelligence Strength Speed Durability Power
## 6 Abraxas bad 88 100 83 99 100
## 10 Air-Walker bad 50 85 100 85 100
## 11 Alan Scott good 63 80 23 90 98
## 13 Amazo bad 75 100 100 100 100
## 20 Anti-Monitor bad 88 90 38 90 100
## 21 Apocalypse bad 100 100 33 100 100
## 46 Beta Ray Bill good 63 80 35 95 100
## 47 Beyonder good 88 100 23 100 100
## 54 Bizarro neutral 75 95 100 100 95
## 56 Black Bolt good 75 67 100 84 100
## 72 Blue Beetle III good 50 34 58 80 97
## 81 Cable good 88 48 23 56 100
## 101 Cyborg Superman bad 75 93 92 100 100
## 108 Darkseid bad 88 100 23 100 100
## 112 Deadman good 50 10 33 100 100
## 113 Deadpool neutral 50 15 30 100 100
## 122 Doctor Fate good 81 16 25 80 100
## 123 Doctor Strange good 100 10 12 84 100
## 125 Doomsday bad 88 80 67 120 100
## 127 Dormammu bad 88 95 83 100 100
## 128 Dr Manhattan good 88 32 42 95 100
## 137 Exodus bad 63 81 28 28 100
## 139 Fallen One II bad 88 85 83 100 100
## 146 Firestorm good 50 53 58 56 100
## 153 Galactus neutral 100 100 83 100 100
## 161 Goku good 56 100 75 90 100
## 167 Guy Gardner good 38 80 27 64 97
## 168 Hal Jordan good 63 90 53 64 100
## 187 Iceman good 63 32 53 100 100
## 192 Iron Man good 100 85 58 85 100
## 197 Jean Grey good 100 80 67 100 100
## 210 Kevin 11 bad 25 7 12 14 100
## 214 Kilowog good 81 90 53 42 100
## 229 Lobo bad 88 83 35 100 95
## 238 Magus bad 88 100 70 99 100
## 240 Man-Thing good 50 32 8 100 98
## 242 Mandarin bad 100 28 23 28 99
## 243 Martian Manhunter good 100 100 96 100 100
## 244 Marvel Girl good 63 85 47 42 100
## 253 Mephisto bad 88 85 35 95 100
## 261 Miss Martian good 63 85 58 100 100
## 264 Mister Mxyzptlk bad 113 10 12 14 100
## 279 Naruto Uzumaki good 50 80 32 80 100
## 286 Nova good 100 85 67 101 100
## 287 Nova good 38 60 100 100 100
## 288 Offspring good 50 10 35 99 100
## 289 Onslaught bad 88 85 47 100 100
## 295 Phoenix good 100 80 67 100 100
## 296 Plastic Man good 50 63 23 100 100
## 338 Sentry good 75 80 58 84 97
## 339 Shadow King good 75 12 27 100 100
## 347 Silver Surfer good 63 100 84 101 100
## 349 Sinestro bad 75 80 53 64 100
## 358 Spawn good 75 60 50 90 100
## 364 Stardust good 88 85 100 110 100
## 373 Superboy-Prime bad 94 100 100 100 100
## 380 Thanos bad 88 100 17 100 100
## 384 Thor good 69 100 92 100 100
## 385 Thor Girl good 75 83 70 84 100
## 397 Ultron bad 88 83 42 100 100
## 408 War Machine good 63 80 63 100 100
## 413 Watcher good 100 80 67 89 100
## 427 Zatanna good 75 10 23 28 100
## Combat Total
## 6 56 526
## 10 40 460
## 11 32 386
## 13 100 575
## 20 90 496
## 21 60 493
## 46 84 457
## 47 56 467
## 54 85 550
## 56 56 482
## 72 30 349
## 81 80 395
## 101 80 540
## 108 95 506
## 112 42 335
## 113 100 395
## 122 50 352
## 123 60 366
## 125 90 545
## 127 80 546
## 128 42 399
## 137 70 370
## 139 56 512
## 146 42 359
## 153 70 553
## 161 100 521
## 167 64 370
## 168 56 426
## 187 64 412
## 192 64 492
## 197 70 517
## 210 40 198
## 214 80 446
## 229 85 486
## 238 74 531
## 240 40 328
## 242 95 373
## 243 85 581
## 244 80 417
## 253 42 445
## 261 45 451
## 264 28 277
## 279 100 442
## 286 85 538
## 287 25 423
## 288 56 350
## 289 85 505
## 295 70 517
## 296 56 392
## 338 54 448
## 339 75 389
## 347 32 480
## 349 56 428
## 358 95 470
## 364 85 568
## 373 85 579
## 380 80 485
## 384 85 546
## 385 70 482
## 397 64 477
## 408 85 491
## 413 56 492
## 427 56 292
#計算""Power"大於95的的資料有幾筆？
nrow(heroes_stats[heroes_stats$Power > 95, ])
## [1] 61
#修改欄位名稱為中文
#查看欄位名稱為Alignment的資料
heroes_stats$Alignment
## [1] good good good good bad bad good good good
## [10] bad good good bad good good good bad good
## [19] good bad bad good good good good bad good
## [28] good good good good good bad good bad good
## [37] good good good good good good good good good
## [46] good good good good bad good good good neutral
## [55] bad good good good good bad good good bad
## [64] bad good good good bad bad bad good good
## [73] good good good bad good bad good good good
## [82] bad good good good good good good bad good
## [91] good good bad bad good good good good good
## [100] good bad good good good good good good bad
## [109] good good good good neutral bad good neutral bad
## [118] bad good good bad good good good bad bad
## [127] bad good bad good bad good bad good good
## [136] bad bad good bad bad good good good good
## [145] good good good good good good good bad neutral
## [154] good good bad good bad bad bad good good
## [163] good bad bad good good good good bad good
## [172] good good good good good good good good good
## [181] good good good good bad good good good good
## [190] good good good bad good good good good good
## [199] good good good good bad good good neutral bad
## [208] good bad bad good good bad good bad bad
## [217] good bad bad good bad good bad good good
## [226] bad bad bad bad bad good good good bad
## [235] good bad good bad neutral good good bad good
## [244] good good bad good good bad good good good
## [253] bad good bad good good good good good good
## [262] good bad bad bad good good good bad bad
## [271] good good good good bad bad good good good
## [280] good good good good good good good good good
## [289] bad good good bad good good good good bad
## [298] bad good good bad good bad good good good
## [307] bad good neutral good neutral good bad good bad
## [316] good bad bad bad good good good good good
## [325] good good bad good neutral good good bad good
## [334] good bad bad bad good good good good good
## [343] good bad good good good good bad bad bad
## [352] good good good bad good good good good good
## [361] good good good good good good good good good
## [370] good good good bad good good bad bad good
## [379] good bad good neutral good good good good good
## [388] good bad good bad neutral good good bad good
## [397] bad bad bad bad bad bad good good good
## [406] bad bad good good bad good good good good
## [415] bad good good good good good good good good
## [424] good good good good bad
## Levels: bad good neutral
#查看[Alignment]欄位中為good資料
heroes_stats[heroes_stats$Alignment == "good", ]
## Name Alignment Intelligence Strength Speed Durability Power
## 1 3-D Man good 50 31 43 32 25
## 2 A-Bomb good 38 100 17 80 17
## 3 Abe Sapien good 88 14 35 42 35
## 4 Abin Sur good 50 90 53 64 84
## 7 Adam Monroe good 63 10 12 100 71
## 8 Agent Bob good 10 8 13 5 5
## 9 Agent Zero good 75 28 38 80 72
## 11 Alan Scott good 63 80 23 90 98
## 12 Alfred Pennyworth good 63 10 17 10 7
## 14 Angel good 63 13 46 64 17
## 15 Angel Salvadore good 38 10 28 28 46
## 16 Animal Man good 56 48 47 85 73
## 18 Ant-Man good 100 10 23 28 32
## 19 Ant-Man II good 63 10 23 28 32
## 22 Aquababy good 10 16 12 14 37
## 23 Aqualad good 63 44 42 75 76
## 24 Aquaman good 63 80 50 80 65
## 25 Archangel good 63 13 58 64 28
## 27 Ares good 75 82 35 80 62
## 28 Ariel good 50 10 12 14 72
## 29 Armor good 50 63 12 80 55
## 30 Atlas good 50 80 23 99 69
## 31 Atom Girl good 38 10 23 28 38
## 32 Aurora good 50 15 83 56 69
## 34 Azrael good 63 18 17 20 35
## 36 Banshee good 50 10 58 42 60
## 37 Bantam good 25 53 23 54 21
## 38 Batgirl IV good 69 12 27 56 42
## 39 Batgirl VI good 75 10 23 28 22
## 40 Batman good 100 18 27 42 37
## 41 Batman II good 88 11 33 28 36
## 42 Battlestar good 50 53 35 74 48
## 43 Beast good 88 48 35 56 35
## 44 Beast Boy good 50 28 50 70 79
## 45 Ben 10 good 10 7 8 10 90
## 46 Beta Ray Bill good 63 80 35 95 100
## 47 Beyonder good 88 100 23 100 100
## 48 Big Barda good 63 90 23 85 42
## 49 Big Daddy good 38 10 12 32 22
## 51 Bill Harken good 63 36 33 60 23
## 52 Bird-Brain good 25 10 35 28 21
## 53 Bishop good 63 14 23 75 85
## 56 Black Bolt good 75 67 100 84 100
## 57 Black Cat good 75 16 33 10 23
## 58 Black Knight III good 63 10 8 70 43
## 59 Black Lightning good 50 11 53 28 70
## 61 Black Panther good 88 16 30 60 41
## 62 Black Widow good 75 13 27 32 32
## 65 Blade good 63 28 38 50 33
## 66 Bling! good 69 14 12 90 52
## 67 Blink good 50 8 20 28 55
## 71 Bloodhawk good 50 10 50 80 66
## 72 Blue Beetle III good 50 34 58 80 97
## 73 Boom Boom good 38 10 12 42 56
## 74 Booster Gold good 56 85 53 50 72
## 75 Box IV good 50 75 23 28 11
## 77 Brainiac 5 good 100 10 23 28 60
## 79 Bumblebee good 63 28 25 10 45
## 80 Bushido good 38 10 8 10 19
## 81 Cable good 88 48 23 56 100
## 83 Cameron Hicks good 50 10 23 28 51
## 84 Cannonball good 50 28 67 99 79
## 85 Captain America good 63 19 35 56 46
## 86 Captain Britain good 75 77 50 60 31
## 87 Captain Marvel good 100 100 67 95 62
## 88 Captain Marvel II good 75 81 27 90 34
## 90 Catwoman good 63 13 33 28 24
## 91 Century good 88 80 53 64 74
## 92 Chamber good 50 10 20 80 57
## 95 Chuck Norris good 50 80 47 56 42
## 96 Claire Bennet good 38 9 12 100 73
## 97 Cloak good 63 10 47 64 74
## 98 Colossus good 63 83 33 100 46
## 99 Crystal good 63 16 12 14 57
## 100 Cyborg good 75 53 42 85 72
## 102 Cyclops good 75 10 23 42 76
## 103 Dagger good 63 10 35 42 52
## 104 Daphne Powell good 38 10 8 10 56
## 105 Daredevil good 75 13 27 28 57
## 106 Darkhawk good 50 32 33 70 74
## 107 Darkman good 75 14 23 85 12
## 109 Darkstar good 38 8 35 42 52
## 110 Dash good 9 4 83 42 12
## 111 Dazzler good 63 10 35 42 64
## 112 Deadman good 50 10 33 100 100
## 115 Deathlok good 69 32 30 70 40
## 119 DL Hawkins good 50 12 12 56 48
## 120 Doc Samson good 75 80 33 80 36
## 122 Doctor Fate good 81 16 25 80 100
## 123 Doctor Strange good 100 10 12 84 100
## 124 Domino good 63 10 27 28 49
## 128 Dr Manhattan good 88 32 42 95 100
## 130 Elastigirl good 38 32 12 90 20
## 132 Elektra good 63 11 30 28 59
## 134 Elongated Man good 38 10 27 90 41
## 135 Emma Frost good 75 63 35 90 82
## 138 Falcon good 38 13 50 28 22
## 141 Feral good 38 28 45 28 20
## 142 Fin Fang Foom good 50 81 23 100 68
## 143 Firebird good 38 8 40 14 90
## 144 Firelord good 38 63 75 90 48
## 145 Firestar good 50 8 54 55 71
## 146 Firestorm good 50 53 58 56 100
## 147 Flash I good 63 10 100 50 57
## 148 Flash II good 63 10 100 60 66
## 149 Flash III good 63 10 100 60 83
## 150 Flash IV good 63 10 100 32 59
## 151 Forge good 63 10 12 28 12
## 154 Gambit good 63 10 23 28 55
## 155 Gary Bell good 63 5 8 10 54
## 157 Ghost Rider good 50 55 25 100 70
## 161 Goku good 56 100 75 90 100
## 162 Gravity good 50 32 33 40 72
## 163 Green Arrow good 75 12 35 28 26
## 166 Groot good 75 85 33 70 92
## 167 Guy Gardner good 38 80 27 64 97
## 168 Hal Jordan good 63 90 53 64 100
## 169 Hancock good 50 85 65 100 70
## 171 Havok good 63 10 25 60 71
## 172 Hawk good 38 38 35 95 36
## 173 Hawkeye good 50 12 23 14 26
## 174 Hawkeye II good 50 6 8 10 24
## 175 Hawkgirl good 50 28 53 99 74
## 176 Hellboy good 63 53 23 85 30
## 177 Hellcat good 50 10 23 42 18
## 178 Hercules good 63 100 46 85 67
## 179 Hit-Girl good 10 8 23 14 21
## 180 Hope Summers good 63 10 12 32 89
## 181 Hulk good 88 100 47 100 41
## 182 Human Torch good 56 10 63 70 74
## 183 Huntress good 69 10 23 28 34
## 184 Husk good 63 63 35 78 53
## 186 Hyperion good 63 95 75 95 58
## 187 Iceman good 63 32 53 100 100
## 188 Impulse good 50 10 100 60 63
## 189 Ink good 38 28 17 40 66
## 190 Invisible Woman good 69 10 27 70 74
## 191 Iron Fist good 75 23 35 42 43
## 192 Iron Man good 100 85 58 85 100
## 194 Isis good 75 48 75 46 43
## 195 Jack of Hearts good 63 55 100 30 70
## 196 Jack-jack good 6 34 67 80 69
## 197 Jean Grey good 100 80 67 100 100
## 198 Jennifer Kale good 75 10 35 42 61
## 199 Jim Powell good 38 38 23 80 23
## 200 JJ Powell good 88 10 8 10 14
## 201 John Stewart good 50 80 27 64 94
## 202 John Wraith good 75 12 35 28 65
## 204 Jolt good 63 12 27 32 31
## 205 Jubilee good 56 8 22 20 66
## 208 Justice good 50 10 33 70 55
## 211 Kick-Ass good 10 10 23 14 21
## 212 Kid Flash good 25 4 92 42 13
## 214 Kilowog good 81 90 53 42 100
## 217 Kool-Aid Man good 25 10 12 14 10
## 220 Krypto good 9 80 100 90 72
## 222 Leech good 25 5 12 14 62
## 224 Light Lass good 38 10 35 28 65
## 225 Lightning Lad good 38 10 23 28 60
## 231 Longshot good 50 10 27 10 71
## 232 Luke Cage good 44 55 23 95 35
## 233 Luna good 38 6 83 14 53
## 235 Machine Man good 63 32 35 84 51
## 237 Magog good 50 48 23 64 66
## 240 Man-Thing good 50 32 8 100 98
## 241 Man-Wolf good 63 44 35 42 38
## 243 Martian Manhunter good 100 100 96 100 100
## 244 Marvel Girl good 63 85 47 42 100
## 245 Master Chief good 75 73 35 80 62
## 247 Matt Parkman good 63 10 12 14 59
## 248 Maverick good 63 10 12 42 60
## 250 Maya Herrera good 50 10 12 14 60
## 251 Medusa good 75 34 35 70 35
## 252 Meltdown good 38 10 12 42 58
## 254 Mera good 56 62 54 70 55
## 256 Metron good 88 10 47 56 69
## 257 Micah Sanders good 63 8 12 14 57
## 258 Micro Lad good 38 28 27 28 44
## 259 Mimic good 63 67 47 56 79
## 260 Misfit good 63 32 23 80 62
## 261 Miss Martian good 63 85 58 100 100
## 262 Mister Fantastic good 100 10 18 70 32
## 266 Monica Dawson good 50 10 35 14 48
## 267 Moon Knight good 50 36 23 42 28
## 268 Moonstone good 56 67 47 52 79
## 271 Mr Incredible good 38 73 35 95 25
## 272 Ms Marvel good 63 80 47 52 70
## 273 Ms Marvel II good 38 63 23 84 11
## 274 Multiple Man good 63 11 23 70 28
## 277 Namora good 50 85 42 42 41
## 278 Namorita good 50 72 47 70 30
## 279 Naruto Uzumaki good 50 80 32 80 100
## 280 Nick Fury good 75 11 23 42 25
## 281 Nightcrawler good 50 10 47 14 52
## 282 Nightwing good 88 11 33 28 36
## 283 Niki Sanders good 63 52 35 28 37
## 284 Nina Theroux good 63 5 8 10 54
## 285 Northstar good 50 18 83 56 70
## 286 Nova good 100 85 67 101 100
## 287 Nova good 38 60 100 100 100
## 288 Offspring good 50 10 35 99 100
## 290 Oracle (DC) good 75 11 23 28 19
## 291 Osiris good 75 85 60 95 65
## 293 Peter Petrelli good 63 28 23 28 69
## 294 Phantom Girl good 38 10 23 28 53
## 295 Phoenix good 100 80 67 100 100
## 296 Plastic Man good 50 63 23 100 100
## 299 Power Girl good 88 98 67 95 67
## 300 Professor X good 100 8 12 14 90
## 302 Punisher good 50 16 23 28 22
## 304 Question good 81 14 27 35 20
## 305 Quicksilver good 63 28 100 60 57
## 306 Quill good 38 10 12 14 23
## 308 Rachel Pirzad good 63 4 8 10 52
## 310 Red Arrow good 63 16 25 20 24
## 312 Red Hulk good 50 88 47 95 59
## 314 Red Robin good 81 11 27 32 29
## 316 Red Tornado good 75 38 67 60 92
## 320 Robin I good 88 11 27 28 32
## 321 Robin III good 81 11 27 28 30
## 322 Robin V good 69 8 33 16 29
## 323 Rocket Raccoon good 50 5 23 28 28
## 324 Rogue good 75 10 12 28 80
## 325 Ronin good 38 10 27 32 21
## 326 Rorschach good 75 10 29 20 23
## 328 Sage good 75 10 12 14 28
## 330 Sasquatch good 75 80 23 56 15
## 331 Savage Dragon good 63 70 54 85 49
## 333 Scarlet Spider good 75 53 60 74 39
## 334 Scarlet Spider II good 88 55 60 40 30
## 338 Sentry good 75 80 58 84 97
## 339 Shadow King good 75 12 27 100 100
## 340 Shadowcat good 88 8 21 25 69
## 341 Shang-Chi good 63 12 30 50 25
## 342 Shatterstar good 63 48 45 64 42
## 343 She-Hulk good 69 100 42 100 33
## 345 Shriek good 50 10 23 28 45
## 346 Sif good 50 57 25 52 19
## 347 Silver Surfer good 63 100 84 101 100
## 348 Silverclaw good 50 28 35 42 34
## 352 Skaar good 50 85 27 90 62
## 353 Snowbird good 50 32 27 42 63
## 354 Sobek good 50 34 23 46 20
## 356 Songbird good 75 36 27 42 55
## 357 Space Ghost good 38 18 33 40 90
## 358 Spawn good 75 60 50 90 100
## 359 Spider-Girl good 63 38 60 65 46
## 360 Spider-Man good 88 55 60 74 58
## 361 Spider-Woman good 50 42 42 32 62
## 362 Spider-Woman III good 50 48 27 42 60
## 363 Spyke good 50 12 17 60 41
## 364 Stardust good 88 85 100 110 100
## 365 Starfire good 50 80 33 85 59
## 366 Stargirl good 50 40 27 90 71
## 367 Steel good 81 82 53 90 64
## 368 Stephanie Powell good 69 10 54 10 17
## 369 Storm good 75 10 47 30 88
## 370 Sub-Mariner good 63 80 47 56 37
## 371 Sunspot good 63 63 35 25 79
## 372 Superboy good 75 95 83 90 84
## 374 Supergirl good 94 98 92 100 85
## 375 Superman good 100 100 100 100 94
## 378 Synch good 75 67 23 28 74
## 379 Tempest good 38 10 45 28 62
## 381 The Cape good 38 10 23 32 22
## 383 Thing good 75 84 21 90 26
## 384 Thor good 69 100 92 100 100
## 385 Thor Girl good 75 83 70 84 100
## 386 Thunderbird good 50 32 27 32 14
## 387 Thunderstrike good 63 80 70 84 31
## 388 Thundra good 38 81 32 64 26
## 390 Tigra good 63 32 53 38 33
## 393 Toxin good 56 73 70 84 75
## 394 Triplicate Girl good 63 10 23 42 44
## 396 Ultragirl good 50 80 35 70 35
## 403 Vindicator II good 63 63 53 64 56
## 404 Violet good 10 4 12 28 65
## 405 Vision good 100 72 54 95 76
## 408 War Machine good 63 80 63 100 100
## 409 Warlock good 88 36 79 95 71
## 411 Warpath good 38 72 47 70 26
## 412 Wasp good 63 8 58 52 23
## 413 Watcher good 100 80 67 89 100
## 414 Wildfire good 50 32 23 100 77
## 416 Winter Soldier good 56 32 35 65 60
## 417 Wolfsbane good 38 16 35 42 26
## 418 Wolverine good 55 32 38 100 44
## 419 Wonder Girl good 75 90 25 80 39
## 420 Wonder Man good 75 100 53 90 64
## 421 Wonder Woman good 88 100 50 100 42
## 422 X-23 good 75 24 35 90 27
## 423 X-Man good 88 53 53 95 92
## 424 Yellowjacket good 88 10 12 28 12
## 425 Yellowjacket II good 50 10 35 28 31
## 426 Ymir good 50 100 27 100 83
## 427 Zatanna good 75 10 23 28 100
## Combat Total
## 1 52 233
## 2 64 316
## 3 85 299
## 4 65 406
## 7 64 320
## 8 20 61
## 9 95 388
## 11 32 386
## 12 55 162
## 14 42 245
## 15 60 210
## 16 80 389
## 18 32 225
## 19 28 184
## 22 14 103
## 23 60 360
## 24 80 418
## 25 42 268
## 27 101 435
## 28 28 186
## 29 54 314
## 30 42 363
## 31 42 179
## 32 56 329
## 34 80 233
## 36 70 290
## 37 56 232
## 38 100 306
## 39 80 238
## 40 100 324
## 41 100 296
## 42 74 334
## 43 84 346
## 44 40 317
## 45 40 165
## 46 84 457
## 47 56 467
## 48 72 375
## 49 64 178
## 51 40 255
## 52 42 161
## 53 65 325
## 56 56 482
## 57 70 227
## 58 70 264
## 59 75 287
## 61 100 335
## 62 100 279
## 65 90 302
## 66 28 265
## 67 64 225
## 71 64 320
## 72 30 349
## 73 64 222
## 74 40 356
## 75 56 243
## 77 32 253
## 79 35 206
## 80 70 155
## 81 80 395
## 83 70 232
## 84 56 379
## 85 100 319
## 86 80 373
## 87 56 480
## 88 56 363
## 90 85 246
## 91 100 459
## 92 64 281
## 95 99 374
## 96 28 260
## 97 56 314
## 98 80 405
## 99 56 218
## 100 64 391
## 102 80 306
## 103 70 272
## 104 10 132
## 105 95 295
## 106 64 323
## 107 28 237
## 109 64 239
## 110 28 178
## 111 56 270
## 112 42 335
## 115 60 301
## 119 56 234
## 120 70 374
## 122 50 352
## 123 60 366
## 124 74 251
## 128 42 399
## 130 14 206
## 132 100 291
## 134 42 248
## 135 42 387
## 138 64 215
## 141 70 229
## 142 70 392
## 143 42 232
## 144 28 342
## 145 32 270
## 146 42 359
## 147 32 312
## 148 32 331
## 149 32 348
## 150 48 312
## 151 48 173
## 154 84 263
## 155 10 150
## 157 60 360
## 161 100 521
## 162 30 257
## 163 90 266
## 166 64 419
## 167 64 370
## 168 56 426
## 169 28 398
## 171 45 274
## 172 42 284
## 173 80 205
## 174 50 148
## 175 72 376
## 176 75 329
## 177 70 213
## 178 100 461
## 179 56 132
## 180 75 281
## 181 85 461
## 182 42 315
## 183 95 259
## 184 64 356
## 186 72 458
## 187 64 412
## 188 60 343
## 189 50 239
## 190 56 306
## 191 100 318
## 192 64 492
## 194 56 343
## 195 30 348
## 196 6 262
## 197 70 517
## 198 72 295
## 199 20 222
## 200 10 140
## 201 54 369
## 202 80 295
## 204 42 207
## 205 90 262
## 208 30 248
## 211 56 134
## 212 30 206
## 214 80 446
## 217 14 85
## 220 40 391
## 222 14 132
## 224 42 218
## 225 42 201
## 231 70 238
## 232 64 316
## 233 14 208
## 235 64 329
## 237 72 323
## 240 40 328
## 241 70 292
## 243 85 581
## 244 80 417
## 245 100 425
## 247 56 214
## 248 85 272
## 250 14 160
## 251 56 305
## 252 64 224
## 254 70 367
## 256 28 298
## 257 14 168
## 258 32 197
## 259 42 354
## 260 42 302
## 261 45 451
## 262 64 294
## 266 90 247
## 267 75 254
## 268 80 381
## 271 42 308
## 272 80 392
## 273 56 275
## 274 62 257
## 277 64 324
## 278 70 339
## 279 100 442
## 280 100 276
## 281 80 253
## 282 100 296
## 283 56 271
## 284 20 160
## 285 70 347
## 286 85 538
## 287 25 423
## 288 56 350
## 290 76 232
## 291 42 422
## 293 56 267
## 294 42 194
## 295 70 517
## 296 56 392
## 299 75 490
## 300 32 256
## 302 100 239
## 304 80 257
## 305 56 364
## 306 14 111
## 308 10 147
## 310 80 228
## 312 75 414
## 314 80 260
## 316 40 372
## 320 85 271
## 321 85 262
## 322 65 220
## 323 64 198
## 324 80 285
## 325 90 218
## 326 80 237
## 328 56 195
## 330 42 291
## 331 72 393
## 333 56 357
## 334 56 329
## 338 54 448
## 339 75 389
## 340 70 281
## 341 100 280
## 342 84 346
## 343 70 414
## 345 42 198
## 346 70 273
## 347 32 480
## 348 42 231
## 352 85 399
## 353 52 266
## 354 56 229
## 356 56 291
## 357 80 299
## 358 95 470
## 359 75 347
## 360 85 420
## 361 52 280
## 362 28 255
## 363 30 210
## 364 85 568
## 365 70 377
## 366 56 334
## 367 64 434
## 368 10 170
## 369 75 325
## 370 84 367
## 371 70 335
## 372 60 487
## 374 75 544
## 375 85 579
## 378 56 323
## 379 60 243
## 381 64 189
## 383 80 376
## 384 85 546
## 385 70 482
## 386 70 225
## 387 72 400
## 388 54 295
## 390 90 309
## 393 70 428
## 394 42 224
## 396 80 350
## 403 70 369
## 404 14 133
## 405 70 467
## 408 85 491
## 409 95 464
## 411 84 337
## 412 42 246
## 413 56 492
## 414 42 324
## 416 84 332
## 417 42 199
## 418 100 369
## 419 60 369
## 420 64 446
## 421 100 480
## 422 85 336
## 423 84 465
## 424 14 164
## 425 28 182
## 426 28 388
## 427 56 292
#將[Alignment]欄位中為good資料，另存成一個物件(heroes_good)，
heroes_good <- heroes_stats[heroes_stats$Alignment == "good", ]
#將物件(heroes_good)另存為.RData格式
save(heroes_good, file = "(heroes_good.RData")
#[Name]欄位中有"man"的hero
subset(heroes_stats, grepl("man", Name))
## Name Alignment Intelligence Strength Speed Durability Power
## 24 Aquaman good 63 80 50 80 65
## 40 Batman good 100 18 27 42 37
## 41 Batman II good 88 11 33 28 36
## 90 Catwoman good 63 13 33 28 24
## 101 Cyborg Superman bad 75 93 92 100 100
## 107 Darkman good 75 14 23 85 12
## 112 Deadman good 50 10 33 100 100
## 182 Human Torch good 56 10 63 70 74
## 187 Iceman good 63 32 53 100 100
## 190 Invisible Woman good 69 10 27 70 74
## 247 Matt Parkman good 63 10 12 14 59
## 329 Sandman neutral 50 75 47 97 62
## 361 Spider-Woman good 50 42 42 32 62
## 362 Spider-Woman III good 50 48 27 42 60
## 375 Superman good 100 100 100 100 94
## 421 Wonder Woman good 88 100 50 100 42
## Combat Total
## 24 80 418
## 40 100 324
## 41 100 296
## 90 85 246
## 101 80 540
## 107 28 237
## 112 42 335
## 182 42 315
## 187 64 412
## 190 56 306
## 247 56 214
## 329 56 387
## 361 52 280
## 362 28 255
## 375 85 579
## 421 100 480
#請選擇五個超級英雄，以長條圖呈現他們的綜合能力值（Total）
superheroes <- c("iceman", "deadman", "aquaman","batman","darkman")
# 超級英雄對應的綜合能力值
total_ability <- c( 100, 100,65,37,12)
# 使用 barplot 函數製作長條圖
barplot(total_ability,
main = "超級英雄綜合能力", # 大標題
sub = "by ANNIEY", # 次標題
names.arg =total_ability, # 資料名稱
xlab = "超級英雄", # x 軸標籤
ylab = "綜合能力值", # y 軸標籤
col = c("pink","skyblue","gray","purple","red")) # 自定義顏色
