[11] 《R数据科学》坐标系

坐标系可能是ggplot2中最复杂的部分。默认的坐标系是笛卡尔直角坐标系,可以通过其独立作用的x坐标和y坐标找到每个数据点。偶尔也会用到一些其他类型的坐标系。

文章内容摘要:

coord_flip()函数:交换x轴和y轴
coord_quickmap()函数:为地图设置合适的纵横比
coord_polar()函数:极坐标系绘图

coord_flip()函数

当我们绘制箱线图时,x轴上往往会出现标签重叠的情况,我们可以使用coord_flip()函数交换x轴和y轴。

ggplot(mpg,aes(class,hwy))+geom_boxplot()+coord_flip()
image.png

coord_quickmap()函数

coord_quickmap()函数可以为地图设置合适的纵横比。当ggplot2绘制空间数据时,这个函数特别重要。
调整纵横比之前:

nz <- map_data("nz")
ggplot(nz,aes(long,lat,group=group))+geom_polygon(fill="white",color="black")

image.png

调整纵横比之后:

ggplot(nz,aes(long,lat,group=group))+geom_polygon(fill="white",color="black")+coord_quickmap()

image.png

两者之间就只差一句coord_quickmap()可见此函数的重要性。

当然,如果想要绘制世界地图的话,我们只需要将map_data("nz")改为map_data("world"),我们可以这样写:

world <- map_data("world")
ggplot(world,aes(long,lat,group=group))+geom_polygon(fill="white",color="black")+coord_quickmap()

image.png

当然,世界地图也并不只是全部,你还可以把它变换成 county、france、italy、state、usa、world2。
county

france

italy

state

usa

world2

同样的,完成上面的所有内容,只需要改变map_data()括号内的名称,当然这些图片看上去并没有那么的绚丽多彩,因为许多时候往往需要我们去改变一些参数,才能让它更美观。

Sure,如果你想画中国地图我还是推荐你去用Y叔写的包(当然本人也是Y叔的忠实粉丝之一),chinamap包:https://github.com/GuangchuangYu/chinamap
安装方式:remotes::install_github("GuangchuangYu/chinamap")
附上原代码:

cn <- get_map_china()
ggplot()+geom_map(aes(long,lat,map_id=id,fill=group),map=cn,data=cn)+coord_map()+theme(legend.position='none')

image.png

关于coord_quickmap就提这么多,在绘制地图时,这个函数经常用到。

coord_polar()函数

还记得上高中那会,数学试卷的最后大题是2选1,一个是极坐标,一个是绝对值,这里的coord_polar()函数就是使用的极坐标系。
极坐标可以揭示出条形图和鸡冠花图的一种有趣联系:

bar <- ggplot(diamonds)+geom_bar(aes(cut,fill=cut),show.legend=FALSE,width=1)+theme(aspect.ratio=1)+labs(x=NULL,y=NULL)
bar+coord_flip()
bar+coord_polar()
条形图

鸡冠花图

条形图的数值大小,在转换为鸡冠花图后,改为比例大小。

下面是一些相关的练习:
(1)使用coord_polar()函数将堆叠式条形图转换为饼图。

ggplot(diamonds)+geom_bar(aes(cut,fill=clarity))+coord_polar()

image.png

(2)labs()函数的功能是什么?阅读一下文档。
labs可用于添加识别标签,以区分多个绘图。
(3)coord_quickmap()函数和coord_map函数的区别是什么?
coord_map使用mapproj软件包定义的任何投影,将地球的一部分(近似球形)投影到二维平面上。地图投影一般不会保留直线,因此这需要大量的计算。coord_quickmap是一种快速近似,可以保留直线。它最适用于靠近赤道的较小区域。这意味着你对coord_quickmap的绘制不满意时,你可以尝试一下coord_map。
(4)下图表明城市和公路燃油效率之间有什么关系?为什么coord_fixed()函数很重要?geom_abline()函数的作用是什么?

ggplot(mpg,aes(cty,hwy))+geom_point()+geom_abline()+coord_fixed()

image.png

一加仑油行驶的距离越远,则燃油效率越高。
coord_fixed()坐标系纵横比可以设置固定,固定纵横比后,无论什么图形,其比例都是一样的。
geom_abline()添加回归曲线。

在简书写文章第6天了,感谢几天以来支持我的仅有的一个粉丝,虽然听上去有些心酸,但是在成长的路上,还是给了我很大的鼓舞,我希望我们能够一起成长,一起学习和努力,而我也会逐渐提升文章的质量,在这个过程中锻炼自己的语言组织能力,也希望大家对文章的不足提出建议,这将会让我更好的对待目前的“工作”,谢谢观看。

最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
  • 序言:七十年代末,一起剥皮案震惊了整个滨河市,随后出现的几起案子,更是在滨河造成了极大的恐慌,老刑警刘岩,带你破解...
    沈念sama阅读 216,240评论 6 498
  • 序言:滨河连续发生了三起死亡事件,死亡现场离奇诡异,居然都是意外死亡,警方通过查阅死者的电脑和手机,发现死者居然都...
    沈念sama阅读 92,328评论 3 392
  • 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
    开封第一讲书人阅读 162,182评论 0 353
  • 文/不坏的土叔 我叫张陵,是天一观的道长。 经常有香客问我,道长,这世上最难降的妖魔是什么? 我笑而不...
    开封第一讲书人阅读 58,121评论 1 292
  • 正文 为了忘掉前任,我火速办了婚礼,结果婚礼上,老公的妹妹穿的比我还像新娘。我一直安慰自己,他们只是感情好,可当我...
    茶点故事阅读 67,135评论 6 388
  • 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
    开封第一讲书人阅读 51,093评论 1 295
  • 那天,我揣着相机与录音,去河边找鬼。 笑死,一个胖子当着我的面吹牛,可吹牛的内容都是我干的。 我是一名探鬼主播,决...
    沈念sama阅读 40,013评论 3 417
  • 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
    开封第一讲书人阅读 38,854评论 0 273
  • 序言:老挝万荣一对情侣失踪,失踪者是张志新(化名)和其女友刘颖,没想到半个月后,有当地人在树林里发现了一具尸体,经...
    沈念sama阅读 45,295评论 1 310
  • 正文 独居荒郊野岭守林人离奇死亡,尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 37,513评论 2 332
  • 正文 我和宋清朗相恋三年,在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 39,678评论 1 348
  • 序言:一个原本活蹦乱跳的男人离奇死亡,死状恐怖,灵堂内的尸体忽然破棺而出,到底是诈尸还是另有隐情,我是刑警宁泽,带...
    沈念sama阅读 35,398评论 5 343
  • 正文 年R本政府宣布,位于F岛的核电站,受9级特大地震影响,放射性物质发生泄漏。R本人自食恶果不足惜,却给世界环境...
    茶点故事阅读 40,989评论 3 325
  • 文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹,春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 31,636评论 0 22
  • 文/苍兰香墨 我抬头看了看天上的太阳。三九已至,却和暖如春,着一层夹袄步出监牢的瞬间,已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 32,801评论 1 268
  • 我被黑心中介骗来泰国打工, 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留,地道东北人。 一个月前我还...
    沈念sama阅读 47,657评论 2 368
  • 正文 我出身青楼,却偏偏与公主长得像,于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子,可洞房花烛夜当晚...
    茶点故事阅读 44,558评论 2 352