• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

R语言绘图 | 折线图画法,如何画出你满意的图?

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

作者:丁点helper

来源:丁点帮你

上篇文章中,我们用世界银行的例子给大家介绍了散点图怎么画,那折线图呢?

绘制折线图

如果将散点图上的点从左往右连接起来,就会得到一个折线图。今天我们以R中自带的Orange 数据集为例,来学习折线图的画法,该数据集中包含五种橘树的树龄和年轮数据。要考察橘树的年轮如何随着树龄变化,先画个散点图看看:

# 先看第一种橘树,提取第一种树的数据,保存在t1中
t1 <- subset(Orange, Tree==1)

戳此复习subset()函数的功能。

# 绘制散点图
plot(t1$age, t1$circumference, 
        xlab="Age (days)",
        ylab="Circumference (mm)",
        main="Orange Tree 1 Growth")

再画折线图:

# 绘制折线图
plot(t1$age, t1$circumference, 
     xlab="Age (days)", 
     ylab="Circumference (mm)",
     main="Orange Tree 1 Growth",
     type="b")

可以发现,绘制折线图使用的仍是plot()函数,其代码只比散点图的多了一个用来设置图形外观的命令:type='b','b'表示用线条将点连接起来,因此我们就得到了下图:

折线图的图形外观还可以有很多种,均可通过type命令来完成,下表展示了type可选的取值:

选取上表中各种类型的type值,就可以得到各式各样的折线图:

试着调整图形

虽然上面的图形已经可以准确表达数据信息,但有时自动生成的图形可能无法满足需求。

比如,我们想把上面的散点图和折线图放在同一张图中,便于比较,或者想改变文字的字体、颜色等…… 此时,可以在用plot()作图前,先用par()函数设置你想改变的参数:

# 设置par()函数
par(mfrow=c(1,2),bty='l',cex.main=1.5, 
    col.main='deepskyblue4',font.lab=2, 
    family='Times New Roman')
# 绘制散点图
plot(t1$age, t1$circumference,
     xlab="Age (days)",
     ylab="Circumference (mm)", 
     main="Orange Tree 1 Growth")
# 绘制折线图
plot(t1$age, t1$circumference,
     xlab="Age (days)", 
     ylab="Circumference (mm)", 
     main="Orange Tree 1 Growth",col='deepskyblue4',
     type="b")

大家可以先将这段代码复制到R中运行(记得先用本文开头的方法生成t1这个对象),看看出现了什么?

par(mfrow=c(1,2),bty='l',cex.main=1.5,
    col.main='deepskyblue4',font.lab=2,
    family='Times New Roman')

par()是R中用来设置图形参数的函数。

上面的代码中,mfrow是图形整体布局命令,不是针对某个具体的图形而言的,而是对整个绘图区域的布局。定义整体有几行、几列图形,其赋值形式为c(行数,列数);

bty是设置图形边框类型的函数,其取值及效果如下图:

cex.main:设置标题文本的放大倍数,还可用cex.axis 和 cex.lab分别设置坐标轴刻度值和名称文本的放大倍数;

col.main:设置文本标题的颜色,大家能猜出坐标轴刻度值和名称的颜色如何设置吗?欢迎留言呀~

font.lab:设置坐标轴名称的字型:

family:设置图形中所有文本的字体。

最终得到的图形如下,你还能想到哪些需要改进或调整的地方呢,我们可以作为今后讲授的内容

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap