如何使用R突出显示Excel中不符合所需条件的列

Question

我希望标题足够描述或至少有意义。所以我知道您可以在R中完成所有这些数据操作，但并不是我的所有拼贴画都知道如何使用R，因此我想制作一些excel文件供他们查看。

所以我看到那里有一些可以帮助我完成尝试的软件包，但是我不确定如何按照我想象的方式使用它们。

所以我有一个看起来像这样但规模很大的数据集。因此，每一列都有标题，并且每个单元格中都可以包含“是”或空白。我想做的是高亮整个列，如果它是空白的。所以在小例子中 我做了，理想情况下，我会突出显示示例1和2。这可以在R中完成然后导出到excel文档中吗？

sample1 sample2 sample3 sample4
yes             yes
yes 
yes 
yes             yes

Answer 1

假设您的空格在R中为NA，则以下代码行会有所帮助。代码中的注释，以在需要时提供解释。

// does not work
this.actions$.pipe(
    ofType(LayoutActions.Types.CHANGE_THEME),
    takeUntil(this.destroyed$),
    tap(() => {
        console.log('test')
    }),
);
// works
this.actions$.ofType(LayoutActions.Types.CHANGE_THEME).subscribe(() => {
    console.log('test')
});

数据：

library(openxlsx)

# find empty columns
columns_to_format <- which(sapply(df1, function(x) length(x) == sum(is.na(x)) ))
rows <- nrow(df1) + 1


wb <- createWorkbook()

# create style used for high lighting empty columns
highlight_cells <- createStyle(fgFill = "yellow")

# Add worksheet
addWorksheet(wb, "example")
writeData(wb, "example", x = df1)

# loop over columns to high light
for(i in seq_along(columns_to_format)) {
  addStyle(wb, "example", style = highlight_cells, rows = 2:rows, cols = columns_to_format[i])
}

saveWorkbook(wb, "Example.xlsx", overwrite = TRUE)