Rを使用してexcel-colorinfoを読み取る

Question

Rを使用して武器から細胞のカラーインデックスを読み取る方法はありますか？ XLConnectやXLSXのようなパッケージでセルの色を設定できるのに対し、私は既存のワークブックから色情報を抽出する方法は見つけられませんでした。任意の助け

おかげで、 ベン

Answer 1

R-ブロガーはあなたのために仕事をする機能を提供します。私は将来の参考のためにここに答えを含めています。

xlsxパッケージを使用してExcelファイルを読む

library(xlsx) 
wb  <- loadWorkbook("test.xlsx") 
sheet1 <- getSheets(wb)[[1]] 

# get all rows 
rows <- getRows(sheet1) 
cells <- getCells(rows) 

この部分は、後のセルの背景色（またはその他のスタイル情報）を取得するために使用される情報を抽出します。

styles <- sapply(cells, getCellStyle) #This will get the styles 

これは、セル背景色を識別/抽出するfunctionである。

cellColor <- function(style) 
    { 
    fg <- style$getFillForegroundXSSFColor() 
    rgb <- tryCatch(fg$getRgb(), error = function(e) NULL) 
    rgb <- paste(rgb, collapse = "") 
    return(rgb) 
    } 

errorは、背景色のないセルを処理します。

sapply(styles, cellColor) 

あなたはまたのRGBコードを知ることによってそれらを識別/分類することができます：

mycolor <- list(green = "00ff00", red = "ff0000") 
m  <- match(sapply(styles, cellColor), mycolor) 
labs <-names(mycolor)[m] 

あなたはよりを読むことができますが、すべてのセルの背景色を取得することができますsapplyを使用

それを適用する方法を学ぶR-bloggers

RapidTables.com

からRGBコードを取得できます