How to change Y axis on reactive line plot in Plotly RShiny? - r

Question

I'm using Plotly in Rshiny to make reactive plots based on what variables someone checks from a checkbox.
Right now, I have working code that I like, however, I would like to add more descriptive Y-axis labels to the plots, as currently there are none.
My biggest barrier right now is getting code that is flexible enough to change the Y axis names depending on what variables are selected.
I made a reproducible data frame using the Iris dataset. In this example, lets pretend the "Sepal.Length" column is in units of micro-meters (um), whereas "Sepal.Width", "Petal.Length", an "Petal.Width" are all in inches. When a user checks off both "Sepal.Length" and one of the other values, the other value displays as a practically flat line because they are not in the same units/order of magnitude. WITHOUT converting the units (I want to keep all units as they are), how would you go about adding reactive Y-axis labels to these plots (specifically when the "stacked" plot style is selected)? Or a y-axis label such that if "sepal.width", "petal.length", and "petal.width" were selected, the Layered plot would have a Y-axis of inches?
I'll attach my reproducible code below, thanks!
library(shiny)
library(dplyr)
library(stringr)
library(readtext)
library(XML)
library(data.table)
library(ecodata)
library(shinyBS)
library(huxtable)
library(gridExtra)
library(ggplot2)
library(shinyWidgets)
iris_dataset<-iris[,colnames(iris)!="Species"]
iris_dataset$Sepal.Length<-iris_dataset$Sepal.Length*1000
iris_dataset$Year <- c(1873:2022)
###### Define UI ######
ui <- fluidPage(
navbarPage(
"Visualizing Indicators",
tabPanel("Choose Variables & Plot",width=6,
# Input: Selector for choosing dataset
selectInput(inputId = "dataset",
label = "Choose a dataset:",
choices = c("iris_dataset")),
checkboxGroupInput("variable",
label = "Variable selection (Pick up to 5)",
choiceNames = c("Sepal Length","Sepal Width", "Petal Length","Petal Width"),
choiceValues = c("Sepal.Length","Sepal.Width", "Petal.Length","Petal.Width"),
selected = c("Sepal Width",multiple = TRUE)
),
# Input: Select plotting style ----
radioButtons("Plotting_Style", "Select Plotting Style",
choices = c("Layered" = "Layered",
"Stacked" = "Stacked"),
selected = 'Layered'),
mainPanel(width = 12,
# Output
tabsetPanel(type = "tabs",
tabPanel("Plot", plotlyOutput('plot'))
) #close tabsetpanel
)), # mainpanel, tabPanel
) # navbarPage
) # fluidPage
###### Define server function ######
server <- function(input, output) {
dataDf <- reactive({
temp <- get(input$dataset)
})
output$plot <- renderPlotly({
if (input$Plotting_Style == "Layered"){
if (length(input$variable) == 3){ #if only 3 variables are chosen
plot_ly(dataDf(), x = ~Year, y =~get(input$variable[1]),
type = 'scatter', mode = 'lines', name = paste(input$variable[1])) %>%
add_trace(dataDf(), x = ~Year, y = ~get(input$variable[2]),
type = 'scatter', mode = 'lines',name = paste(input$variable[2])) %>%
add_trace(dataDf(), x = ~Year, y = ~get(input$variable[3]),
type = 'scatter', mode = 'lines',name = paste(input$variable[3])) %>%
layout(xaxis = list(title = "Year"))
} else if (length(input$variable) > 1){ #if only 2 variables are chosen
plot_ly(dataDf(), x = ~Year, y =~get(input$variable[1]),
type = 'scatter', mode = 'lines', name = paste(input$variable[1])) %>%
add_trace(dataDf(), x = ~Year, y = ~get(input$variable[2]),
type = 'scatter', mode = 'lines',name = paste(input$variable[2])) %>%
layout(xaxis = list(title = "Year"))
} else { #plot individually if only 1 is selected
fig1<- plot_ly(dataDf(), x = ~Year, y =~get(input$variable[1]),
type = 'scatter', mode = 'lines', name = paste(input$variable[1]))
fig<-subplot(fig1, nrows = 1) %>%
layout(xaxis = list(title = "Year"),
xaxis = list(
zerolinecolor = '#ffff',
zerolinewidth = 2,
gridcolor = 'ffff'),
yaxis = list(
zerolinecolor = '#ffff',
zerolinewidth = 2,
gridcolor = 'ffff'))
fig
}#close if layered option
} else {
if (length(input$variable) == 3){ #if only 3 variables are chosen
fig1<- plot_ly(dataDf(), x = ~Year, y =~get(input$variable[1]),
type = 'scatter', mode = 'lines', name = paste(input$variable[1]))
fig2<- plot_ly(dataDf(), x = ~Year, y = ~get(input$variable[2]),
type = 'scatter', mode = 'lines',name = paste(input$variable[2]))
fig3<- plot_ly(dataDf(), x = ~Year, y =~get(input$variable[3]),
type = 'scatter', mode = 'lines', name = paste(input$variable[3]))
fig<-subplot(fig1, fig2,fig3,nrows = 3, shareX = TRUE) %>%
layout(xaxis = list(title = "Year"),
plot_bgcolor='#e5ecf6',
xaxis = list(
zerolinecolor = '#ffff',
zerolinewidth = 2,
gridcolor = 'ffff'),
yaxis = list(
zerolinecolor = '#ffff',
zerolinewidth = 2,
gridcolor = 'ffff'))
fig
} else if(length(input$variable) == 2){ #plot 2 variables together
fig1<- plot_ly(dataDf(), x = ~Year, y =~get(input$variable[1]),
type = 'scatter', mode = 'lines', name = paste(input$variable[1]))
fig2<- plot_ly(dataDf(), x = ~Year, y = ~get(input$variable[2]),
type = 'scatter', mode = 'lines',name = paste(input$variable[2]))
fig<-subplot(fig1, fig2, nrows = 2, shareX = TRUE) %>%
layout(xaxis = list(title = "Year"),
plot_bgcolor='#e5ecf6',
xaxis = list(
zerolinecolor = '#ffff',
zerolinewidth = 2,
gridcolor = 'ffff'),
yaxis = list(
zerolinecolor = '#ffff',
zerolinewidth = 2,
gridcolor = 'ffff'))
fig
} else { #plot individually if only 1 is selected
fig1<- plot_ly(dataDf(), x = ~Year, y =~get(input$variable[1]),
type = 'scatter', mode = 'lines', name = paste(input$variable[1]))
fig<-subplot(fig1, nrows = 1) %>%
layout(xaxis = list(title = "Year"),
plot_bgcolor='#e5ecf6',
xaxis = list(
zerolinecolor = '#ffff',
zerolinewidth = 2,
gridcolor = 'ffff'),
yaxis = list(
zerolinecolor = '#ffff',
zerolinewidth = 2,
gridcolor = 'ffff'))
fig
}
}#close if stacked option
}) #close renderPlotly
} # server
# Create Shiny object
shinyApp(ui = ui, server = server)