title: "Multiple Columns"
output: flexdashboard::flex_dashboard
library(flexdashboard)
library(RODBC)
library(dplyr)
library(data.table) ## 可以累计
library(DT)
library(magrittr)
library(ggplot2)
library(plotly)
library(gridExtra)
library("ggplot2")
wdata <- data.frame(
sex=factor(rep(c("F", "M"), each=200)),
weight=c(rnorm(200, 55), rnorm(200, 58))
)
gg <- ggplot(data = wdata,aes(x = weight, fill=sex)) + geom_histogram()
ggplotly(gg)
ggplotly(gg)
ggplotly(gg)
ggplotly(gg)
###1
ggplotly(gg)
###2
ggplotly(gg)
###3
ggplotly(gg)
###1
ggplotly(gg)
###2
ggplotly(gg)
###3
ggplotly(gg)
###4
ggplotly(gg)
###5
ggplotly(gg)
###6
ggplotly(gg)
ggplotly(gg)
ggplotly(gg)
ggplotly(gg)
ggplotly(gg)