已经从数据库导入了？你的意思是通过RODBC或者其他数据库包，已经把数据从数据库转成了dataframe？
如果这样，直接用sqldf包，  select 统计日期，支付宝商品  from data 。
或者 # select 1st and 5th thru 10th variables
newdata <- mydata[c(1,5:10)]



data13<-subset(data1,select=c("统计日期", "支付商品件数","支付买家数","支付金额"))
  这句的问题， 貌似中文列明支持不好。
运行下面语句
> dat <- data.frame(A=c(1,2),B=c(3,4),C=c(5,6),D=c(7,7),E=c(8,8),F=c(9,9))
>
> View(dat)
> View(dat)
> subset(dat, select=c("A", "B"))
  A B
1 1 3
2 2 4

运行到这里完全没有问题。



> data1=subset(dat1, select=c("A", "B"))
Error in subset(dat1, select = c("A", "B")) : object 'dat1' not found
把 dat 改成dat1， 报错，但不是你说的错误。

data1=subset(dat, select=c("a", "B"))
Error in `[.data.frame`(x, r, vars, drop = drop) :
  undefined columns selected
把 A 改成a  报错，报错和你说的错误一样。 显然是列的名字没有识别。 你看看是不是名字写错了或者对中文支持不好。你直接调用列的序号好了。 如 newdata <- mydata[c(1,5:10)]。或者改列名吧。

你这样做当然不对了。
应该是这样
xxx= data.frame(data$A,data$B)