第二章課后習(xí)題答案詳解ggplot2的圖形語法中，圖層由哪幾部分構(gòu)成？答：ggplot2的圖層主要由五個部分組成：數(shù)據(jù)集、映射、幾何對象、統(tǒng)計變換、位置調(diào)整。ggplot2中有幾種分面類型，它們的主要區(qū)別是什么？答：ggplot2中主要有兩種分面類型：網(wǎng)格型（facet_grid）和封裝型（facet_wrap）。網(wǎng)格型分面通過生成2維面板網(wǎng)絡(luò)實現(xiàn)圖形的分面，用戶可以設(shè)置變量決定分面繪圖的行和列；封裝型分面最開始生成的是1維面板條塊，再將其封裝到2維中，最終實現(xiàn)圖形的分面效果。下圖2-1、2-2為兩種不同分面的區(qū)別圖2-1網(wǎng)格型分面圖2-2封裝型分面3.現(xiàn)有數(shù)據(jù)集“學(xué)生獲獎信息”如下表所示：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))輸出結(jié)果如下圖3-1所示：圖3-1Student’sAwards條形圖在（1）繪圖結(jié)果的基礎(chǔ)上自定義填充顏色為紅、黃、藍(lán)、綠、黑。#自定義顏色填充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))輸出結(jié)果如下圖3-2所示：圖3-2Student’sAwards自定義填充顏色條形圖基于（1）的繪圖結(jié)果繪制餅圖。#繪制餅圖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())輸出結(jié)果如下圖3-3所示：圖3-3Student’sAwards餅圖在（1）繪圖結(jié)果的基礎(chǔ)上添加分面，要求分面變量為Grade，繪圖結(jié)果按兩行排列。#添加分面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~.)輸出結(jié)果如下圖3-4所示：圖3-4Student’sAwards分面結(jié)果圖在（1）繪圖結(jié)果的基礎(chǔ)上添加圖像標(biāo)題為“學(xué)生獲獎統(tǒng)計圖”，修改x軸的名稱為“學(xué)生姓名”，y軸的名稱為“獲獎次數(shù)”。#添加標(biāo)題ggplot(Awards_students,mapping=aes(Name,AwardTimes,fill=Name))+geom_bar(stat="identity")+labs(title="學(xué)生獲獎統(tǒng)計圖")+xlab("學(xué)生姓名")+ylab("獲獎次數(shù)")+theme(plot.title=element_text(hjust=0.5,size=15))輸出結(jié)果如下圖3-5所示：圖3-5Student’sAwards添加坐標(biāo)標(biāo)題圖（6）在（5）繪圖結(jié)果的基礎(chǔ)上添加主題，要求圖像標(biāo)題居中，字體大小為15，并刪除圖像的網(wǎng)格線。#標(biāo)題居中，刪除網(wǎng)格線ggplot(Awards_students,mapping=aes(Name,AwardTimes,fill=Name))+geom_bar(stat="identity")+labs(title="學(xué)生獲獎統(tǒng)計圖")+xlab("學(xué)生姓名")+ylab("獲獎次數(shù)")+theme(plot.t