如何將數據系列標准化為起始值 = 0？

Question

我有一個類似的數據集：

library(ggplot2)
data(economics_long)
economics_long$date2 <- as.numeric(economics_long$date) + 915
ggplot(economics_long, aes(date2, value01, colour = variable)) +
       geom_line()

這給出了以下情節：

現在我想將其標准化為綠線（或平均值）的起始值，因此所有變量都從 Y 軸的同一點開始。 與此類似：

謝謝你的幫助。

Answer 1

您可以使用by()根據variable -value 減去每個向量的起始值。

library(ggplot2)
l <- by(economics_long, economics_long$variable, function(x) 
  within(x, varnorm <- value01 - value01[1]))
dat <- do.call(rbind, l)

ggplot(dat, aes(date2, value01.n, colour = variable)) +
  geom_line()

Answer 2

使用group_by()和mutate()按其初始 y 值移動每個變量。

library(tidyverse)
data(economics_long)

economics_long %>% 
  group_by(variable) %>% 
  mutate(value_shifted = value01 - value01[1]) %>% 
  ungroup() %>% 
  ggplot(aes(date2, value_shifted, colour = variable)) +
  geom_line()