getwd()
funds_data_raw <- read.csv("funds_data.csv")
class(funds_data_raw)
sapply(funds_data_raw, class)
ncol(funds_data_raw)

colnames(funds_data_raw)
#重命名
colnames(funds_data_raw)<-c("id", "funds", "date", "nav", "nav_acc", "nav_adj", "growth_adj")
funds_data_raw
#更改列名

funds_data<-split(funds_data_raw,funds_data_raw$id)
funds_data
funds_data<-funds_data[,-c(1,2)]
funds_data
funds_data[,-c(1,2)]
funds_data<-funds_data[,-1]
-which(colnames(df) %in% c("id","funds"))
#按列拆分成组,保留第三列及以后的列