Bar Chart with Error Bars
library(plotly)library(plyr)data_mean<-ddply(ToothGrowth,c("supp","dose"),summarise,length=mean(len))data_sd<-ddply(ToothGrowth,c("supp","dose"),summarise,length=sd(len))data<-data.frame(data_mean,data_sd$length)data<-rename(data,c("data_sd.length"="sd"))data$dose<-as.factor(data$dose)fig<-plot_ly(data=data[which(data$supp=='OJ'),],x=~dose,y=~length,type='bar',name='OJ',error_y=~list(array=sd,color='#000000'))fig<-fig%>%add_trace(data=data[which(data$supp=='VC'),],name='VC')figScatterplot with Error Bars
library(plotly)library(plyr)data_mean<-ddply(ToothGrowth,c("supp","dose"),summarise,length=mean(len))data_sd<-ddply(ToothGrowth,c("supp","dose"),summarise,length=sd(len))data<-data.frame(data_mean,data_sd$length)data<-rename(data,c("data_sd.length"="sd"))data$dose<-as.factor(data$dose)fig<-plot_ly(data=data[which(data$supp=='OJ'),],x=~dose,y=~length,type='scatter',mode='markers',name='OJ',error_y=~list(array=sd,color='#000000'))fig<-fig%>%add_trace(data=data[which(data$supp=='VC'),],name='VC')figLine Graph with Error Bars
library(plotly)library(plyr)data_mean<-ddply(ToothGrowth,c("supp","dose"),summarise,length=mean(len))data_sd<-ddply(ToothGrowth,c("supp","dose"),summarise,length=sd(len))data<-data.frame(data_mean,data_sd$length)data<-rename(data,c("data_sd.length"="sd"))data$dose<-as.factor(data$dose)fig<-plot_ly(data=data[which(data$supp=='OJ'),],x=~dose,y=~length,type='scatter',mode='lines+markers',name='OJ',error_y=~list(array=sd,color='#000000'))fig<-fig%>%add_trace(data=data[which(data$supp=='VC'),],name='VC')figReference
See https://plotly.com/r/reference for more information and chart attribute options!
What About Dash?
Dash for R is an open-source framework for building analytical applications, with no Javascript required, and it is tightly integrated with the Plotly graphing library.
Learn about how to install Dash for R at https://dashr.plot.ly/installation.
Everywhere in this page that you see fig, you can display the same figure in a Dash for R application by passing it to the figure argument of the Graph component from the built-in dashCoreComponents package like this:
library(plotly)fig<-plot_ly()# fig <- fig %>% add_trace( ... )# fig <- fig %>% layout( ... ) library(dash)library(dashCoreComponents)library(dashHtmlComponents)app<-Dash$new()app$layout(htmlDiv(list(dccGraph(figure=fig))))app$run_server(debug=TRUE,dev_tools_hot_reload=FALSE)