λ²λ‘λ λ κ° μ΄μμ λ³μλ₯Ό ννν νλ‘―μμ λ³μκ° μ΄λ»κ² ννλμλμ§λ₯Ό κ·Έ λͺ¨μμΌλ‘ μ€λͺ
νλ μ λ³΄λ‘ legend() ν¨μλ₯Ό μ¬μ©νμ¬ κ·Έλ¦°λ€.
λ²λ‘μ μ’
λ₯λ ν¬κ² μΈ κ°μ§κ° μλ€. 첫째λ μ μ ꡬλΆνλ λ²λ‘λ‘ μ°μ λμ²λΌ μ μΌλ‘ νννλ νλ‘―μ μ¬μ©νλ€. λμ§Έλ μ μΌλ‘ ꡬλΆνλ λ²λ‘λ‘ μΆμΈμ κ³Ό κ°μ μ κ·Έλνμ μ΄μ©λλ κ²μ΄λ€. μ΄ λκ°μ§λ₯Ό νΌν©ν ννμ λ²λ‘λ κ°λ₯νλ€. λ§μ§λ§μ λ©΄μΌλ‘ ꡬλΆλλ λ²λ‘λ‘ νμ€ν κ·Έλ¨μ΄λ λ§λ κ·Έλνμ μ΄μ©λλ€. μ μ μ¬μ©νλ λ²λ‘λ pch μΈμλ₯Ό, μ μ μ¬μ©νλ λ²λ λ lty μΈμλ₯Ό μ΄μ©νλλ°, λ κ°μ§ μΈμλ₯Ό λ€ μ¬μ©νλ©΄ μ κ³Ό μ μ νΌν©ν λ²λ‘λ₯Ό λ§λ€ μ μλ€. λ©΄μ μ¬μ©νλ λ²λ‘λ fill μΈμλ₯Ό μ΄μ©νλ€.
λ²λ‘μ μμΉλ₯Ό μ§μ νλ λ°©λ²μλ μΈ κ°μ§κ° μλ€. μΌλ¨ 첫 λ²μ§Έλ (x,y) μ’νλ₯Ό μ΄μ©νλ λ°©λ²μ΄κ³ , λ λ²μ§Έλ μμΉλ₯Ό λνλ΄λ λ¬Έμλ₯Ό μ΄μ©νλ λ°©λ²μ΄λ€. λ§μ§λ§μΌλ‘ μΈ λ²μ§Έλ locator() ν¨μλ₯Ό μ΄μ©νλ λ°©λ²μΌλ‘ 첫 λ²μ§Έ λ°©λ²μ μμ©ν κ²μ΄λ€. locator() ν¨μκ° νΈμΆλλ©΄ μμκ° λͺ¨μμ λ§μ°μ€ 컀μκ° λνλλλ°, νλ‘― μμμ ν΄λ¦νλ©΄ ν΄λΉ μ’νμ xμ y κ°μ λ°ννλ€. κ·Έ μ’νμ λ²λ‘λ₯Ό μμ±ν μ μκΈ° λλ¬Έμ μ¬μ©μκ° μμλ‘ λΉ κ³΅κ°μ μ νν΄μ λ²λ‘λ₯Ό μμΉμν¬ λ μ¬μ©ν μ μλ μμ£Ό μ μ©ν λ°©λ²μ΄λ€.
plot(1:10, type = "n", xlab = "", ylab = "", main = "legend")
legend("bottomright", "(x,y)", pch = 1, title = "bottomright")
legend("bottom", "(x,y)", pch = 1, title = "bottom")
legend("bottomleft", "(x,y)", pch = 1, title = "bottomleft")
legend("left", "(x,y)", pch = 1, title = "left")
legend("topleft", "(x,y)", pch = 1, title = "topleft")
legend("top", "(x,y)", pch = 1, title = "top")
legend("topright", "(x,y)", pch = 1, title = "topright")
legend("right", "(x,y)", pch = 1, title = "right")
legend("center", "(x,y)", pch = 1, title = "center")
legends <- c("Legend1", "Legend2")
legend(3, 8, legend = legends, pch = 1:2, col = 1:2)
legend(7, 8, legend = legends, pch = 1:2, col = 1:2, lty = 1:2)
legend(3, 4, legend = legends, fill = 1:2)
legend(7, 4, legend = legends, fill = 1:2, density = 30)
legend(locator(1), legend = "Locator", fill = 1)
μΌλ°μ μΌλ‘ κ³ μμ€ κ·Έλν½ ν¨μλ₯Ό μ΄μ©ν΄μ νλ‘―μ 그리면 μ’νμΆκ³Ό κ° μΆλ€μ μ΄λ¦μ΄ μλμΌλ‘ μΆλ ₯λμ§λ§, νμΌνλ λͺ¨μ΅μΌλ‘ μΆλ ₯λκΈ° λλ¬Έμ μ¬μ©μκ° λ€λ₯Έ λͺ¨μμ΄λ μμΉμ μΆλ ₯νκ³ μ νλ€λ©΄ μ μμ€ κ·Έλν½ ν¨μλ‘ κ·Έλ €μΌ νλ€.
axis() ν¨μλ side μΈμλ₯Ό μ΄μ©ν΄μ μ’νμΆμ 그릴 μμΉλ₯Ό μ§μ νλ€. μ΄ ν¨μμμλ outer μΈμλ₯Ό μ΄μ©ν΄μ λ°κΉ₯ λ§μ§μ μ’νμΆμ κ·Έλ¦¬κ³ , line μΈμλ₯Ό μ¬μ©ν΄μ μ’νμΆμ 그릴 λΌμΈ μμΉλ₯Ό μ€μ ν μ μλ€. μ΄λ mtext() ν¨μμ κ°λ€.
col μΈμλ μ’νμΆμ μ κ³Ό ν±(ticks) λ§ν¬μ μμμ μ§μ νκ³ , col.axis μΈμλ ν± λ§ν¬μ λΌλ²¨ μμμ μ§μ νλ€. λ§μ½ λ κ°μ μΈμλ₯Ό λμμ μ¬μ©ν κ²½μ° ν± λ§ν¬μ μμμ col μΈμλ₯Ό λ°λ₯΄κ³ , ν± λ§ν¬μ λΌλ²¨μ col.axis μΈμλ₯Ό λ°λ₯Έλ€. μ΄ λ tick μΈμμ κ°μ΄ FALSEλ©΄ λΌλ²¨μ νμνκ³ , ν± λ§ν¬λ νμνμ§ μλλ€. λ at μΈμλ κΈ°μ€μ μ μ μνκ³ , pos(position) μΈμλ μ’νμΆμ λ§μ§μ΄ μλ νλ‘― μμμ μΆλ ₯νλ μμΉλ₯Ό μ§μ νλ€.
op <- par(no.readonly = TRUE)
par(oma = c(0, 0, 2, 0))
plot(1:5, type = "l", main = " axis", axes = FALSE, xlab = "", ylab = "")
axis(side = 1, at = 1:5, labels = LETTERS[1:5], line = 2)
# tick = F μ΄λ―λ‘ col.axisλ μλ―Έ μμ
axis(side = 2, tick = F, col.axis = "blue")
axis(side = 3, outer = T)
axis(side = 3, at = c(1, 3, 5), pos = 3, col = "blue", col.axis = "red")
axis(side = 4, lty = 2, lwd = 2)
par(op)
grid() ν¨μλ μ’ννλ©΄μ 격μλ₯Ό κ·Έλ¦°λ€. 격μλ₯Ό 그리면 μ’ν νλ©΄μ μ λ€μ λν μ§μμ μΌλ‘ μμ©ν΄μ ν΄λΉ μ’ν κ°μ μμΉλ₯Ό μ½κ² νμ ν μκ° μλ€.
op <- par(no.readonly = TRUE)
par(mar = c(4, 4, 2, 2), mfrow = c(2, 1))
plot(iris$Sepal.Length, iris$Sepal.Width, pch = 16, col = as.integer(iris$Species))
grid()
title("grid()")
plot(iris$Sepal.Length, iris$Sepal.Width, pch = 16, col = as.integer(iris$Species))
grid(3, 4, lty = 1, lwd = 1.2, col = "blue")
title("grid(3, 4, lty = 1, lwd = 2, col = \"blue\")")
par(op)
첫 λ²μ§Έ κ·Έλ¦Όμ grid() ν¨μμ κΈ°λ³ΈνμΌλ‘ 격μλ xμΆκ³Ό yμΆμ ν± λ§ν¬μ μ μ κ·Έμ΄ λ§λ€μ΄μ§λ€. μ΄λ 격μμ μ μμμ "lightgray", μ μ μ νμ "dotted"λ‘ κ·Έλ €μ§λ€. λ λ²μ§Έ κ·Έλ¦Όμμλ xμΆμλ 3κ°μ 격μ, yμΆμλ 4κ°μ 격μλ₯Ό μμ±νλ€. μ μ μμμ νλμ, κ΅΅κΈ°λ 2λ‘ μ§μ λλ€.
κ·Έλνμ μΌμ°¨μ μ λ³΄μΈ λ¬κ·Έλ₯Ό μΆκ°νλ ν¨μλ€. λ¬κ·Έλ λ°μ΄ν°λ€μ μΌμ°¨μμ μ’νμΆμ νμνλ λ°©λ²μΌλ‘ μλ£μ λ°λμ λ°λΌ λ λͺ¨μμ μ μ΄ κ·Έλ €μ§λ€.
op <- par(no.readonly = TRUE)
par(mar = c(4, 4, 2, 2), mfrow = c(2, 1))
plot(density(quakes$lat), main = "rug(lat)")
rug(quakes$lat)
plot(density(quakes$long), main = "side = 3, col = 'blue', ticksize = 0.04")
rug(quakes$long, side = 3, col = "blue", ticksize = 0.04)
par(op)
μ μ½λμμ μ¬μ©ν density() ν¨μλ λ°μ΄ν°μ λ°λλ₯Ό μΆμ νλ ν¨μλ€. 첫 λ²μ§Έ κ·Έλ¦Όμμλ κΈ°λ³Έ ννμ λ¬κ·Έλ₯Ό λ§λλλ°, κ·Έ μμΉλ μλμͺ½ (side 1)μ μμ±λλ€. λ λ²μ§Έ κ·Έλ¦Όμμλ μμͺ½(side 3)μ λ¬κ·Έλ₯Ό λ§λ€λ©° μ μ μμμ νλμ, ticksizeλ 0.04λ‘ μ§μ νλ€. λ°λ곑μ μ λμ΄κ° λμμλ‘ λ¬κ·Έμ λ°λκ° ν¬κ² μΆλ ₯λλ€λ κ²μ μ μ μλ€. μ΄μ°¨μ ν둯보λ€λ μ λ³΄κ° λΆμ‘±νμ§λ§ λ°λμ ν¬κΈ°λ₯Ό λΉκ΅νλ μμ€μ μ 보λ‘λ κ°μΉκ° μλ€.
chull() ν¨μλ μ’ν μ λ€μ΄ μ§ν©μ΄ μ£Όμ΄μ‘μ λ λͺ¨λ μ μ ν¬ν¨νλ λ³Όλ‘ν ν λ리 μ’ν μ λ€μ μμλ₯Ό ꡬνλ ν¨μλ€. chull() ν¨μλ μ§μ νλ‘―μ 그리μ§λ μμ§λ§, νλ‘―μ 그리λ μ λ³΄λ‘ μ΄μ©λλ€.
set.seed(1)
dot <- matrix(rnorm(200), ncol = 2)
plot(dot)
chull.data <- chull(dot)
polygon(dot[chull.data, ], angle = 45, density = 15, col = "red")
title(main = "Polygon by chull")