用到的包 library(dplyr) library(ggplot2) library(gridExtra) 加载资源 source("D:\\工作文档\\R\\col_function.r") 设置工作目录 setwd("C:\\Users\\Administrator.ADMIN-20170618T\\Documents\\demo-data\\PPK\\iv infusion 3cp") 读取数据 #read data---- SDTAB<-read.table("SDTAB1",sep="",ski…