par(mfrow = c(1,1))
n <- 100
xx <- c(0:n, n:0)
yy <- c(c(0, cumsum(stats::rnorm(n))), rev(c(0, cumsum(stats::rnorm(n)))))
plot (xx, yy, type = "n", xlab = "Time", ylab = "Distance")
polygon(xx, yy, col = "aliceblue", border = "red")
title("Distance Between Brownian Motions")
polygon(xx, yy, col = "antiquewhite", border = "red")
polygon(xx, yy, col = "aquamarine", border = "red")
polygon(xx, yy, col = "azure", border = "red")
polygon(xx, yy, col = "beige", border = "red")
polygon(xx, yy, col = "bisque", border = "red")
polygon(xx, yy, col = "black", border = "red")
polygon(xx, yy, col = "blanchedalmond", border = "red")
polygon(xx, yy, col = "blue", border = "red")
polygon(xx, yy, col = "blueviolet", border = "red")
polygon(xx, yy, col = "brown", border = "red")
polygon(xx, yy, col = "burlywood", border = "red")
polygon(xx, yy, col = "cadetblue", border = "red")
polygon(xx, yy, col = "chartreuse", border = "red")
polygon(xx, yy, col = "chocolate", border = "red")
polygon(xx, yy, col = "coral", border = "red")
polygon(xx, yy, col = "cornflowerblue", border = "red")
polygon(xx, yy, col = "cornsilk", border = "red")
polygon(xx, yy, col = "cyan", border = "red")
polygon(xx, yy, col = "darkblue", border = "red")
polygon(xx, yy, col = "darkcyan", border = "red")
polygon(xx, yy, col = "darkgoldenrod", border = "red")
polygon(xx, yy, col = "darkgray", border = "red")
polygon(xx, yy, col = "darkgreen", border = "red")
polygon(xx, yy, col = "darkkhaki", border = "red")
polygon(xx, yy, col = "darkmagenta", border = "red")
polygon(xx, yy, col = "darkolivegreen", border = "red")
polygon(xx, yy, col = "darkorange", border = "red")
polygon(xx, yy, col = "darkorchid", border = "red")
polygon(xx, yy, col = "darkred", border = "red")
polygon(xx, yy, col = "darksalmon", border = "red")
polygon(xx, yy, col = "darkseagreen", border = "red")
polygon(xx, yy, col = "darkslateblue", border = "red")
polygon(xx, yy, col = "darkslategray", border = "red")
polygon(xx, yy, col = "darkturquoise", border = "red")
polygon(xx, yy, col = "darkviolet", border = "red")
polygon(xx, yy, col = "deeppink", border = "red")
polygon(xx, yy, col = "deepskyblue", border = "red")
polygon(xx, yy, col = "dimgray", border = "red")
polygon(xx, yy, col = "dodgerblue", border = "red")
polygon(xx, yy, col = "firebrick", border = "red")
polygon(xx, yy, col = "forestgreen", border = "red")
polygon(xx, yy, col = "gainsboro", border = "red")
polygon(xx, yy, col = "ghostwhite", border = "red")
polygon(xx, yy, col = "gold", border = "red")
polygon(xx, yy, col = "goldenrod", border = "red")
polygon(xx, yy, col = "gray", border = "red")
polygon(xx, yy, col = "green", border = "red")
polygon(xx, yy, col = "greenyellow", border = "red")
polygon(xx, yy, col = "honeydew", border = "red")
polygon(xx, yy, col = "hotpink", border = "red")
polygon(xx, yy, col = "indianred", border = "red")
polygon(xx, yy, col = "ivory", border = "red")
polygon(xx, yy, col = "khaki", border = "red")
polygon(xx, yy, col = "lavender", border = "red")
polygon(xx, yy, col = "lavenderblush", border = "red")
polygon(xx, yy, col = "lawngreen", border = "red")
polygon(xx, yy, col = "lemonchiffon", border = "red")
polygon(xx, yy, col = "lightblue", border = "red")
polygon(xx, yy, col = "lightcoral", border = "red")
polygon(xx, yy, col = "lightcyan", border = "red")
polygon(xx, yy, col = "lightgoldenrodyellow", border = "red")
polygon(xx, yy, col = "lightgreen", border = "red")
polygon(xx, yy, col = "lightgrey", border = "red")
polygon(xx, yy, col = "lightpink", border = "red")
polygon(xx, yy, col = "lightsalmon", border = "red")
polygon(xx, yy, col = "lightseagreen", border = "red")
polygon(xx, yy, col = "lightskyblue", border = "red")
polygon(xx, yy, col = "lightslategray", border = "red")
polygon(xx, yy, col = "lightsteelblue", border = "red")
polygon(xx, yy, col = "lightyellow", border = "red")
polygon(xx, yy, col = "limegreen", border = "red")
polygon(xx, yy, col = "linen", border = "red")
polygon(xx, yy, col = "magenta", border = "red")
polygon(xx, yy, col = "maroon", border = "red")
polygon(xx, yy, col = "mediumaquamarine", border = "red")
polygon(xx, yy, col = "mediumblue", border = "red")
polygon(xx, yy, col = "mediumorchid", border = "red")
polygon(xx, yy, col = "mediumpurple", border = "red")
polygon(xx, yy, col = "mediumseagreen", border = "red")
polygon(xx, yy, col = "mediumslateblue", border = "red")
polygon(xx, yy, col = "mediumspringgreen", border = "red")
polygon(xx, yy, col = "mediumturquoise", border = "red")
polygon(xx, yy, col = "mediumvioletred", border = "red")
polygon(xx, yy, col = "midnightblue", border = "red")
polygon(xx, yy, col = "mintcream", border = "red")
polygon(xx, yy, col = "mistyrose", border = "red")
polygon(xx, yy, col = "moccasin", border = "red")
polygon(xx, yy, col = "navajowhite", border = "red")
polygon(xx, yy, col = "navy", border = "red")
polygon(xx, yy, col = "oldlace", border = "red")
polygon(xx, yy, col = "olivedrab", border = "red")
polygon(xx, yy, col = "orange", border = "red")
polygon(xx, yy, col = "orangered", border = "red")
polygon(xx, yy, col = "orchid", border = "red")
polygon(xx, yy, col = "palegoldenrod", border = "red")
polygon(xx, yy, col = "palegreen", border = "red")
polygon(xx, yy, col = "paleturquoise", border = "red")
polygon(xx, yy, col = "palevioletred", border = "red")
polygon(xx, yy, col = "papayawhip", border = "red")
polygon(xx, yy, col = "peachpuff", border = "red")
polygon(xx, yy, col = "peru", border = "red")
polygon(xx, yy, col = "pink", border = "red")
polygon(xx, yy, col = "plum", border = "red")
polygon(xx, yy, col = "powderblue", border = "red")
polygon(xx, yy, col = "purple", border = "red")
polygon(xx, yy, col = "rosybrown", border = "red")
polygon(xx, yy, col = "royalblue", border = "red")
polygon(xx, yy, col = "saddlebrown", border = "red")
polygon(xx, yy, col = "salmon", border = "red")
polygon(xx, yy, col = "sandybrown", border = "red")
polygon(xx, yy, col = "seagreen", border = "red")
polygon(xx, yy, col = "seashell", border = "red")
polygon(xx, yy, col = "sienna", border = "red")
polygon(xx, yy, col = "skyblue", border = "red")
polygon(xx, yy, col = "slateblue", border = "red")
polygon(xx, yy, col = "slategray", border = "red")
polygon(xx, yy, col = "snow", border = "red")
polygon(xx, yy, col = "springgreen", border = "red")
polygon(xx, yy, col = "steelblue", border = "red")
polygon(xx, yy, col = "tan", border = "red")
polygon(xx, yy, col = "thistle", border = "red")
polygon(xx, yy, col = "tomato", border = "red")
polygon(xx, yy, col = "turquoise", border = "red")
polygon(xx, yy, col = "violet", border = "red")
polygon(xx, yy, col = "wheat", border = "red")
polygon(xx, yy, col = "white", border = "red")
polygon(xx, yy, col = "whitesmoke", border = "red")
polygon(xx, yy, col = "yellow", border = "red")
polygon(xx, yy, col = "yellowgreen", border = "red")
参考文献:https://blog.csdn.net/weixin_46587777/article/details/124973766
开发工具:RStudio 2022.12.0
微信Alt+A截屏工具