R语言报错选择了未定义的列怎么解决

getwd()

setwd("D:\\R shizhan")

data<-("D:/R shizhan/电视剧播量.csv",header = T)

data

avg<-mean((data[,6]),=T)#这里报错

avg

我想求数据中第六列的得分的平均数结果显示

> avg<-mean((data[,6]),=T)

Error in `[.`(data, , 6) : 选择了未定义的列

怎么解决呀