# 1.设置工作目录
setwd("D:\\StackedBarChart") # 直接使用R自带函数,不用调用其他R包
图1 原始数据文件格式。行名为样地名,列名为物种名。
# 2. 读入数据
dir()
AOA=read.csv("Aspe.csv",header=TRUE,row.names = 1)
AOA=t(AOA) # 转置数据表,将样本名作为行名
AOA
图2 绘图使用数据格式
3. 绘制Stacked bar Chart(堆叠柱形图)
## 设置颜色
col=rainbow(12)
## 设置图边距,使图例可以完整显示出来
opar <- par