R语言河流图

#安装ggstream拓展包和配色包RColorBrewer
# install.packages('ggstream')
# install.packages('RColorBrewer')
# install.packages('tidyverse')
#载入需要的包：
library(ggstream)
library(ggplot2)
library(RColorBrewer)
library(dplyr)
library(tidyverse)
# 设定工作空间
setwd("D:/李静/接项目/01-10-yinan河流图/")
# 读取原始数据 data.frame
data_otu <- read.csv('otu_Flattening.csv')
# 提取数据中含有A的列
data_otu=data_otu[c(grep("A",colnames(data_otu)))]
# 计算每一行数据的均值，并添加该列到最后
data_otu$mean <- c(rowMeans(data_otu[,2:21]))
data_otu
# 对数据按照mean降序排列，挑选出丰度排名前十的数据
data_otu = arrange(data_otu,desc(mean))[1:10,]
# 提取出行标题
Name = data_otu$Meth_Sal_Name
# 提取出列标题，并且按照规定的时间顺序排列
time_list = c('1','2','3','4')
data_otu

# 遍历行标题与列标题，生成新的dataframe，格式为，时间，类别，值
dataframe = data.frame()
for( i in 1:10){
  for(j in 1:4){
  a =rowMeans( data_otu[c(grep(time_list[j],