如何在不更改箱线图颜色的情况下将彩色散点图添加到箱线图中？

Question

我有一张983人的桌子。和27个变量。我想创建一个箱形图，我将其婚姻状况叠加为散点图，但在执行此操作时，它还会更改性别标签的颜色，并将其作为性别列表的一部分包含在内。这是我的代码：

# Import table
tblHoved <- read.delim2(
  file = "T2_alle_kriminelle_fra_T1.txt",
  header = TRUE
)

# Lag punktdiagram
dPunkt_KjoennAar <- ggplot(data = tblHoved) +  # ↓ To calculate age
  geom_boxplot(mapping = aes(x = KJONN, y = 1875-FAAR, colour = KJONN)) +
  geom_jitter(mapping = aes(x = KJONN, y = 1875-FAAR, colour = SIVST), size = 0.5) +
  labs(
    title = "Fangebefolkninga fordelt etter kjønn og alder, med sivilstand",
    x = "Kjønn",
    y = "Alder"
  )
dPunkt_KjoennAar

而不是列出（在情节的图例中）各种婚姻状态选项......

• [nil], e[nke], f[raskilt], g[ift], s[eparert], ug[ift] =
• [nil], widower, divorced, married, separated, unmarried,

...它还包括性别规格（k [vinne]，m [ann] =女人，男人）。我怎样才能让它只为点着色，并为男/女设计一个单独的着色方案？

样品

样本表

PERSNR  KJONN   FAMST           SIVST   YRKE                    FAAR
011     m       Varetægtsfange  ug      Kobber og blikkenslager 1853
012     m       Varetægtsfange  ug      Dagarbeider             1854
013     m       Varetægtsfange  ug      Skomager                1833
014     m       Varetægtsfange  ug      Sømand                  1854
015     m       Varetægtsfange  ug      Arbeider ved Ølbryggeri 1850
016     m       Varetægtsfange  g       Sømand                  1836
017     m       Varetægtsfange  ug      Skræddersvend           1847
018     m       Varetægtsfange  g       Malersvend              1843
019     m       Varetægtsfange  ug      Malersvend              1853
020     k       Varetægtsfange  g       Dagarbeiderske          1836
021     k       Straffange      ug      Havt Maanedscondition   1850
022     m       Varetægtsfange  g       Bygselmand              1820
023     m       Varetægtsfange  ug      Dagarbeider             1859
007     m       Arrestant       ug      Blikkenslager           1848

样本图像