R λ§ν¬λ€μ΄( .Rmd
) νμΌμ for
루ν λ΄λΆμμ μΌλ ¨μ λνν ggplotly
κ·Έλνλ₯Ό νλ‘―νλ €κ³ νμ΅λλ€. λ΄ .Rmd
νμΌμ λ΄μ©:
``````
μ λͺ©: "무μ "
μΆλ ₯: html_document
```{r}
library(ggplot2) # νλ‘―μ©
library(plotly) # λνν νλ‘―μ©
factor_vars <- c("vs", "am", "gear", "carb")
mtcars[factor_vars] <- data.frame(Map(as.factor, mtcars[factor_vars]))
(factor_varsμ VAR) {
cat(paste("λ³μ λ³μ:", VAR))
# 루ν λ΄μμ "VAR"μ λ΄μ©μ΄ λ³κ²½λ©λλ€.
p <- ggplot(mtcars, aes_string(x = "mpg", y = "wt", μμ = VAR)) + geom_point()
# Print an interactive plot
print(ggplotly(p))
}
```
``````
RStudio
μμ Knit HTML
λ²νΌμ λλ¦
λλ€. λΆννλ .html
νμΌμλ λνν νλ‘―μ΄ νλλ μμ΅λλ€.
μ§λ¬Έ: κ·Έλνκ° νμλμ§ μλ μ΄μ λ 무μμ
λκΉ? κ·Έλ¦¬κ³ Rmd
νμΌμμ for
루νμ ν¨κ» λνν νλ‘―μ λ§λ€λ €λ©΄ μ΄λ»κ² ν΄μΌ ν©λκΉ?
μΆμ : λ΄κ° μ¬μ©νλ κ²½μ° print(p)
λμ print(ggplotly(p))
, ggplot2
νλ‘― κ²°κ³Όμ νμ .html
νμΌμ.
μ΄ μ£Όμμ μ°Έμ‘°νμμμ€.
λ¬Έμ μ μ₯μμμ λ¬Έμ λ₯Ό μ΄μ΄ μ΄μ λν λ λμ λ¬Έμκ° μλμ§ νμΈνκ² μ΅λλ€...
μ΄ λ¬Έμ κ° ν΄κ²°λμμ΅λκΉ? λλ κ°μ λ¬Έμ κ°μλ κ² κ°μ΅λλ€.
νμ¬ ν΄κ²° λ°©λ²μ λ€μκ³Ό κ°μ΅λλ€(μλ³Έ λ¬Έμ μ μμ μ½λ κΈ°λ°).
plotlist = list()
for (VAR in factor_vars) {
p <- ggplot(mtcars, aes_string(x = "mpg", y = "wt", color = VAR)) + geom_point()
plotlist[[VAR]] = ggplotly(p)
}
htmltools::tagList(setNames(plotlist, NULL))
μ΄ μμ μ μννλ €κ³ ν λ λλλ‘ pandocμμ λ©λͺ¨λ¦¬ μ‘μΈμ€ μ€λ₯κ° λ°μνμ§λ§.
κ°μ₯ μ μ©ν λκΈ
μ΄ λ¬Έμ κ° ν΄κ²°λμμ΅λκΉ? λλ κ°μ λ¬Έμ κ°μλ κ² κ°μ΅λλ€.