Plotly: `.Rmd` 파일의 `for` 루프 λ‚΄λΆ€μ˜ `ggplotly`κ°€ μž‘λ™ν•˜μ§€ μ•ŠμŠ΅λ‹ˆλ‹€.

에 λ§Œλ“  2016λ…„ 05μ›” 03일  Β·  3μ½”λ©˜νŠΈ  Β·  좜처: ropensci/plotly

R λ§ˆν¬λ‹€μš΄( .Rmd ) 파일의 for 루프 λ‚΄λΆ€μ—μ„œ 일련의 λŒ€ν™”ν˜• ggplotly κ·Έλž˜ν”„λ₯Ό ν”Œλ‘―ν•˜λ €κ³  ν–ˆμŠ΅λ‹ˆλ‹€. λ‚΄ .Rmd 파일의 λ‚΄μš©:

``````


제λͺ©: "무제"
좜λ ₯: html_document


```{r}
library(ggplot2) # ν”Œλ‘―μš©
library(plotly) # λŒ€ν™”ν˜• ν”Œλ‘―μš©

4개의 λ³€μˆ˜λ₯Ό μš”μΈ λ³€μˆ˜λ‘œ λ³€ν™˜:

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 νŒŒμΌμ„.

κ°€μž₯ μœ μš©ν•œ λŒ“κΈ€

이 λ¬Έμ œκ°€ ν•΄κ²°λ˜μ—ˆμŠ΅λ‹ˆκΉŒ? λ‚˜λŠ” 같은 λ¬Έμ œκ°€μžˆλŠ” 것 κ°™μŠ΅λ‹ˆλ‹€.

λͺ¨λ“  3 λŒ“κΈ€

이 주석을 μ°Έμ‘°ν•˜μ‹­μ‹œμ˜€.

λ¬Έμ„œ μ €μž₯μ†Œμ—μ„œ 문제λ₯Ό μ—΄μ–΄ 이에 λŒ€ν•œ 더 λ‚˜μ€ λ¬Έμ„œκ°€ μžˆλŠ”μ§€ ν™•μΈν•˜κ² μŠ΅λ‹ˆλ‹€...

이 λ¬Έμ œκ°€ ν•΄κ²°λ˜μ—ˆμŠ΅λ‹ˆκΉŒ? λ‚˜λŠ” 같은 λ¬Έμ œκ°€μžˆλŠ” 것 κ°™μŠ΅λ‹ˆλ‹€.

ν˜„μž¬ ν•΄κ²° 방법은 λ‹€μŒκ³Ό κ°™μŠ΅λ‹ˆλ‹€(원본 문제의 예제 μ½”λ“œ 기반).

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μ—μ„œ λ©”λͺ¨λ¦¬ μ•‘μ„ΈμŠ€ 였λ₯˜κ°€ λ°œμƒν•˜μ§€λ§Œ.

이 νŽ˜μ΄μ§€κ°€ 도움이 λ˜μ—ˆλ‚˜μš”?
0 / 5 - 0 λ“±κΈ‰