35. 流动图绘制

清除当前环境中的变量

rm(list=ls())

设置工作目录

setwd("C:/Users/Dell/Desktop/R_Plots/35streamgraph/")

安装并加载所需的R包

# 安装streamgraph包
#devtools::install_github("hrbrmstr/streamgraph")

library(dplyr)
## Warning: package 'dplyr' was built under R version 3.6.3
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(streamgraph)
## Loading required package: htmlwidgets
## Loading required package: htmltools

构建示例数据

data <- data.frame(
  year=rep(seq(1990,2016) , each=10),
  name=rep(letters[1:10] , 27),
  value=sample( seq(0,1,0.0001) , 270)
)

# 查看示例数据
head(data)
##   year name  value
## 1 1990    a 0.2709
## 2 1990    b 0.1812
## 3 1990    c 0.2304
## 4 1990    d 0.0452
## 5 1990    e 0.4080
## 6 1990    f 0.0464

使用streamgraph包绘制流动图

# 基础绘图，需要提供三列变量
# 默认interactive=T，绘制可交互式图
streamgraph(data, key="name", value="value", date="year")

image.png

# 设置图片的高度和宽度，interactive = F绘制静态图
pp <- streamgraph(data, key="name", value="value", date="year", 
                  height="600px", width="1000px",interactive = F)
pp

image.png

# 指定offset参数设置纵坐标偏移模式，默认offset = "silhouette"
streamgraph(data, key="name", value="value", date="year", 
            offset = "silhouette", interactive = F)

image.png

streamgraph(data, key="name", value="value", date="year", 
            offset = "wiggle", interactive = F)

image.png

streamgraph(data, key="name", value="value", date="year", 
            offset = "expand", interactive = F)

image.png

streamgraph(data, key="name", value="value", date="year", 
            offset = "zero", interactive = F)

image.png

# 指定interpolate参数设置绘图类型，默认interpolate = "cardinal"
streamgraph(data, key="name", value="value", date="year", 
            interpolate = "cardinal", interactive = F)

image.png

streamgraph(data, key="name", value="value", date="year", 
            interpolate = "linear", interactive = F)

image.png

streamgraph(data, key="name", value="value", date="year", 
            interpolate = "step", interactive = F)

image.png

streamgraph(data, key="name", value="value", date="year", 
            interpolate = "basis", interactive = F)

image.png

streamgraph(data, key="name", value="value", date="year", 
            interpolate = "monotone", interactive = F)

image.png

# 更改绘图颜色
# Graph 1: choose a RColorBrewer palette -> continuous
p1 <- streamgraph(data, key="name", value="value", date="year") %>%
  sg_fill_brewer("Blues")
p1

image.png

# Graph 2: choose a RColorBrewer palette -> categorical
p2 <- streamgraph(data, key="name", value="value", date="year") %>%
  sg_fill_brewer("Pastel1")
p2

image.png

# Graph 3: choose color manually with number, color name, rgb ...
p3 <- streamgraph(data, key="name", value="value", date="year") %>%
  sg_fill_manual(c(1:10))
p3

image.png

sessionInfo()
## R version 3.6.0 (2019-04-26)
## Platform: x86_64-w64-mingw32/x64 (64-bit)
## Running under: Windows 10 x64 (build 18363)
## 
## Matrix products: default
## 
## locale:
## [1] LC_COLLATE=Chinese (Simplified)_China.936 
## [2] LC_CTYPE=Chinese (Simplified)_China.936   
## [3] LC_MONETARY=Chinese (Simplified)_China.936
## [4] LC_NUMERIC=C                              
## [5] LC_TIME=Chinese (Simplified)_China.936    
## 
## attached base packages:
## [1] stats     graphics  grDevices utils     datasets  methods   base     
## 
## other attached packages:
## [1] streamgraph_0.7 htmltools_0.3.6 htmlwidgets_1.3 dplyr_1.0.2    
## 
## loaded via a namespace (and not attached):
##  [1] Rcpp_1.0.5       knitr_1.23       magrittr_1.5     tidyselect_1.1.0
##  [5] lattice_0.20-38  R6_2.4.0         rlang_0.4.7      stringr_1.4.0   
##  [9] tools_3.6.0      xts_0.12.1       grid_3.6.0       xfun_0.8        
## [13] ellipsis_0.2.0.1 yaml_2.2.0       digest_0.6.20    tibble_2.1.3    
## [17] lifecycle_0.2.0  crayon_1.3.4     tidyr_1.1.2      purrr_0.3.2     
## [21] vctrs_0.3.2      glue_1.4.2       evaluate_0.14    rmarkdown_1.13  
## [25] stringi_1.4.3    compiler_3.6.0   pillar_1.4.2     generics_0.0.2  
## [29] jsonlite_1.6     pkgconfig_2.0.2  zoo_1.8-6