如图，可以改成数字，但是字符型总是提示错误，还有就是我将矩阵保留了两位有效数字，为什么最后输出为csv时没有保留呢。
> h
  [,1]        [,2] [,3] [,4] [,5]  [,6]
1 "changchun" 7.2  7.2  7.2  0.038 40  
2 "nanchang"  7.2  7.2  7.2  0.04  33  


> column=vector("place"，"environment","service","taste","price>100","median")
Error: unexpected input in "column=vector("place"?

> colnames(h) <- vector("place"，"environment","service","taste","price>100","median")
Error: unexpected input in "colnames(h) <- vector("place"?