第二章課后習題答案詳解ggplot2的圖形語法中，圖層由哪幾部分構成？答：ggplot2的圖層主要由五個部分組成：數據集、映射、幾何對象、統計變換、位置調整。ggplot2中有幾種分面類型，它們的主要區別是什么？答：ggplot2中主要有兩種分面類型：網格型（facet_grid）和封裝型（facet_wrap）。網格型分面通過生成2維面板網絡實現圖形的分面，用戶可以設置變量決定分面繪圖的行和列；封裝型分面最開始生成的是1維面板條塊，再將其封裝到2維中，最終實現圖形的分面效果。下圖2-1、2-2為兩種不同分面的區別圖2-1網格型分面圖2-2封裝型分面3.現有數據集“學生獲獎信息”如下表所示：NameAwardTimesGrade小飛5一年級小明2二年級小軍3二年級小亮4一年級小紅1一年級繪制條形圖，其中x變量為Name，y變量為AwardTimes，條塊填充顏色為Name的映射。#繪制條形圖library(ggplot2)ggplot(Awards_students,mapping=aes(Name,AwardTimes,fill=Name))+geom_bar(stat="identity")+labs(title="Student'sAwards")+theme(plot.title=element_text(hjust=0.5,size=15))輸出結果如下圖3-1所示：圖3-1Student’sAwards條形圖在（1）繪圖結果的基礎上自定義填充顏色為紅、黃、藍、綠、黑。#自定義顏色填充ggplot(Awards_students,mapping=aes(Name,AwardTimes))+geom_bar(stat="identity",fill=c("red","yellow","blue","green","black"))+labs(title="Student'sAwards")+theme(plot.title=element_text(hjust=0.5,size=15))輸出結果如下圖3-2所示：圖3-2Student’sAwards自定義填充顏色條形圖基于（1）的繪圖結果繪制餅圖。#繪制餅圖prop<-paste0(round(Awards_students$AwardTimes/sum(Awards_students$AwardTimes)*100,1),"%")#計算各類型占比ggplot(Awards_students,mapping=aes(x="",y=AwardTimes,fill=Name))+geom_bar(stat="identity",width=1)+labs(title="Student'sAwards")+geom_text(aes(x="",y=AwardTimes,label=prop),position=position_stack(vjust=0.5))+coord_polar(theta="y")+theme(axis.ticks=element_blank(),axis.title=element_blank(),axis.text=element_blank(),panel.background=element_blank(),panel.grid=element_blank())輸出結果如下圖3-3所示：圖3-3Student’sAwards餅圖在（1）繪圖結果的基礎上添加分面，要求分面變量為Grade，繪圖結果按兩行排列。#添加分面ggplot(Awards_students,mapping=aes(Name,AwardTimes,fill=Name))+geom_bar(stat="identity")+labs(title="Student'sAwards")+theme(plot.title=element_text(hjust=0.5,size=15))+facet_grid(Grade~.)輸出結果如下圖3-4所示：圖3-4Student’sAwards分面結果圖在（1）繪圖結果的基礎上添加圖像標題為“學生獲獎統計圖”，修改x軸的名稱為“學生姓名”，y軸的名稱為“獲獎次數”。#添加標題ggplot(Awards_students,mapping=aes(Name,AwardTimes,fill=Name))+geom_bar(stat="identity")+labs(title="學生獲獎統計圖")+xlab("學生姓名")+ylab("獲獎次數")+theme(plot.title=element_text(hjust=0.5,size=15))輸出結果如下圖3-5所示：圖3-5Student’sAwards添加坐標標題圖（6）在（5）繪圖結果的基礎上添加主題，要求圖像標題居中，字體大小為15，并刪除圖像的網格線。#標題居中，刪除網格線ggplot(Awards_students,mapping=aes(Name,AwardTimes,fill=Name))+geom_bar(stat="identity")+labs(title="學生獲獎統計圖")+xlab("學生姓名")+ylab("獲獎次數")+theme(plot.t