北京大学：《数据分析工具和实践》课程教学资源（讲稿）08 ggplot2画图（一）

Data Analysis Tools and 2018.04.17 Practice(Using R) gg plot.2画图1 北大软件与微电荐院 Huiping Sun(孙惠平) School of Software and Microelectronics,Peking University sunhp@ss.pku.edu.cn

Huiping Sun(ਃణଘ) sunhp@ss.pku.edu.cn ggplot2画图I Data Analysis Tools and Practice(Using R) 2018.04.17

课堂测试时间

᧞झၥᦶ෸ᳵ

先用电脑完成 ggplot2 1 课堂测试07 40分钟 然后誊抄纸上 I、创建字符向量colors,.元素为”green'”,"orange'”,"brown'”,创建字符向量months,. 元素为”一月”，二月，”三月””四月，”五月”，创建字符向量regi0ns,元素为东部地 区””西部地区”，"南部地区"；创建矩阵values,.元素为值 2,9,3,11,9,4,8,7,3,12,5,2,8,10,11,要求3行5列。(I)、使用矩阵valuest创建推叠的条形 图，添加标题为”总收入”，x轴名称为”月份”，y轴名称为”收入”，条形图的标签 为字符向量months(使用names.arg参数)，推叠台型图的颜色设置为创建的字符向 量colors;(2)、添加图例，内容为字符向量regions,分别对应条形图中的三种颜 色。 ● 2、dapengde DummyR PM25.csv是2003年8月在北京城区的三个高度(8米， 100米，325米)测得的PM2.5的质量浓度日变化的统计数据，共4列25行。 (I)、请画出一条折线表示h8和time的关系，要求是"time"和"pm2.5"分别是x轴的 名称和y轴的名称，Ilty=l(表示Iine的type为l,表示直线)y轴的范围是0到200； (2)、在上图增加一条折线（使用lines(0函数）表示hl00和time的关系，要求颜色为红 色，线型为虚线(ty=2)；(3)、在上图中增加图例来表示上边画的两条折线，其中 图例位置为(x=15,y=I80)位置处，内容为8m和100m,两条折线分别为黑色直 线和红色虚线；(4)、画出x轴，刻度指定为和时间相对应的24个小时。(5)、与h8 和hI00两条折线相对应，画出其对应的y轴均值的水平线

• 1̵ڠୌਁᒧݻᰁcolors，زᔰԅ”green”,”orange”,”brown”҅ڠୌਁᒧݻᰁmonths, زᔰԅ”Ӟ์”,”ԫ์”,”ӣ์”,”ࢥ“,“์Բ์”҅ڠୌਁᒧݻᰁregions,زᔰԅ”ӳ᮱ࣈ ᔰԅ؀ز,ୌᎥᴣvaluesڠҔ"܄ࣈ᮱ܖ",“܄ࣈᥜ᮱”,”܄ 2,9,3,11,9,4,8,7,3,12,5,2,8,10,11҅ᥝ࿢3ᤈ5ڜ)̶1)̵ֵአᎥᴣvaluesڠୌവݖጱ๵୵ ࢶ҅Ⴒےຽ᷌ԅ”௛තف“ ҅x᫰ݷᑍԅ”์ղ” ҅y᫰ݷᑍԅ”තف୵๵҅“ࢶጱຽᓋ ԅਁᒧݻᰁmonths(ֵአnames.arg݇හ)҅വࢶࣳݣݖጱ᷏ᜋᦡᗝԅڠୌጱਁᒧݻ ᰁcolorsҔ(2)̵Ⴒࢶے਻ֺٖ҅ԅਁᒧݻᰁregions҅ڦړ੒ଫ๵୵ࢶӾጱӣᐿ᷏ ᜋ̶ • 2̵dapengde_DummyR_PM25.csvฎ2003 ଙ 8 ์ࣁ۹Ղउ܄ጱӣӻṛଶҁ8 ᔂ҅ 100 ᔂ҅325 ᔂ҂ၥ஑ጱ PM2.5 ጱᨶᰁၫଶ෭ݒ۸ጱᕹᦇහഝ҅و 4 ڜ 25 ᤈ̶ (1)̵᧗ኮڊӞ๵ರᕚᤒᐏh8޾timeጱىᔮ҅ᥝ࿢ฎ"time"޾"pm2.5" ڦړฎx᫰ጱ ݷᑍ޾y᫰ጱݷᑍ, lty=1ҁᤒᐏlineጱtypeԅ1҅ᤒᐏፗᕚ) y᫰ጱ᝜ࢱฎ0ک200Ҕ (2)̵ࣁӤࢶीےӞ๵ರᕚ(ֵአlines()ڍහ)ᤒᐏh100޾timeጱىᔮ҅ᥝ࿢᷏ᜋԅᕁ ᜋ҅ᕚࣳԅᡦᕚ(lty=2)Ҕ(3)̵ࣁӤࢶӾीࢶے๶ֺᤒᐏӤᬟኮጱӷ๵ರᕚٌ҅Ӿ ࢶֺ֖ᗝԅҁx=15҅y=180҂֖ᗝ॒ٖ҅਻ԅ8m޾100m,ӷ๵ರᕚڦړԅἓᜋፗ ᕚ޾ᕁᜋᡦᕚҔ(4)̵ኮڊx᫰҅ڰଶ೰ਧԅ޾ᳵ෸ፘ੒ଫጱ24ӻੜ෸̶(5)̵Өh8 ޾h100ӷ๵ರᕚፘ੒ଫ҅ኮڊ੒ٌଫጱy᫰࣐؀ጱ࿜ଘᕚ̶ ggplot2 I 课堂测试07 ضአኪᚏਠ౮ 40ړᰦ ᆐݸᦀಧᕕӤ

ggplot2 I 课堂测试07 先用电脑完成 40分钟 然后誊抄纸上 3、右图表示某种商品上一周与本周 销量的对比图，请根据表格中的数 据创建矩阵，并完成那个下列的作 pre now 图要求：()、将各组数据用条形图 113 123 表示，要求水平、并列的方式，上 134 145 周和本周的颜色分别为黄色和红色， 123 136 不添加坐标轴；(2)、在底部添加水 145 178 平坐标轴；(3)、在左侧添加垂直坐 123 113 标轴，要求在位置2,5,8,11,14,17,20 处，标签为Mon”Tue'Wed"Thur'”Fri 6 234 167 Sat”Sun',不显示刻度 7 145 220

• 3̵ࢶݦᤒᐏ຤ᐿࠟߝӤӞޮӨ๜ޮ ᲀᰁጱ੒ྲࢶ҅᧗໑ഝᤒ໒Ӿጱහ ഝڠୌᎥᴣ҅ଚਠ౮ᮎӻӥڜጱ֢ ࢶᥝ࿢ғ(1)̵ਖ਼ݱᕟහഝአ๵୵ࢶ ᤒᐏ҅ᥝ࿢࿜ଘ̵ଚڜጱොୗ҅Ӥ ޮ޾ޮ๜ጱ᷏ᜋڦړԅἎᜋ޾ᕁᜋ҅ ӧႲࣖےຽ᫰Ҕ(2)̵ࣁବ᮱Ⴒے࿜ ଘࣖຽ᫰Ҕ(3)̵ࣁૢ׆Ⴒ࣮ےፗࣖ ຽ᫰҅ᥝ࿢ࣁ֖ᗝ2,5,8,11,14,17,20 ॒,ຽᓋԅ’Mon” Tue” Wed” Thur” Fri” Sat” Sun’,ӧดᐏڰଶ ggplot2 I 课堂测试07 ضአኪᚏਠ౮ 40ړᰦ ᆐݸᦀಧᕕӤ

ggplot2 I 上次课程内容回顾 图例： 米坐标；边界标注；标注(mar) ·折线图： grid();abling;omi; 。条形图： 米堆积(beside);显示数字；宽度、颜色和边界；显示标注；增加误 差线 散点图： 米增加抖动；

ғֺࢶ • ✴ ࣖຽ; ᬟኴຽဳ; ຽဳ(mar); • ರᕚࢶғ ✴ grid(); abling(); omi; ғࢶ୵๵ • ✴ ञᑌ(beside); ดᐏහਁ; ਼ଶ̵᷏ᜋ޾ᬟኴ; ดᐏຽဳ; ीے᧏ ૧ᕚ • වᅩࢶғ ✴ ीےಮۖ; ggplot2 I 上次课程内容回顾

ggplot2简介

ggplot2ᓌՕ

ggplot2 I ggplot2 https://cran.r-project.org/web/packages/ggplot2/index.html V2.2.1 Use R! ②Springer 尺s古点为术月 ②∑先 Statistics and Computing gplot2: Leland Wilkinson Hadley Wickham 数据分析与图形艺术 Use R! ggplot2.Elegant Graphics for Data Analysis The Grammar ggplot2 天]的华~威克的： @2005 of Graphics @2009 @2013 Second Edition geom smooth agplot theme Hadley Wickham Elegant Graphics for Data Analysis V0.8.3 Springer Springer graphics、grid、lattice http://hadley.nz/ ggplot2

http://hadley.nz/ https://cran.r-project.org/web/packages/ggplot2/index.html V 2.2.1 V 0.8.3 • graphics̵grid̵lattice • ggplot2 @ 2005 @ 2009 @ 2013 Use R! ggplot2 I ggplot2

ggplot2 I 为什么使用ggplot2 函数繁杂，语法复杂 “笔纸”工作方式，不能增减 自动化低 主次不分 忘记一切 有理论基础，支持一套图形语法 从头开始 ●】 采用图层的设计方式，可增减 媲美商业数据化软件的作图效果 install.packages("ggplot2") 使用简单，定制容易（主题）

• ํቘᦞचᏐ҅ඪ೮Ӟॺࢶ᧍୵ဩ ٺीݢ҅ጱᦡᦇොୗ੶ࢶአ• ᯻ • ৠᗦࠟӱහഝ۸᫫կጱ֢ࢶපຎ • ֵአᓌܔ҅ਧګ਻ฃҁԆ᷌҂ • ڍහᔺ๥҅᧍ဩ॔๥ • “ᒟᕕ”ૡ֢ොୗ҅ӧᚆीٺ • ᛔۖ۸֗ • Ԇེӧړ ՗१୏ত ڔᦕӞ஫ install.packages("ggplot2") ggplot2 I 为什么使用ggplot2

ggplot2 I 图形语法 ,数据(data) 映射(mapping).←→图形属性(aesthetic attributes) 几何对象(geometric object). 统计变换(statistical transformation s) 标度(scale) 坐标系(coordinate system) 。分面(facet)

• හഝҁdata҂ • پ᨝੒֜ҁgeometric object҂ • ᕹᦇݒഘҁstatistical transformation s҂ • ຽଶҁscale҂ • ࣖຽᔮҁcoordinate system҂ ᶎҁfacet҂ړ • ฉ੘ҁmapping҂ ࢶ௔ં୵ҁaesthetic attributes҂ ggplot2 I 图形语法

qplot

qplot