R仿图:base plot画平行坐标图,仿《ggplot2:数据分析与图形艺术》

Posted enjoy-respect-9527

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了R仿图:base plot画平行坐标图,仿《ggplot2:数据分析与图形艺术》相关的知识,希望对你有一定的参考价值。

  先放成熟的平行坐标图绘制网址:https://www.r-graph-gallery.com/parallel-plot.html

  • 在只用ggplot2包的条件下,《ggplot2:数据分析与图形艺术》的第273页给出了如下画法:
library(ggplot2)
library(tidyr)#数据变形包
pcp_data<-function(df){
      is_numeric<-vapply(df,is.numeric,logical(1))#筛选出数值列
rescale01<-function(x){
      rng<-range(x,na.rm=TRUE)
      (x-rng[1])/(rng[2]-rng[1])
}#将数值列归一化到[0,1]区间
df[is_numeric]<-lapply(df[is_numeric],rescale01)
df$.row<-rownames(df)
tidyr::gather_(df,"variable","value",names(df)[is_numeric])#数据变形
}
pcp<-function(df,...){
      df<-pcp_data(df)
      ggplot(df,aes(variable,value,group=.row))+geom_line(...)
}
pcp(mpg,aes(colour=drv))

 图形如下:

技术图片

  • 用Base plot 仿画,数据集是ggplot2包自带的mpg数据
    library(ggplot2)
    rescale01<-function(x){
          rng<-range(x,na.rm=TRUE)
          (x-rng[1])/(rng[2]-rng[1])
    }
    df<-mpg
    df$col<-ifelse(df$drv=="4","red",ifelse(df$drv=="f","green","purple"))
    is_numeric<-vapply(df,is.numeric,logical(1))
    df[is_numeric]<-lapply(df[is_numeric],rescale01)
    plot.new()
    plot.window(xlim=c(0.8,7),ylim=c(0,1))
    apply(df,1,function(x){lines(1:5,x[c("cty","cyl","displ","hwy","year")],col=x["col"])})
    #平行坐标实际上每一条线就是一个观测,刚好用apply()函数对每行添加线条 legend(5.5,0.5,legend=c("4","f","r"),col=c("red","green","purple"),cex=1.5,lty=1,title="drv") axis(1,at=1:5,labels=c("cty","cyl","displ","hwy","year")) axis(2) mtext(text="value",side=2,line=2,adj=0.5,cex=1.5) mtext(text="variable",side=1,line=2,adj=0.5,cex=1.5) abline(v=1:5,lty="dotted")

 图形如下:

技术图片

 

以上是关于R仿图:base plot画平行坐标图,仿《ggplot2:数据分析与图形艺术》的主要内容,如果未能解决你的问题,请参考以下文章

R仿图:Base plot仿geom_density()

R仿图:Base plot仿geom_density()

删除 Plotly 平行坐标图末端的刻度标签

火车中的平行坐标图

r 基于频率的顶部平行坐标图

R语言基于可视化进行多变量离群(Mulltivariate outliers)点检测识别:散点图可视化多变量离群点模型平滑多变量异常检测使用平行坐标图查看钻石数据集中的异常值