小编Kat*_*h05的帖子

更新:已解决 - 现在更新代码以格式化我的单个单元格蓝色

我是新手使用XLSX,我试图在输出电子表格中将我的整个第二行设为蓝色(包括第一列).但我无法引用该单元格以使其变蓝.

更新3:在评论"#try to make cell A2 blue"下,我可以(截至第3次更新)引用该单元格; 但是,我只能通过创建一个新单元格来引用它,然后创建一个我已经输入的数据的问题.如果我先创建新单元格,那么当我从数据框添加数据时,它就会被覆盖.有没有办法在细胞已经创建时引用它？

我的代码如下:

library(xlsx)
# create a new workbook for outputs
wb<-createWorkbook(type="xlsx")

# Define some cell styles
TITLE_STYLE <- CellStyle(wb)+ Font(wb,  heightInPoints=10, 
                                    isBold=TRUE, name="Arial") + Alignment(horizontal="ALIGN_CENTER")

# Styles for the data table row/column names
TABLE_ROWNAMES_STYLE <- CellStyle(wb) + Font(wb, heightInPoints=10, name="Arial")
TABLE_COLNAMES_STYLE <- CellStyle(wb) + Font(wb, heightInPoints=10, isBold=TRUE, color ="9", name="Arial") + Fill(foregroundColor="#0069AA") +
  Alignment(wrapText=TRUE, horizontal="ALIGN_CENTER")
TABLE_STYLE <- CellStyle(wb) + Font(wb, heightInPoints=10, name="Arial")


# Create a new sheet in the workbook …

我想根据名称选择的相似程度创建一个组变量。我已经开始使用 stringdist 包来生成距离的度量。但我不确定如何使用该输出信息来生成一组变量。我看过 hclust 但似乎使用聚类函数你需要知道你最终需要多少组，我不知道。我开始的代码如下：

name_list <- c("Mary", "Mery", "Mary", "Joe", "Jo", "Joey", "Bob", "Beb", "Paul")

name_dist <- stringdistmatrix(name_list)
name_dist
name_dist2 <- stringdistmatrix(name_list, method="soundex")
name_dist2

我想看到一个包含两列的数据框，看起来像

name = c("Mary", "Mery", "Mary", "Joe", "Jo", "Joey", "Bob", "Beb", "Paul")

name_group = c(1, 1, 1, 2, 2, 2, 3, 3, 4)

显然，根据我使用的距离测量方式，这些组可能略有不同（我在上面建议了两个），但我可能会选择一个或另一个来跑步。

基本上，如何在不知道我想要的集群数量的情况下从距离矩阵到组变量？