这是我的第一个问题，很高兴来到这里 :) 所以我有一个数据框，例如：
date <- as.Date(c('2019-03-1','2019-4-25','2019-5-25','2019-6-14','2019-7-14','2019-8-15'))
US <- c(340, 450, 100, 400, 500, 350)
JP <- c(600, 700, 400, 600, 500, 700)
CHN <- c(400, 550, 450, 600, 200, 300)
GER <- c(800, 900, 700, 700, 600, 900)
IT <- c(400, 500, 350, 600, 600, 500)
BR <- c(300, 400, 450, 300, 450, 250)
df <- data.frame(date, US, JP, CHN, GER, IT, BR)
这使
startdate US JP CHN GR IT BR
1 2019-03-01 340 600 400 800 400 300
2 …