zoukankan      html  css  js  c++  java
  • R语言 ggplot2 画平滑图

    library(splines)

    library(ggplot2)

    dt1 <- structure(list(Age = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("o80", "u80"), class = "factor"), NoP = c(47L, 5L, 33L, 98L, 287L, 543L, 516L, 222L, 67L, 14L, 13L, 30L, 1L, 6L, 17L, 30L, 116L, 390L, 612L, 451L, 146L, 52L), pctOAC = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)), .Names = c("Age", "NoP", "pctOAC"), row.names = c(NA, -22L), class = "data.frame")


    ggplot(dt1, aes(x=pctOAC,y=NoP, fill=Age)) +
        geom_bar(stat="identity",position=position_dodge()) +
        geom_smooth(aes(colour=Age), se=F,
                    method="glm",
                    formula=y~ns(x,8),
                    family=gaussian(link="log"),
                    show_guide = FALSE,lwd=0.7) +
        theme(legend.position=c(.2,0.8))

    ##Ref: http://stackoverflow.com/questions/13213451/smoothing-in-ggplot


        
        
       

  • 相关阅读:
    struct&Method
    SetFinalizer、runtime.GC
    Map(没有写底层)
    数组和切片
    函数
    指针、Time
    字符串、strings、strconv
    基本类型和运算符
    第二阶段的事后诸葛亮
    第二个冲刺阶段第10天
  • 原文地址:https://www.cnblogs.com/emanlee/p/6308953.html
Copyright © 2011-2022 走看看