在ggplot的各個方面顯示geom_line()

在下圖中，我如何在每個方面都包括的線，例如組“B”，用黑色表示？

x <- c(seq(1, 10, 1), seq(1, 10, 1), seq(1, 10, 1))
c <- c(rep("A", 10), rep("B", 10), rep("C", 10))
y <- rnorm(30, 0, 1)
d <- data.frame(x = x, c = c, y = y)
d$c <- as.factor(d$c)

library(ggplot2)

ggplot() +
  geom_line(data = d, aes(x = x, y = y, color = c)) +
  facet_wrap(~c)

盡管此解決方案建議使用以下代碼，但它僅以黑色創建類別B中的行，但并沒有將其包含在所有方面中：

ggplot() +
  geom_line(data = d, aes(x = x, y = y, color = c)) +
  facet_wrap(~c)+
  geom_line(data=d[d$c=="B",], aes(x=x,y=y))

提前謝謝。