Plotly: `ggplotly` рдЕрдВрджрд░ рд╕реЗ `рдХреЗ рд▓рд┐рдП` рд▓реВрдк `.Rmd` рдлрд╝рд╛рдЗрд▓ рдореЗрдВ рдХрд╛рдо рдирд╣реАрдВ рдХрд░рддрд╛ рд╣реИ

рдХреЛ рдирд┐рд░реНрдорд┐рдд 3 рдордИ 2016  ┬╖  3рдЯрд┐рдкреНрдкрдгрд┐рдпрд╛рдБ  ┬╖  рд╕реНрд░реЛрдд: ropensci/plotly

рдореИрдВрдиреЗ рдЖрд░ рдорд╛рд░реНрдХрдбрд╛рдЙрди ( .Rmd ) рдлрд╝рд╛рдЗрд▓ рдореЗрдВ for рд▓реВрдк рдХреЗ рдЕрдВрджрд░ рд╕реЗ рдЗрдВрдЯрд░реИрдХреНрдЯрд┐рд╡ ggplotly рдЧреНрд░рд╛рдлрд╝ рдХреА рд╢реНрд░реГрдВрдЦрд▓рд╛ рдкреНрд▓реЙрдЯ рдХрд░рдиреЗ рдХреА рдХреЛрд╢рд┐рд╢ рдХреАред рдореЗрд░реА .Rmd рдлрд╝рд╛рдЗрд▓ рдХреА рд╕рд╛рдордЧреНрд░реА:

``````


рд╢реАрд░реНрд╖рдХ: "рд╢реАрд░реНрд╖рдХ рд░рд╣рд┐рдд"
рдЖрдЙрдЯрдкреБрдЯ: html_document


```{рдЖрд░}
рдкреБрд╕реНрддрдХрд╛рд▓рдп(ggplot2) # рднреВрдЦрдВрдбреЛрдВ рдХреЗ рд▓рд┐рдП
рд▓рд╛рдЗрдмреНрд░реЗрд░реА(рдкреНрд▓реЙрдЯрд▓реА) # рдЗрдВрдЯрд░рдПрдХреНрдЯрд┐рд╡ рдкреНрд▓реЙрдЯ рдХреЗ рд▓рд┐рдП

4 рдЪрд░ рдХреЛ рдХрд╛рд░рдХ рдЪрд░ рдореЗрдВ рдмрджрд▓реЗрдВ:

factor_vars <- c ("рдмрдирд╛рдо", "am", "рдЧрд┐рдпрд░", "рдХрд╛рд░реНрдм")
mtcars[factor_vars] <- data.frame(Map(as.factor, mtcars[factor_vars]))

рдХреЗ рд▓рд┐рдП (FAR_vars рдореЗрдВ VAR) {
рдмрд┐рд▓реНрд▓реА (рдкреЗрд╕реНрдЯ ("рдХрд╛рд░рдХ рдЪрд░:", VAR))
# "VAR" рдХреА рд╕рд╛рдордЧреНрд░реА рд▓реВрдк рдХреЗ рдЕрдВрджрд░ рдмрджрд▓ рдЬрд╛рддреА рд╣реИ
p <- ggplot(mtcars, aes_string(x = "mpg", y = "wt", color = VAR)) + geom_point ()

# Print an interactive plot
print(ggplotly(p))

}

```
``````

рдореИрдВ Knit HTML рдмрдЯрди рдХреЛ RStudio рдореЗрдВ рджрдмрд╛рддрд╛ рд╣реВрдВред рджреБрд░реНрднрд╛рдЧреНрдп рд╕реЗ, .html рдлрд╝рд╛рдЗрд▓ рдореЗрдВ рдХреЛрдИ рднреА рдЗрдВрдЯрд░реЗрдХреНрдЯрд┐рд╡ рдкреНрд▓реЙрдЯ рджрд┐рдЦрд╛рдИ рдирд╣реАрдВ рджреЗрддрд╛ рд╣реИред

рдкреНрд░рд╢реНрди: рд░реЗрдЦрд╛рдВрдХрди рдХреНрдпреЛрдВ рдирд╣реАрдВ рдкреНрд▓реЙрдЯ рдХрд┐рдП рдЬрд╛рддреЗ рд╣реИрдВ? рдФрд░ рдореИрдВ Rmd рдлрд╝рд╛рдЗрд▓ рдореЗрдВ for рд▓реВрдк рдХреЗ рд╕рд╛рде рд╕рдВрдпреЛрдЬрди рдореЗрдВ рдЗрдВрдЯрд░реЗрдХреНрдЯрд┐рд╡ рдкреНрд▓реЙрдЯ рдХреИрд╕реЗ рдмрдирд╛ рд╕рдХрддрд╛ рд╣реВрдВ?

ps рдЕрдЧрд░ рдореИрдВ рдХрд╛ рдЙрдкрдпреЛрдЧ 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))

рд╣рд╛рд▓рд╛рдВрдХрд┐ рдЬрдм рдореИрдВ рдРрд╕рд╛ рдХрд░рдиреЗ рдХрд╛ рдкреНрд░рдпрд╛рд╕ рдХрд░рддрд╛ рд╣реВрдВ рддреЛ рдореБрдЭреЗ рдХрднреА-рдХрднреА рдкрдВрдбреЛрдХ рд╕реЗ рдореЗрдореЛрд░реА рдПрдХреНрд╕реЗрд╕ рддреНрд░реБрдЯрд┐рдпрд╛рдВ рдорд┐рд▓рддреА рд╣реИрдВред

рдХреНрдпрд╛ рдпрд╣ рдкреГрд╖реНрда рдЙрдкрдпреЛрдЧреА рдерд╛?
0 / 5 - 0 рд░реЗрдЯрд┐рдВрдЧреНрд╕

рд╕рдВрдмрдВрдзрд┐рдд рдореБрджреНрджреЛрдВ

d4tagirl picture d4tagirl  ┬╖  7рдЯрд┐рдкреНрдкрдгрд┐рдпрд╛рдБ

pssguy picture pssguy  ┬╖  7рдЯрд┐рдкреНрдкрдгрд┐рдпрд╛рдБ

ghost picture ghost  ┬╖  7рдЯрд┐рдкреНрдкрдгрд┐рдпрд╛рдБ

robertleitner picture robertleitner  ┬╖  5рдЯрд┐рдкреНрдкрдгрд┐рдпрд╛рдБ

crarlus picture crarlus  ┬╖  3рдЯрд┐рдкреНрдкрдгрд┐рдпрд╛рдБ