### R代码从vignette源代码的ddPCRclust。Rnw ' ################################################### ### 代码块1号:风格 ################################################### BiocStyle:乳胶 () ################################################### ### 代码块2号:ddPCRclust。Rnw:103-124 ################################################### library(ddPCRclust) #读取文件exampleFiles <- list.files(paste0(find.package('ddPCRclust')， '/extdata')， full.names = TRUE) files <- readFiles(exampleFiles[3]) #读取所有示例文件取消下面一行的注释# files <- readFiles(exampleFiles[1:8]) #读取模板模板<- readTemplate(exampleFiles[9]) #运行ddPCRclust result <- ddPCRclust(files，绘制结果库(ggplot2) p <- ggplot(data = result$B01$data, mapping = aes(x = Ch2. xml)振幅，y = ch1 .振幅))p <- p + geom_point(aes(color = factor(Cluster))， size = .5, na。p . rm = TRUE) + ggtitle('B01 example')+theme_bw() +theme (legend.position='none'