美文网首页此地古同R语言作图
R小姐:折线图、条形图、直方图、箱图、函数曲线

R小姐:折线图、条形图、直方图、箱图、函数曲线

作者: 鲨瓜 | 来源:发表于2018-11-10 14:10 被阅读0次

    前几次更新的文章犹如海绵里的水,硬挤方才挤出来一丝水,今天就不一样了,文思如尿崩,一次性学会简单的折线、条形、直方、箱、函数曲线图的画法。

    各位请系好您右手边的安全带,抓稳安全扶手,发车了。

    1

    折线图

    library(ggplot2)
    library(gcookbook)
    head(pressure)
    #绘制第一条曲线
    plot(pressure$temperature,pressure$pressure,type = 'l')
    #将数据点添加至曲线,pch表示点的形状
    points(pressure$temperature,pressure$pressure,pch=9)
    #绘制第二条曲线压力减半,颜色为红色
    lines(pressure$temperature,pressure$pressure/2,col='red') 
    #添加第二条曲线的数据点,颜色为红色
    points(pressure$temperature,pressure$pressure/2,col='red')
    
    image
    #生成一个图形向量,用I()函数避免歧义
    qplot(x=temperature,y=pressure,data = pressure,geom = c('line','point'),colour=I('blue'))
    
    image
    #分步走传数据,绘点图,绘线图。分别添加颜色
    ggplot(data = pressure,mapping = aes(x=temperature,y=pressure)) +
      geom_point(colour='red') +
      geom_line(colour='blue')
    
    image

    2

    条形图

    #利用table生成总结数据框,然后生成条形图
    barplot(table(mtcars$cyl))
    
    image
    #设置箱子的宽度,连续型变量绘图
    qplot(x=cyl,data = mtcars,binwidth=1)
    
    image
    #将cyl转化为因子,即离散型变量
    qplot(x=factor(cyl),data = mtcars)
    
    image
    #离散型变量并设置填充色和边框色
    ggplot(data = mtcars,mapping = aes(x=factor(cyl))) +
      geom_bar(colour='red',fill='lightblue')
    
    image

    3

    直方图

    #绘制直方图,并将数据分为12份
    hist(x=mtcars$mpg,breaks = 10)
    
    image
    #设置直方图的宽度和边框颜色
    qplot(x=mpg,data = mtcars,binwidth=4,colour=I('white'))
    
    image
    #设置直方图的边框、填充色和边框色
    ggplot(data = mtcars,mapping = aes(mpg)) +
      geom_histogram(binwidth = 4,colour='red',fill='lightblue')
    
    image

    4

    箱图

    #利用公式绘制箱图
    boxplot(len ~ supp + dose,data = ToothGrowth)
    
    image
    #利用interaction将两个变量交叉绘制箱图
    qplot(x=interaction(supp,dose),y=len,data = ToothGrowth,geom = 'boxplot')
    
    image
    #变量交叉,设置填充色和边框色
    ggplot(data = ToothGrowth,mapping = aes(x=interaction(supp,dose),y=len)) +
      geom_boxplot(fill='lightblue',colour='red')
    
    image

    5

    函数曲线

    
    #表达式,取值范围
    
    curve(x^2,from = -4,to = 4,col='red')
    
    #add表示在原图的基础上添加
    
    curve(x^2 + x ,add = TRUE,from = -4,to = 4,col='blue')
    
    
    image
    #用函数的方法运用qplot
    f <- function() {
      x <- 0:20
      y <- 1/(1 + exp(-x + 10))
      qplot(x,y,geom = 'line')
    }
    f()
    
    image
    #自建一个函数方程
    myfun <- function(xval){
      1/(1 + exp(-xval + 10))
    }
    #ggplot要求数据是数据框格式
    ggplot(data.frame(x=c(0:20)),aes(x=x)) + 
      stat_function(fun = myfun,geom = 'line',colour='red')
    
    image

    本期内容以代码为主,旨在培养大家自己看懂代码的能力。要多多动手查,拒绝做伸手党。

    下期再见。

    你可能还想看

    等你很久啦,长按加入古同社区

    image

    相关文章

      网友评论

        本文标题:R小姐:折线图、条形图、直方图、箱图、函数曲线

        本文链接:https://www.haomeiwen.com/subject/tupzxqtx.html