打开RStudio
创建脚本
#install.package 只要安装一次就行
install.packages("siar")
#每次运行siar需要进行library
library(siar)
打好代码后，点击Run运行光标所在行，或者用快捷键Ctrl+Enter
确认siar包安装完成
运行siar包
library(siar)
#创建空间，放在自己指定的目录里，并将所需数据放在该目录下
setwd("D://SIAR")
#读取数据
data<-read.csv("table1.csv",header = T)
sources<-read.csv("table2.csv",header = T)
#构建模型
model1<-siarmcmcdirichletv4(data,sources)
#绘图
siarhistograms(model1)
运行最后一代码后，选择组
选择单独显示来源或全部来源
显示图片
复制到剪贴板
复制选项
打开PPT，粘贴
右击编辑图片
转对象
取消组合
任意调整图表
