为什么strip_text_color在facet_wrap中无法对应element_text颜色？

Question

请查看以下数据样本p。

问题：为什么在facet_wrap（）中指定的element_text（colour）颜色没有改变文字的颜色？

我制作了这张图

我希望条目文本颜色（UICC Stage I、II、III和IV）与cols中指定的geom_point颜色相匹配。 它目前将所有文本项加载到#E1B930。

以下脚本有什么问题？

cols = c("#E1B930", "#2C77BF","#E38072","#6DBCC3")

  ggplot(p, aes(x=n.fjernet,y=os.neck)) + geom_point(aes(color=uiccc),shape=20, size=5,alpha=0.7) + 

  geom_quantile(quantiles = 0.5,col="black", size=1,linetype=2) + facet_wrap(.~factor(uiccc)) +

  scale_fill_manual(values=cols) + 

  scale_colour_manual(values=cols) + 

  scale_x_continuous(breaks = seq(0,50, by=10), name="Lymph nodal yield") +
  scale_y_continuous(name="Time to death") +

theme(strip.text.x = element_text(size=12,face="bold", colour = cols),
      strip.text.y = element_text(size=12, face="bold"),
      strip.background = element_rect(fill="white"),
      legend.position="none")

我的数据

p <- structure(list(uiccc = structure(c(4L, 3L, 3L, 2L, 2L, 2L, 2L, 
4L, 1L, 1L, 2L, 1L, 4L, 2L, 1L, 2L, 3L, 1L, 2L, 3L, 2L, 1L, 2L, 
3L, 2L, 4L, 1L, 1L, 2L, 4L, 4L, 1L, 3L, 3L, 4L, 3L, 1L, 4L, 2L, 
3L, 4L, 4L, 4L, 3L, 2L, 4L, 1L, 4L, 2L, 4L, 4L, 2L, 4L, 4L, 1L, 
4L, 2L, 3L, 2L, 2L, 3L, 2L, 4L, 4L, 2L, 2L, 3L, 1L, 4L, 4L, 4L, 
4L, 4L, 3L, 2L, 2L, 2L, 2L, 2L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 4L, 
2L, 4L, 1L, 2L, 1L, 1L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 2L, 3L, 
3L, 4L, 1L, 1L, 3L, 1L, 4L, 2L, 1L, 3L, 1L, 2L, 1L, 1L, 4L, 1L, 
1L, 4L, 1L, 1L, 3L, 2L, 2L, 1L, 4L, 4L, 4L, 4L, 1L, 1L, 1L, 2L, 
2L, 4L, 4L, 2L, 3L, 4L, 2L, 4L, 1L, 1L, 3L, 3L, 1L, 1L, 3L, 4L, 
4L, 2L, 4L, 4L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 3L, 2L, 2L, 4L, 3L, 
1L, 4L, 3L, 4L, 4L, 3L, 1L, 4L, 4L, 4L, 4L, 2L, 2L, 4L, 4L, 1L, 
4L, 4L, 2L, 4L, 4L, 4L, 3L, 4L, 3L, 3L, 4L, 4L, 2L, 4L, 4L, 2L, 
4L, 4L, 4L, 4L, 1L, 4L, 4L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 4L, 2L, 3L, 1L, 2L, 1L, 2L, 2L, 4L, 4L, 4L, 4L, 4L, 4L, 1L, 
3L, 4L, 4L, 1L, 3L, 3L, 4L, 3L), .Label = c("UICC Stage I", "UICC Stage II", 
"UICC Stage III", "UICC Stage IV"), class = "factor"), os.neck = c(11.5, 
74.38, 17.02, 7.89, 96.03, 40.48, 17.74, 14.65, 62.46, 12.55, 
9.92, 26.05, 45.47, 17.38, 39.72, 51.45, 8.61, 76.98, 67.09, 
94.79, 72.15, 93.93, 17.05, 12.48, 91.6, 15.87, 11.04, 67.22, 
67.02, 8.94, 6.6, 5.09, 10.68, 17.15, 0.07, 5.19, 40.77, 0.2, 
170.88, 5.55, 1.61, 38.28, 10.58, 32.99, 110.98, 103.69, 122.32, 
14.78, 42.74, 4.04, 8.28, 84.96, 11.7, 49.97, 120.48, 52.6, 71.26, 
16.3, 100.14, 55.03, 6.51, 89.89, 51.71, 24.97, 55.66, 21.91, 
81.48, 30.92, 1.58, 7.52, 30.75, 3.45, 19.22, 5.42, 17.68, 45.54, 
76.22, 125.34, 83.62, 30.82, 90.32, 1.84, 19.98, 20.53, 32.59, 
54.77, 2.3, 106.84, 22.28, 45.18, 4.47, 39.66, 32.3, 16.23, 3.88, 
2.23, 0.23, 18.73, 0.79, 28.75, 79.54, 14.46, 15.15, 54.97, 48.59, 
34.83, 58.42, 35.29, 45.73, 57.53, 63.11, 65.05, 29.54, 77.21, 
63.48, 83.35, 34.3, 64.49, 29.54, 62.69, 21.62, 49.35, 99.02, 
15.8, 41.89, 12.98, 13.8, 43.6, 57.23, 31.38, 70.74, 39.46, 20.76, 
67.22, 127.15, 74.12, 1.97, 7.39, 25.17, 28.22, 14, 36.53, 20.83, 
19.55, 40.77, 27.76, 45.31, 34.46, 35.55, 26.94, 9.43, 10.51, 
6.8, 8.18, 8.02, 14.29, 6.11, 13.8, 4.9, 4.04, 14.82, 11.66, 
73.07, 92.91, 99.98, 10.64, 10.05, 95.8, 7.23, 12.81, 43.99, 
13.9, 10.25, 16.36, 18.2, 18.76, 12.32, 8.64, 11.79, 112.04, 
70.97, 31.28, 28.85, 21.49, 19.94, 22.14, 29.44, 67.62, 11.01, 
45.24, 110.72, 20.24, 14.06, 12.88, 31.51, 8.08, 13.08, 21.45, 
24.28, 21.98, 32.89, 23.26, 15.41, 15.41, 13.8, 40.12, 8.02, 
15.77, 49.81, 18.17, 24.21, 47.08, 6.6, 37.16, 13.01, 8.38, 14.36, 
18.27, 17.28, 73.76, 68.21, 22.83, 2.66, 69.06, 17.05, 8.61, 
23.33, 13.34, 12.65, 8.77, 128.92, 16.1, 4.99, 11.73, 22.97, 
40.12, 20.37, 2.04, 45.73), mors = c(1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), n.fjernet = c(18L, 11L, 
14L, 15L, 9L, 6L, 3L, 16L, 4L, 6L, 10L, 13L, 33L, 16L, 6L, 9L, 
23L, 9L, 8L, 13L, 5L, 30L, 25L, 3L, 9L, 9L, 12L, 7L, 38L, 5L, 
7L, 15L, 4L, 6L, 15L, 9L, 8L, 7L, 4L, 6L, 10L, 8L, 4L, 9L, 10L, 
14L, 14L, 3L, 4L, 6L, 6L, 20L, 3L, 26L, 13L, 13L, 13L, 13L, 3L, 
7L, 6L, 5L, 10L, 15L, 29L, 7L, 6L, 11L, 17L, 14L, 18L, 22L, 9L, 
20L, 34L, 9L, 8L, 8L, 11L, 3L, 4L, 4L, 5L, 3L, 2L, 8L, 5L, 18L, 
7L, 9L, 13L, 18L, 19L, 14L, 46L, 23L, 11L, 6L, 18L, 20L, 4L, 
2L, 7L, 7L, 4L, 11L, 13L, 13L, 9L, 9L, 9L, 12L, 11L, 16L, 6L, 
13L, 8L, 17L, 5L, 8L, 22L, 19L, 3L, 15L, 14L, 7L, 18L, 9L, 10L, 
18L, 24L, 11L, 15L, 7L, 6L, 4L, 24L, 23L, 8L, 20L, 9L, 22L, 11L, 
2L, 24L, 15L, 5L, 8L, 11L, 11L, 11L, 15L, 6L, 16L, 7L, 9L, 16L, 
11L, 33L, 27L, 16L, 57L, 5L, 7L, 8L, 11L, 15L, 15L, 12L, 5L, 
9L, 49L, 11L, 28L, 19L, 13L, 23L, 11L, 12L, 10L, 4L, 14L, 6L, 
12L, 32L, 13L, 12L, 4L, 11L, 17L, 10L, 5L, 15L, 21L, 19L, 11L, 
31L, 9L, 20L, 11L, 16L, 12L, 6L, 16L, 27L, 30L, 18L, 18L, 10L, 
7L, 23L, 16L, 15L, 4L, 12L, 9L, 10L, 11L, 7L, 8L, 8L, 7L, 6L, 
9L, 9L, 13L, 15L, 12L, 35L, 12L, 5L, 19L, 27L, 34L, 10L, 16L, 
18L, 6L, 22L)), row.names = c(3L, 4L, 5L, 6L, 7L, 8L, 9L, 10L, 
11L, 12L, 13L, 14L, 15L, 16L, 17L, 18L, 20L, 22L, 24L, 28L, 29L, 
31L, 34L, 35L, 39L, 40L, 42L, 43L, 44L, 47L, 48L, 49L, 50L, 54L, 
56L, 57L, 58L, 59L, 60L, 62L, 63L, 66L, 67L, 68L, 69L, 70L, 71L, 
72L, 73L, 74L, 75L, 76L, 80L, 81L, 82L, 83L, 86L, 87L, 88L, 89L, 
94L, 97L, 99L, 101L, 102L, 106L, 113L, 115L, 117L, 122L, 129L, 
132L, 136L, 142L, 143L, 145L, 146L, 148L, 153L, 154L, 158L, 159L, 
163L, 164L, 167L, 169L, 171L, 174L, 175L, 178L, 179L, 185L, 188L, 
191L, 197L, 210L, 218L, 220L, 230L, 236L, 238L, 239L, 240L, 241L, 
242L, 243L, 244L, 245L, 246L, 247L, 248L, 249L, 250L, 252L, 253L, 
254L, 255L, 256L, 257L, 258L, 259L, 261L, 262L, 263L, 264L, 265L, 
266L, 270L, 275L, 277L, 278L, 280L, 282L, 284L, 286L, 289L, 293L, 
295L, 301L, 302L, 303L, 304L, 305L, 306L, 307L, 308L, 310L, 312L, 
313L, 314L, 315L, 316L, 317L, 318L, 319L, 320L, 321L, 322L, 323L, 
325L, 327L, 328L, 329L, 330L, 331L, 332L, 333L, 334L, 335L, 336L, 
338L, 348L, 349L, 351L, 352L, 353L, 354L, 357L, 358L, 359L, 360L, 
361L, 362L, 363L, 365L, 366L, 368L, 371L, 372L, 374L, 376L, 378L, 
379L, 380L, 381L, 382L, 383L, 384L, 385L, 386L, 387L, 388L, 389L, 
390L, 391L, 392L, 393L, 394L, 395L, 396L, 397L, 398L, 399L, 400L, 
401L, 402L, 403L, 405L, 407L, 409L, 410L, 411L, 412L, 413L, 414L, 
415L, 416L, 417L, 418L, 419L, 421L, 422L, 424L, 425L, 426L, 427L, 
428L, 429L, 430L), class = "data.frame")

- cmirian

---

嗯，看起来这是一个不太琐碎的任务（<-链接是关于标签背景颜色的，但我认为对于文本颜色也是适用的...） - dario

@dc37非常感谢，它确实做到了我所请求的。我看到你是如何处理的。你能加上如何使文本加粗吗？我尝试在最后添加face="bold"，但没有解决问题。 - cmirian

@dc37没错！谢谢，我不小心写成了face而不是fontface。很想把你的帖子作为答案接受-抱歉！问题刚刚重新打开，请提交您的答案-再次感谢！ - cmirian

Answer 1

这是使用grid包修改strip.text颜色的grob值：

library(grid)
library(ggplot2)
g <- ggplot_gtable(ggplot_build(plot))
strip_both <- which(grepl('strip-', g$layout$name))
colors = c("#E38072","#6DBCC3", "#E1B930", "#2C77BF")
k <- 1
for (i in strip_both) {
  j <- which(grepl("text", g$grobs[[i]]$grobs[[1]]$childrenOrder))
  g$grobs[[i]]$grobs[[1]]$children[[j]]$children[[1]]$gp$col <- colors[k]
  k <- k+1
}
grid.draw(g)

将绘图对象分配给 plot:

cols = c("#E1B930", "#2C77BF","#E38072","#6DBCC3")

plot <- ggplot(p, aes(x=n.fjernet,y=os.neck)) + geom_point(aes(color=uiccc),shape=20, size=5,alpha=0.7) + 

  geom_quantile(quantiles = 0.5,col="black", size=1,linetype=2) + facet_wrap(.~factor(uiccc)) +

  scale_fill_manual(values=cols) + 

  scale_colour_manual(values=cols) + 

  scale_x_continuous(breaks = seq(0,50, by=10), name="Lymph nodal yield") +
  scale_y_continuous(name="Time to death") +

  theme(strip.text.x = element_text(size=12,face="bold"),
        strip.text.y = element_text(size=12, face="bold"),
        strip.background = element_rect(fill="white"),
        legend.position="none")

- Greg

---

嗨@Greg，感谢您的回答。我尝试了您的解决方案，但它返回一个错误Error in tmp[[j]] : attempt to select less than one element in get1index。我应该将我的ggplot(p....)保存在g还是plot中，或者我该如何继续？非常感谢您的帮助。 - cmirian

你可以将其保存在 plot 中。 - Greg

在运行您的代码之前，保存plot <- ggplot(p, aes(x=n.fjernet,y=os.neck))仍然返回错误。有什么想法是错的吗？ - cmirian

你是否将整个图表指定给 plot (ggplot + geom_quantile + ... + theme)？ - Greg

将 ggplot 3.2.0 更新到 ggplot 3.3.0 解决了这个问题。谢谢。 - cmirian

Answer 2

或者按组绘制它们，然后再合并：

# named colours per group
cols <- setNames(c("#E1B930", "#2C77BF","#E38072","#6DBCC3"),
                 levels(p$uiccc))

# set pretty limits
Xlim <- round(range(p$n.fjernet), -1)
Ylim <- round(range(p$os.neck), -1)

ggList <- lapply(split(p, p$uiccc), function(i){
  title <- i[1, "uiccc"]
  ggplot(i, aes(x = n.fjernet, y = os.neck)) + 
    geom_point(aes(color = uiccc), shape = 20, size = 5, alpha = 0.7, show.legend = FALSE) + 
    geom_quantile(quantiles = 0.5, col = "black", size = 1, linetype = 2) +
    ggtitle(title) +
    scale_fill_manual(values = cols) + 
    scale_colour_manual(values = cols) + 
    scale_x_continuous(limits = Xlim) +
    scale_y_continuous(limits = Ylim) +
    theme_classic() +
    theme(plot.title = element_text(colour = cols[ title ]))
})

然后使用 patchwork 或 cowplot 进行组合：

patchwork::wrap_plots(ggList)
#or
cowplot::plot_grid(plotlist = ggList)

- zx8754

---

谢谢@zx8754。那也是一个不错的解决方案！我很感激你重新打开了这个问题，谢谢！祝你有美好的一天和周末。 - cmirian

@cmirian 没问题，关闭并不意味着负面。我关闭它是因为我认为它适合被关闭，显然社区并不同意，所以根据重新开放的投票结果，它被重新开放了。 - zx8754

Answer 3

除了@Greg的答案（我认为这应该是有效的答案）之外，您还可以通过在facet标签位置添加注释来获得相同的绘图：

library(tidyverse)
ggplot(df, aes(x=n.fjernet,y=os.neck)) + geom_point(aes(color=uiccc),shape=20, size=5,alpha=0.7) + 
  geom_quantile(quantiles = 0.5,col="black", size=1,linetype=2) + facet_wrap(.~factor(uiccc)) +
  scale_fill_manual(values=cols) + 
  scale_colour_manual(values=cols) + 
  scale_x_continuous(breaks = seq(0,50, by=10), name="Lymph nodal yield") +
  scale_y_continuous(name="Time to death") +
  theme(#strip.text.x = element_text(size=12,face="bold", colour = cols),
        #strip.text.y = element_text(size=12, face="bold"),
        #strip.background = element_rect(fill="white"),
    strip.background = element_blank(),
    strip.text = element_text(color = "transparent"),
    legend.position="none",
    plot.margin = unit(c(1,3,1,1), "lines")) +
  coord_cartesian(clip = "off",ylim = c(0,175))+
  geom_text(data = . %>% distinct(uiccc), 
            aes(label = factor(uiccc), color = uiccc), y = 200, x = 30, hjust = 0.5, fontface = "bold")

- dc37

---

我喜欢这个答案比我的更好 - 它保持了 ggplot 的语法，而且不需要另一个包。 - Greg

@Greg，这是个人口味问题，我更喜欢你的答案，因为你实际上改变了文本标签的颜色。我的方法更像是绕路。 - dc37

我会使用strip.text = element_blank()，因为我认为即使使用"transparent"仍然会在那里放置文本。 - zx8754

@zx8754，我尝试过了，但是使用strip.text = element_blank会同时移除分面标签，并且改变分面的排列方式。 - dc37