添加未使用的因子水平

矩阵无法容纳因素。当你把一个factor在一matrix，它被强制为character，并且未使用的水平都将丢失。as.data.frame(matrix(...)))由于这个原因（以及其他类转换），这是一个坏习惯。

这是一种在不影响因子水平的情况下尽可能地复制数据转换的方法：

f <- factor(c("Free", "Work"))
x= rep(f[2], 4)
mon <- data.frame(A = x, B = x)
str(mon)
# 'data.frame': 4 obs. of  2 variables:
#  $ A: Factor w/ 2 levels "Free","Work": 2 2 2 2
#  $ B: Factor w/ 2 levels "Free","Work": 2 2 2 2
## looks good

# What is y? What's the point?
#mt    <- t(as.matrix(rev(data.frame(as.matrix(mon))))) #  change order of y

mon$id = 1:nrow(mon)
m     <- reshape2::melt(mon, id.vars = "id", factorsAsStrings = FALSE)

levels(m$value)
# [1] "Free" "Work"
## looks good

现在，当我们开始绘图时，drop = FALSE在比例中指定在图例中包括未使用的水平。（drop = TRUE如果您不希望显示未使用的级别，请使用默认值。）由于这些级别已经存在，因此我们不需要自定义labels。

col   <- c("azure",  "orange")

ggplot(m, aes(x = id, y = variable, fill = value)) +
  geom_tile(colour="grey10") +
  scale_fill_manual(values = col, name = NULL, drop = FALSE) +
  theme(panel.background = element_rect(fill = "white"), axis.ticks = element_blank()) +
  theme(axis.title.x = element_blank(), axis.title.y = element_blank()) 

如果要使色标更加安全，可以将其添加names到values矢量中，然后再将其放入色标中：

names(col) = levels(f)

获取数据的另一种方法是不用担心转换过程中的级别，而在最后使用适当的级别进行重构：

# your original code:
f             <- factor(c("Free", "Work"))
mon           <- as.data.frame(matrix(as.factor(rep(f[2], times = 8)), nrow = 4)) 
colnames(mon) <- c("A", "B")

mt    <- t(as.matrix(rev(data.frame(as.matrix(mon))))) #  change order of y
m     <- melt(mt)

# add this at the end
m$value = factor(m$value, levels = levels(f))

# check that it looks good:
str(m$value)
# Factor w/ 2 levels "Free","Work": 2 2 2 2 2 2 2 2