CF <- split(JG,JG$itemID) #将数据框按题目分割,每个题目做一个图 for(i in 1:40){ #i=4 ############################## grid作图用 TM <- as.data.frame(CF[i]) colnames(TM) <- names(JG) TM <- TM[,-1] tm <- as.data.frame(gather(TM,TM,value,-option)) ### 转数据 tm[,2] <- as.numeric(tm[,<
使用ggplot2循环画图并存图。
最新推荐文章于 2022-12-01 16:43:37 发布
![](https://img-home.csdnimg.cn/images/20240711042549.png)