在R中绘制分组数据（同一列）

Question

我有3列中的Formula-1驱动程序的数据，并希望为每个驾驶员制作累积点的时间序列图。

问题是：我所有的驱动程序都在第一列中，第二个点在第二列中，第三列中的累积总和。

testdf <- c("Driver A", "Driver A", "Driver A", "Driver B", "Driver B", "Driver B")

values <- c(1,5,7,3,5,8)

driversmatrix <- cbind(testdf, values); driversmatrix

示例数据图

.jpg“ rel =“ nofollow noreferrer”>链接到数据框架视图的图片

我如何从每个驱动程序累积点相互绘制的时间序列中进行时间序列？

Answer 1

library(data.table)

# set as data table if yours isn't one already
setDT(df)

# dummy data
df <- data.table(driver = c("Driver A", "Driver A", "Driver A", "Driver B", "Driver B", "Driver B")
                 , points = c(1,5,7,3,5,8)
                 ); df

# calculate cumulative sum and date (assumes data sorted in ascending date already)
df[, `:=` (cum_sum = cumsum(points)
           , date = 1:.N
           )
   , driver
   ]

# plot
ggplot(data=df, aes(x=date, y=cum_sum, group=driver)) +
  geom_line(aes(linetype=driver)) +
  geom_point()

请注意，如果我们有很多驱动程序（杂乱的地块），则按照我们目前的操作绘制一条线可能不是最佳的

Answer 2

首先，您需要有一个指示赛数或日期的列，假设您的数据具有每个驱动程序的种族数量相同：

library(tidyverse)
testdf <- data.frame(Driver= c("Driver A", "Driver A", "Driver A", "Driver B", "Driver B", "Driver B") , Points=c(1,5,7,3,5,8))

testdf <- testdf %>% group_by(Driver) %>% mutate(Cum_Points=cumsum(Points), Race_No=row_number())

然后用驱动程序绘制与赛车数的累积点

ggplot(testdf, aes(Race_No, Cum_Points, colour=Driver))+geom_line()