在R-相对起点中创建索引图

我需要看两组数据的相对变化，这两组数据具有非常不同的尺度。 因此，我认为，通过将我的第一个值设置为100%，然后为每个组创建一个与该值成比例的值，是前进的方向。然后我可以创建一个折线图来显示相对运动。
我称之为索引图，因此可能遗漏了现有的问题

然而，我不知道如何在R中设置数据来实现这一点

我的汇总数据如下。我希望1999年的每一年都是100%，以后的几年都是100%

> Totals
  year  fips Emissions
1 1999 06037 6109.6900
2 2002 06037 7188.6802
3 2005 06037 7304.1149
4 2008 06037 6421.0170
5 1999 24510  403.7700
6 2002 24510  192.0078
7 2005 24510  185.4144
8 2008 24510  138.2402

我可能想在它后面添加一个条形图来显示权重，因为相对变化对于较小的数据来说更为显著。这方面的提示也很受欢迎，但我还没有搜索到，因为上面是IMO的主要问题

谢谢你的帮助。

---

James

例如，使用dplyr：

library(dplyr)
dat <- 
  df1 %>% 
    group_by(fips) %>% 
    mutate(ind = Emissions / first(Emissions))

---

谢谢你，伯甘特。就这样了。但是，当我创建绘图时，我的x值会自动选择为2000，并向上增加2年。我试着用scale_x_continuous（breaks=c（1:4），labels=c（“1999”等）来调整这个，但是我没有得到任何标签…你能建议吗？

library(ggplot2)
  ggplot(dat, aes(x = year, y = ind, color = as.factor(fips))) +
  geom_line()