Log Plots in ggplot2

How to make Log Plots in ggplot2 with Plotly.

Plotly Studio: Transform any dataset into an interactive data application in minutes with AI. Sign up for early access now.

Setting axis to log2 scale

library(plotly)
library(ggplot2)

ToothGrowth$dose <- as.factor(ToothGrowth$dose)

p <- ggplot(cars, aes(x = speed, y = dist)) +
  geom_point()

p <- p + scale_x_continuous(trans = 'log2') +
  scale_y_continuous(trans = 'log2')

ggplotly(p)

You can also format the axis ticks to be displayed as exponents.

library(plotly)
library(ggplot2)
library(scales)

ToothGrowth$dose <- as.factor(ToothGrowth$dose)

p <- ggplot(cars, aes(x = speed, y = dist)) +
  geom_point()

p <- p + scale_x_continuous(trans = 'log2') +
  scale_y_continuous(trans = 'log2')

p <- p + scale_y_continuous(trans = log2_trans(),
    breaks = trans_breaks("log2", function(x) 2^x),
    labels = trans_format("log2", math_format(2^.x)))


ggplotly(p)

Setting axis to log10 scale

library(plotly)
library(ggplot2)

ToothGrowth$dose <- as.factor(ToothGrowth$dose)

p <- ggplot(cars, aes(x = speed, y = dist)) +
  geom_point()

p <- p + scale_y_log10()


ggplotly(p)

ternatively, you can use the function scale_y_continuous(trans = "log10"), which allows to transform breaks and the format of labels.

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)