Load data and Libraries

https://r4ds.had.co.nz/data-visualisation.html

if (!("ggplot2" %in% installed.packages())) {
    install.packages('ggplot2')
}
library('ggplot2')
## Warning: package 'ggplot2' was built under R version 4.4.1
if (!("devtools" %in% installed.packages())) {
    install.packages('devtools')
}
if (!("canvasXpress" %in% installed.packages())) {
    devtools::install_github('neuhausi/canvasXpress')
}
#devtools::install_local("~/git/canvas/R/canvasXpress.tar.gz", build_manual = TRUE, upgrade = "always")
library('canvasXpress')

Box plot

bp <- ggplot(ToothGrowth, aes(x=factor(dose), y=len, group = dose)) + geom_boxplot()
bp

canvasXpress(bp)

scatter plot

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

canvasXpress(sp)

Box plot : change y axis range

bp2 <- bp + ylim(0,50)
bp2

canvasXpress(bp2)

scatter plots : change x and y limits

sp2 <- sp + xlim(5, 40) + ylim(0, 150)
sp2
## Warning: Removed 2 rows containing missing values or values outside the scale range
## (`geom_point()`).

canvasXpress(sp2)

Change x and y axis labels, and limits

sp3 <- sp + scale_x_continuous(name="Speed of cars", limits=c(0, 30)) + scale_y_continuous(name="Stopping distance", limits=c(0, 150))
sp3

canvasXpress(sp3)

Default scatter plot

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

canvasXpress(sp4)

Log transformation using scale_xx() possible values for trans : ‘log2’, ‘log10’,‘sqrt’

sp5 <- sp4 + scale_x_continuous(trans='log2') + scale_y_continuous(trans='log2')
sp5

canvasXpress(sp5)

Sqrt transformation

sp6 <- sp4 + scale_y_sqrt()
sp6

canvasXpress(sp6)

Reverse coordinates

sp7 <- sp4 + scale_y_reverse() 
sp7

canvasXpress(sp7)

Possible values for x and y : “log2”, “log10”, “sqrt”, …

sp8 <- sp4 + coord_trans(x="log2", y="log2")
sp8

canvasXpress(sp8)

log-log plot without log tick marks

library(MASS) # to access Animals data sets
library(scales) # to access break formatting functions
## Warning: package 'scales' was built under R version 4.4.1
# x and y axis are transformed and formatted
p2 <- ggplot(Animals, aes(x = body, y = brain)) + geom_point() +
     scale_x_log10(breaks = trans_breaks("log10", function(x) 10^x),
              labels = trans_format("log10", math_format(10^.x))) +
     scale_y_log10(breaks = trans_breaks("log10", function(x) 10^x),
              labels = trans_format("log10", math_format(10^.x))) +
     theme_bw()
p2

canvasXpress(p2)

Show log tick marks

p3 <- p2 + annotation_logticks()
p3

canvasXpress(p3)