・・・・・¡

いろいろ

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(30, -2.5, 2.5), runif(30, -7.5, -5), pch = 21, col = 0, bg = 1, cex = 2.5)

f:id:menseki:20191122010049p:plain