## 基本散點圖展示 ### 應用場景 箱型圖應用非常常見，比如：兩組比較，多組比較，多組里面的兩兩比較  ### 利用ggplot2創建boxplot ```R # rt為2.1 scatter plot所展示的數據 # rt_box如上圖所示 rt <- read.table(file = "/Users/stead/Documents/SourceTree/gitbook/R_visualization/data/LUAD_test.txt", header = TRUE, row.names = 1, stringsAsFactors = FALSE) # 準備ggplot2所需數據格式 rt_box <- data.frame(cbind(as.numeric(rt['TP53',]), c(rep('tumor', 57), rep('normal', 57)))) colnames(rt_box) <- c('TP53', 'group') rt_box$TP53 <- as.numeric(rt_box$TP53) ``` ```R library(ggplot2) P <- ggplot(rt_box, aes(x = group, y = TP53)) + geom_boxplot(outlier.colour="red", outlier.shape=8, outlier.size=4) print(P) ```  ```R # P 來自于上圖 P + geom_jitter(shape=16, position=position_jitter(0.2))#在boxplot中加入具體表達值所在的位置點 ```  ```R P2 <- ggplot(rt_box, aes(x = group, y = TP53, color = group)) + geom_boxplot() + theme_classic() #改變下主題 print(P2) ```  ```R P3 <- ggplot(rt_box, aes(x = group, y = TP53, fill = group)) + geom_boxplot() + theme_classic() + geom_dotplot(binaxis='y', stackdir='center', position=position_dodge(1)) print(P3) ```