Rでタピオカミルクティー
plot.new() plot.window(c(-10, 10), c(-10, 10), asp = 1) polygon(c(-3, -4, 4, 3, -3), c(-8, 1, 1, -8, -8), col = "#ead7a4", border = F) polygon(c(-3, -3 - 10 / 9, 3 + 10 / 9, 3, -3), c(-8, 2, 2, -8, -8), lwd = 2) segments(c(0.8, 1.5), c(-7.6, -7.61), c(1.8, 2.5), c(4.4, 4.39), lwd = 2) points(runif(…
