0517.R

####安裝套件####
install.packages("ggplot2")

## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.1'
## (as 'lib' is unspecified)

install.packages("titanic")

## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.1'
## (as 'lib' is unspecified)

install.packages("dplyr")

## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.1'
## (as 'lib' is unspecified)

install.packages("tidyverse")

## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.1'
## (as 'lib' is unspecified)

# 多行註解 『 Command + Shift + C 』，若是想要取消註解，僅需將段落反白再執行一次Command + Shift + C 即可。

library(ggplot2) ##須先安裝 install.packages("ggplot2")

mpg <- mpg
# variable  detail
# manufacturer  車廠
# model 型號
# displ 引擎排氣量
# year  出廠年份
# cyl   氣缸數
# trans 自／手排
# drv   f = front-wheel drive, r = rear wheel drive, 4 = 4wd
# cty   city miles per gallon 城市駕駛油耗
# hwy   highway miles per gallon 高速公路駕駛油耗
# fl    汽油: ethanol E85, diesel, regular, premium, CNG
# class 車型

#一、長條圖geom_bar()
ggplot(data= mpg, aes(x=class,fill=class))+
  geom_bar()+
  labs(x= "車型", y= "數量", title = "mpg長條圖geom_bar", subtitle = "喻")

#二、長條圖geom_col()
ggplot(data= mpg, aes(x=drv,y=displ, fill=drv))+
  geom_col()+
  labs(x= "drv", y= "排氣量", title = "mpg長條圖geom_col", subtitle = "喻")

#三、放射圖coord_polar()
ggplot(data= mpg, aes(x=drv,y=displ, fill=drv))+
  geom_col()+
  coord_polar()+
  labs(x= "drv", y= "排氣量", title = "mpg放射圖geom_col", subtitle = "喻")

#散佈圖
ggplot(data= mpg, aes(x=cty,y=displ, color=drv))+
  geom_point()+
  labs(x= "cty", y= "排氣量", title = "mpg放射圖geom_col", subtitle = "喻")

ggplot(data= mpg, aes(x = cty, y= displ, size=cyl, fill=drv))+
  geom_point()+
  labs(x= "cty", y= "displ", title = "mpg放射圖geom_col_size = cyl", subtitle = "喻")

#盒狀圖
ggplot(data= mpg, aes(x=cty,y=displ, color=drv))+
  geom_boxplot()+
  labs(x= "cty", y= "dispal", title = "mpg放射圖geom_col", subtitle = "喻")