将每个聚合值分配给R中的单独变量，并将其显示在HTML中

Question

我使用以下R脚本来计算每月的CpK编号：

mydf <- read.csv('file.csv', header = TRUE, sep=",")
date <- strptime(mydf$PDATETIME, "%Y/%m/%d %H:%M:%S")
plot(date,mydf$MEAS_AVG,xlab='Date',ylab='MEAS_AVG',main='year')
abline(h=mydf$TARG_MIN,col=3,lty=1)
abline(h=mydf$TARG_MAX,col=3,lty=1)
grid(NULL,NULL,col="black")
legend("topright", legend = c(" ", " "), text.width = strwidth("1,000,000"), lty = 1:2, xjust = 1, yjust = 1, title = "Data")
myavg <-mean(mydf$MEAS_AVG, na.rm=TRUE)
newds <- (mydf$MEAS_AVG - myavg)^2
newsum <- sum(newds, na.rm=TRUE)
N <- length(mydf$MEAS_AVG) - 1
newN <- 1/N
total <- newN*newsum
sigma <- total^(1/2)
USL <- mean(mydf$TARG_MAX, na.rm=TRUE)
LSL <- mean(mydf$TARG_MIN, na.rm=TRUE)
cpk <- min(((USL-myavg)/(3*sigma)),((myavg-LSL)/(3*sigma)))
cpkmonthly <- aggregate(mydf$MEAS_AVG, na.rm=TRUE, list(month=months(as.Date(mydf$PDATETIME))), mean)
monthlycpk <- by(mydf$MEAS_AVG, na.rm=TRUE, list(month=months(as.Date(mydf$PDATETIME))), mean)
cpk 'variable to store the entire year's CpK number
cpkmonthly 'variable to store the each month's mean CpK number

到目前为止，上面的脚本正确地通过所有代码将值分配给cpkmonthly和cpk变量。他们的产出如下：

> cpk
[1] 0.5892231

> cpkmonthly
month         x
1  April 0.2456467
2 August 0.2415564
3   July 0.2456895
4   June 0.2541071
5  March 0.1234333
6    May 0.4321418

问题：如何拆分已分配的“cpkmonthly”变量并为每个条目分配一个单独的变量？理想情况下，我希望每个都进入一个数组，因为我希望最终的输出变量在HTML显示字符串中。

SudoCode:
cpkmonth[1] = April
cpkvalue[1] = .245...
cpkmonth[2] = August
cpkvalue[2] = .2415...
...

我希望HTML中的最终表格如下所示：

因此最终的输出变量需要采用以下格式：

<tr><td>"Total Cpk"</td><tdcpkmonth[0]</td><td>cpkmonth[1]</td><td>...</td></tr>
<tr><td>"cpk"</td><tdcpkvalue[0]</td><td>cpkvalue[1]</td><td>...</td></tr>

对于HTML，我尝试使用toJSON / RJSON，R2HTML，HTMLUtil和其他一些，但我只是在寻找一个输出变量。这可能吗？

Answer 1

您应该能够使用$语法访问这两列：

cpkmonth = cpkmonthly$month
cpkvalue = cpkmonthly$value

您也可以使用[：

cpkmonth = cpkmonthly['month']