Во-первых, набор данных.
df1 <- read.table(text = "
Date x1 x2 x3 x4
1/2/2018 500000 10000 10 80000
1/3/2018 600000 15000 13 70000
1/4/2018 300000 8000 7 40000
", header = TRUE)
df1$Date <- as.Date(df1$Date, "%m/%d/%Y")
Ниже будут построены три линии в масштабе log10
.
library(ggplot2)
long <- reshape2::melt(df1, id.vars = "Date")
ggplot(long, aes(x = Date, y = value,
group = variable, colour = variable)) +
geom_line() +
scale_y_log10()