Раскрашивание ячеек Excel с помощью xlsx

Я сомневаюсь, что можно изменить условное форматирование Excel непосредственно из R. Итак, сначала откройте книгу Excel и установите условное форматирование для столбца «X», в которое входят любые условия цвета и значения, которые вы хотите. Затем, когда вы пишете из R в книгу, происходит раскраска.

По сути, я копирую код из этого вопроса и мой ответ там и внести некоторые коррективы для этого варианта использования. Я не уверен насчет этикета, но я просто хотел показать, что это можно сделать! Кто-нибудь, дайте мне знать, если я сделал что-то, что я не должен делать при повторном использовании кода в связанном вопросе для этого ответа. Если теперь, когда получен ответ на другой вопрос, это рассматривается как дубликат, меня это устраивает. Просто пытаюсь помочь!

Во-первых, немного переформатируйте данные.

# split the X column so there will be one numeric entry per cell 
d <- matrix(as.numeric(unlist(strsplit(as.character(Data$X), ";"))), 
           ncol = 20, byrow = TRUE)

d <- data.frame(d, Data$Y)
cols <- length(d[1, ]) # number of columns, we'll use this later

Во-вторых, мы можем использовать функции в xlsx для создания книги, а затем получить значения ячеек.

library(xlsx)

# exporting data.frame to excel is easy with xlsx package
sheetname <- "mysheet"
write.xlsx(d, "mydata.xlsx", sheetName=sheetname)
file <- "mydata.xlsx"
# but we want to highlight cells if value greater than or equal to 5
wb <- loadWorkbook(file)              # load workbook
fo1 <- Fill(foregroundColor="blue")   # create fill object # 1
cs1 <- CellStyle(wb, fill=fo1)        # create cell style # 1
fo2 <- Fill(foregroundColor="red")    # create fill object # 2
cs2 <- CellStyle(wb, fill=fo2)        # create cell style # 2 
sheets <- getSheets(wb)               # get all sheets
sheet <- sheets[[sheetname]]          # get specific sheet
rows <- getRows(sheet, rowIndex=2:(nrow(d)+1))     # get rows
                                                   # 1st row is headers
cells <- getCells(rows, colIndex = 2:cols)         # get cells

# in the wb I import with loadWorkbook, numeric data starts in column 2
# The first column is row numbers.  The last column is "yes" and "no" entries, so
# we do not include them, thus we use colIndex = 2:cols

values <- lapply(cells, getCellValue) # extract the cell values

Далее мы находим ячейки, которые необходимо отформатировать в соответствии с критериями.

# find cells meeting conditional criteria > 5
highlightblue <- NULL
for (i in names(values)) {
  x <- as.numeric(values[i])
  if (x > 5 && !is.na(x)) {
    highlightblue <- c(highlightblue, i)
  }    
}

# find cells meeting conditional criteria < 5
highlightred <- NULL
for (i in names(values)) {
  x <- as.numeric(values[i])
  if (x < 5 && !is.na(x)) {
    highlightred <- c(highlightred, i)
  }    
}

Наконец, примените форматирование и сохраните книгу.

lapply(names(cells[highlightblue]),
       function(ii) setCellStyle(cells[[ii]], cs1))

lapply(names(cells[highlightred]),
       function(ii) setCellStyle(cells[[ii]], cs2))

saveWorkbook(wb, file)