ggplot2

Pecu PPT / Code :

https://ceiba.ntu.edu.tw/course/26c034/content/ggplot2.pdf

https://goo.gl/cAYb67

ggplot2基礎教學：

https://blog.gtwang.org/r/ggplot2-tutorial-basic-concept-and-qplot/

安裝ggplot2 : install.packages("ggplot2")

基礎測試：

library(ggplot2)

library(grid)

df <- data.frame(c("D0.5", "D1", "D2"),

c(4.2, 10, 29.5))

names(df) <- c("dose", "len")

head(df)

# 折線圖

特色	程式	結果
基礎版	ggplot(data=df, aes(x=dose, y=len, group=1)) + geom_line() + geom_point()
改變線的樣式（虛線）	ggplot(data=df, aes(x=dose, y=len, group=1)) + geom_line(linetype = "dashed") + geom_point()
改變線的顏色	ggplot(data=df, aes(x=dose, y=len, group=1)) + geom_line(color="red") + geom_point()
同時改樣式跟顏色	ggplot(data=df, aes(x=dose, y=len, group=1)) + geom_line(linetype = "dashed",color="red") + geom_point()
加箭頭	ggplot(data=df, aes(x=dose, y=len, group=1)) +geom_line(arrow = arrow())+geom_point()
兩頭都有箭頭	myarrow=arrow(angle = 15,ends = "both",type = "closed")ggplot(data=df, aes(x=dose, y=len, group=1)) +geom_line(arrow=myarrow)+geom_point()
插入多線資料	df2 <- data.frame(supp=rep(c("VC", "OJ"), each=3),dose=rep(c("D0.5", "D1", "D2"),2),len=c(6.8, 15, 33, 4.2, 10, 29.5))head(df2)	----
多線基礎	ggplot(data=df2, aes(x=dose, y=len, group=supp)) +geom_line()+geom_point()
紅點虛線	ggplot(data=df2, aes(x=dose, y=len, group=supp)) +geom_line(linetype="dashed", color="blue", size=1.2)+geom_point(color="red", size=3)
不同資料不同線呈現方式	ggplot(df2, aes(x=dose, y=len, group=supp)) +geom_line(aes(linetype=supp))+geom_point()
點線都不同	ggplot(df2, aes(x=dose, y=len, group=supp)) + geom_line(aes(linetype=supp)) + geom_point(aes(shape=supp))
自定義	ggplot(df2, aes(x=dose, y=len, group=supp)) +geom_line(aes(linetype=supp)) +geom_point()+scale_linetype_manual(values=c("twodash", "dotted"))
不同顏色	ggplot(df2, aes(x=dose, y=len, group=supp)) +geom_line(aes(color=supp)) +geom_point(aes(color=supp))

# R 反轉教室複習：

ggplot2 關卡詳細內容 - http://datascienceandr.org/note/03-RVisualization-03-ggplot2.html

安裝方法 - http://datascienceandr.org/install.html

安裝執行後，直接到 ggplot2 的 Section 17

開始闖關吧～

關卡	Code	Result
12	g + geom_bar()
13	?geom_bar
17	g + geom_bar(aes(fill = education))
19失敗的案例	g + geom_bar(aes(fill = "purple"))
22	g <- ggplot(hsb)	--
23	g + geom_bar(aes(x = sex))
24	g + geom_bar(aes(x = sex, fill = race))
25	g + geom_bar(aes(x = sex, fill = race), position = "dodge")
28	check_then_install("dplyr", "0.4.3")