рдореИрдВрдиреЗ рдЖрд░ рдорд╛рд░реНрдХрдбрд╛рдЙрди ( .Rmd
) рдлрд╝рд╛рдЗрд▓ рдореЗрдВ for
рд▓реВрдк рдХреЗ рдЕрдВрджрд░ рд╕реЗ рдЗрдВрдЯрд░реИрдХреНрдЯрд┐рд╡ ggplotly
рдЧреНрд░рд╛рдлрд╝ рдХреА рд╢реНрд░реГрдВрдЦрд▓рд╛ рдкреНрд▓реЙрдЯ рдХрд░рдиреЗ рдХреА рдХреЛрд╢рд┐рд╢ рдХреАред рдореЗрд░реА .Rmd
рдлрд╝рд╛рдЗрд▓ рдХреА рд╕рд╛рдордЧреНрд░реА:
``````
рд╢реАрд░реНрд╖рдХ: "рд╢реАрд░реНрд╖рдХ рд░рд╣рд┐рдд"
рдЖрдЙрдЯрдкреБрдЯ: html_document
```{рдЖрд░}
рдкреБрд╕реНрддрдХрд╛рд▓рдп(ggplot2) # рднреВрдЦрдВрдбреЛрдВ рдХреЗ рд▓рд┐рдП
рд▓рд╛рдЗрдмреНрд░реЗрд░реА(рдкреНрд▓реЙрдЯрд▓реА) # рдЗрдВрдЯрд░рдПрдХреНрдЯрд┐рд╡ рдкреНрд▓реЙрдЯ рдХреЗ рд▓рд┐рдП
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
рдлрд╝рд╛рдЗрд▓ред
рдпрд╣ рдЯрд┐рдкреНрдкрдгреА рджреЗрдЦреЗрдВред
рдпрд╣ рд╕реБрдирд┐рд╢реНрдЪрд┐рдд рдХрд░рдиреЗ рдХреЗ рд▓рд┐рдП рдХрд┐ рд╣рдорд╛рд░реЗ рдкрд╛рд╕ рдЗрд╕рдХреЗ рдмреЗрд╣рддрд░ рджрд╕реНрддрд╛рд╡реЗрдЬрд╝ рд╣реИрдВ, рдореИрдВ рдЕрдкрдиреЗ рджрд╕реНрддрд╛рд╡реЗрдЬрд╝ рд░реЗрдкреЛ рдореЗрдВ рдПрдХ рд╕рдорд╕реНрдпрд╛ рдЦреЛрд▓реВрдВрдЧрд╛ ...
рдХреНрдпрд╛ рдпрд╣ рд╕рдорд╕реНрдпрд╛ рд╣рд▓ рд╣реЛ рдЧрдИ рд╣реИ? рдРрд╕рд╛ рд▓рдЧрддрд╛ рд╣реИ рдХрд┐ рдореБрдЭреЗ рдПрдХ рд╣реА рд╕рдорд╕реНрдпрд╛ рд╣реИред
рд╡рд░реНрддрдорд╛рди рд╕рдорд╛рдзрд╛рди рд╣реИ (рдореВрд▓ рдореБрджреНрджреЗ рдореЗрдВ рдЙрджрд╛рд╣рд░рдг рдХреЛрдб рдХреЗ рдЖрдзрд╛рд░ рдкрд░):
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))
рд╣рд╛рд▓рд╛рдВрдХрд┐ рдЬрдм рдореИрдВ рдРрд╕рд╛ рдХрд░рдиреЗ рдХрд╛ рдкреНрд░рдпрд╛рд╕ рдХрд░рддрд╛ рд╣реВрдВ рддреЛ рдореБрдЭреЗ рдХрднреА-рдХрднреА рдкрдВрдбреЛрдХ рд╕реЗ рдореЗрдореЛрд░реА рдПрдХреНрд╕реЗрд╕ рддреНрд░реБрдЯрд┐рдпрд╛рдВ рдорд┐рд▓рддреА рд╣реИрдВред
рд╕рдмрд╕реЗ рдЙрдкрдпреЛрдЧреА рдЯрд┐рдкреНрдкрдгреА
рдХреНрдпрд╛ рдпрд╣ рд╕рдорд╕реНрдпрд╛ рд╣рд▓ рд╣реЛ рдЧрдИ рд╣реИ? рдРрд╕рд╛ рд▓рдЧрддрд╛ рд╣реИ рдХрд┐ рдореБрдЭреЗ рдПрдХ рд╣реА рд╕рдорд╕реНрдпрд╛ рд╣реИред