1.6. Создание графиков с использованием pivot_longer

library(dplyr)

## 
## Присоединяю пакет: 'dplyr'

## Следующие объекты скрыты от 'package:stats':
## 
##     filter, lag

## Следующие объекты скрыты от 'package:base':
## 
##     intersect, setdiff, setequal, union

library(ggplot2)
library(tidyr)
library(utils)

#создадим гипотетическую дату 
Variable1 <- rnorm(1000, 2, 1) #нормальное стандартное распределение 
Variable2 <- runif(1000, 0, 1) #равномерное распределение 
time <- c(1:1000)

data <- data.frame(Variable1, Variable2, time)

#удлиняем по переменным
data1 <- data %>% pivot_longer(cols = "Variable1":"Variable2", names_to = "Names", values_to = "Values")

ggplot(data = data1, aes(x = time, y = Values, color = Names)) + geom_line() + theme_minimal() + scale_color_manual(values = c("lightblue", "darkblue"))