powered by
sex.symbols(x, y, sex = 1, col = par("fg"), lwd = par("lwd"), cex = 1)
x
y
lwd
col
par
x <- runif(20, 0, 10) y <- runif(20, 0, 200) plot(x, y, type = "n") sex.symbols(x, y, sex = 1:2, cex = 1.5, lwd = c(1.5, 4), col = c("blue", "red"))
Run the code above in your browser using DataLab