これは君らにとって小さな一歩だが、私にとって偉大な飛躍なんだ。 library("ggplot2") library("scales") #元データ(適当) df <- data.frame(x=rep(1:10, 2), y=rnorm(20), type=rep(LETTERS[1:2], each=10)) ggplot(df, aes(x=x, y=y)) + #%+replace%でテ…