符合中小企业对网站设计、功能常规化式的企业展示型网站建设
本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...
商城网站建设因基本功能的需求不同费用上面也有很大的差别...
手机微信网站开发、微信官网、微信商城网站...
本篇内容介绍了“R语言可视化ggplot图表中的线条介绍”的有关知识,在实际案例的操作过程中,不少人都会遇到这样的困境,接下来就让小编带领大家学习一下如何处理这些情况吧!希望大家仔细阅读,能够学有所成!
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:国际域名空间、网站空间、营销软件、网站建设、桃江网站维护、网站推广。
今天跟大家分享的是ggplot图表中的一类重要元素——线条。
不要觉得专门为线条写一章推送有点小题大做,其实线条对于图表而言,功不可没,即便是不起眼的网格、轴线、或者线条的粗线、线型、磅数等都将决定着你的图表品质。
R语言中ggplot函数系统中涉及到线条的地方有很多,最常见的场景就是我们做geom_line()(折线图)、geom_path()(路径图),以及图表的绘图区(panel)、图表区、网格系统(grid)中所涉及到的线条。
今天以一个折线图为例,简要说明ggplot函数中关于线条的主要参数及其效果。
library(ggplot2)
library(reshape2)
library(ggthemes)
library(RColorBrewer)
data<-data.frame(Name = c("苹果","谷歌","脸书","亚马逊","腾讯"),Company = c("Apple","Google","Facebook","Amozon","Tencent"),Sale2013 = c(5000,3500,2300,2100,3100),Sale2014 = c(5050,3800,2900,2500,3300),Sale2015 = c(5050,4000,3200,2800,3700),Sale2016 = c(6000,4800,4500,3500,4300))
mydata<-melt(data,id.vars=c("Name","Company"),variable.name="Year",value.name="Sale")
我先用一个简单的折线图代码跑出来一个折线图:
ggplot(mydata,aes(Company,Sale,fill=Year))+geom_line()
geom_path: Each group consists of only one observation. Do you need to adjust the group aesthetic?
当我用以上代码运行的时候,软件报错,提示如上:
图表展示区给出了一个只有坐标系的空白图表;
相信根据英文意思也可以明白怎么回事,因为我们给折线图的X轴映射是一个离散的因子变量,而默认状态下软件会将单条记录都会视作一个分类,这样肯定是无法出来图表的,而如果是一个连续变量,则会只会当做一个类别进行映射。
我们使用过ggplot内内置数据集验证我们的猜想。
head(LakeHuron)
LakeHuron$data<-seq(1875,1972,1)
ggplot(LakeHuron,aes(data,LakeHuron))+geom_line()
以上使用了一个时间序列数据,很顺利的完成了折线图的制作。
那么针对离散变量的折线图到底如何来做呢,我们可以通过group指定分组的形式来达到目的。
ggplot(mydata,aes(Company,Sale,group=Year,fill=Year))+geom_line()
通过指定group即告知软件将变量按照年份变量分组,否则单个不重复记录都会被当做一个单独分组。
ggplot(newdata,aes(Company,Sale,group=Year))+geom_line()+geom_point()
ggplot(newdata,aes(Company,Sale,group=Year,colour=Year))+geom_line()+geom_point() #按照年份分组的同时按照年份进行线条的颜色映射
接下来通过对线条内部参数的修改,我们可以体会到ggplot对于线条细节的把控是多么的专注:
ggplot(newdata,aes(Company,Sale,group=Year,colour=Year))+geom_line()+geom_point()
线条的参数主要有size、colour、linetype.
其中线条的类型主要有0=blank,1=solid,2=dashed,3=dotted,4=dotdash,5=longdash,6=twodash
每一个类型示例如下:
ggplot(newdata,aes(Company,Sale,group=Year,colour=Year))+geom_line()+geom_point()
ggplot(newdata,aes(Company,Sale,group=Year,colour=Year))+geom_line(linetype=1,size=1.5)+geom_point()
ggplot(newdata,aes(Company,Sale,group=Year,colour=Year))+geom_line(linetype=2,size=1.5)+geom_point()
ggplot(newdata,aes(Company,Sale,group=Year,colour=Year))+geom_line(linetype=3,size=1.5)+geom_point()
ggplot(newdata,aes(Company,Sale,group=Year,colour=Year))+geom_line(linetype=4,size=1.5)+geom_point()
ggplot(newdata,aes(Company,Sale,group=Year,colour=Year))+geom_line(linetype=5,size=1.5)+geom_point()
ggplot(newdata,aes(Company,Sale,group=Year,colour=Year))+geom_line(linetype=6,size=1.5)+geom_point()
下面是关于线条粗度的不同感知:
ggplot(newdata,aes(Company,Sale,group=Year,colour=Year))+geom_line(size=1,linetype=1)+geom_point()
ggplot(newdata,aes(Company,Sale,group=Year,colour=Year))+geom_line(size=2,linetype=1)+geom_point()
ggplot(newdata,aes(Company,Sale,group=Year,colour=Year))+geom_line(size=3,linetype=1)+geom_point()
ggplot(newdata,aes(Company,Sale,group=Year,colour=Year))+geom_line(size=4,linetype=1)+geom_point()
ggplot(newdata,aes(Company,Sale,group=Year,colour=Year))+geom_line(size=5,linetype=1)+geom_point()
ggplot(newdata,aes(Company,Sale,group=Year,colour=Year))+geom_line(size=6,linetype=1)+geom_point()
以上依次使用的线条粗度值为1,2,3,4,5,6,大家可以通过图表感受到ggplot图表中线条的粗度变化规律。
除了折线图(以及路径图,等图层中的线条之外),在theme系统中存在大量的关于线条的属性设置(网格系统、图表边框、轴线、图例系统),均可以参照以上参数进行设置。
“R语言可视化ggplot图表中的线条介绍”的内容就介绍到这里了,感谢大家的阅读。如果想了解更多行业相关的知识可以关注创新互联网站,小编将为大家输出更多高质量的实用文章!