小编pro*_*ton的帖子

我试图在同一个面板中的数据框中绘制一些变量的多个直方图.以下是一些代码:

 library(lattice) 
 dd <- data.frame(gp = factor(rep(paste('Group', 1:6, sep = ''), each = 
 100)), x = rnorm(600)) 
 histogram( ~ x | gp, data = dd) 
 histogram( ~ x | gp, data = dd, as.table = TRUE) 

这是将数据x放入组1到6中.在给定的数据帧中,我们已经有特定类别的数字.例如,假设我想在同一个面板中绘制高度,重量和平均血压(日期框架中的变量)的直方图.如何在不必形成新数据集和组1到3的情况下执行此操作？

我正在尝试将表格从R复制并粘贴到Excel中.请考虑上一个问题中的以下代码:

    data <- list.files(path=getwd())
    n <- length(list)
    for (i in 1:n) 
     {
      data1 <- read.csv(data[i])
      outline <- data1[,2]
      outline <- as.data.frame(table(outline))
      print(outline)   # this prints all n tables
      name <- paste0(i,"X.csv")
      write.csv(outline, name)
      }

此代码将每个表写入单独的Excel文件(即"1X.csv","2X.csv"等).有没有办法将每个表"移动"到某些行而不是每次都重写前一个表？我也试过这段代码:

 output <- as.data.frame(output)
 wb = loadWorkbook("X.xlsx", create=TRUE)
 createSheet(wb, name = "output")
 writeWorksheet(wb,output,sheet="output",startRow=1,startCol=1)
 writeNamedRegion(wb,output,name="output")
 saveWorkbook(wb)

但这并不会将数据帧完全复制到Excel中.