対応のあるデータを線でつないで増減をみるグラフを作りたくなったのでメモ。 サンプルデータ library(tidyverse) ads <- data.frame(id=(1:5) ,x=c(9,6,3,8,7) ,y=c(5,1,2,4,1) ,z=c(8,7,9,5,2)) ads2 <- data.frame() for (i in (2:4)) { ads2 <- union_all(ads2 ,data.frame(id=ads[1] ,param=rep(colnames(ads[i]),nrow(ads)) ,aval =c(ads[,i]))) } ads2$param <- …