需求：

工作中需要计算上市公司环保投入数据，需要首先利用row.names参数对数据库的数据框进行预处理，然后通过with参数进行转换后计算处理，最后利用分类分析法来进行单项计算和归类存储，用于后续的深度数据挖掘。

解决：

patientID <- c(1, 2, 3, 4) age <- c(25, 34, 28, 52) diabetes <- c("Type1", "Type2", "Type1", "Type2") status <- c("Poor", "Improved", "Excellent", "Poor") patientdata <- data.frame(patientID, age, diabetes, status) row.names(patientdata) <- patientID

with(mydata, {

   print(summary(C1))

   plot(C1, C4)

})

数据来源：上市公司环保投入、环保支出、环保投资数据