r - 如何使用格子将更新的线条颜色合并到 R 中的图例中？

Question

背景和问题：

我想在 R 中的格子图中添加一个图例，显示两组的密度。我已将默认颜色更改为黑色和灰色。然而，传说并没有更新颜色。

• 如何让格子图在图例中使用我更新的颜色？
• 如何控制图例的位置（我希望能够将其放置在绘图区域内）？

工作示例：

set.seed(4444)
x1 <- rep("Group A", 50)
x2 <- rep("Group B", 50)
y1 <- rnorm(50, 0, 2)
y2 <- rnorm(50, 1, 2)
dtf <- data.frame(x=c(x1, x2), y =c(y1, y2))

print(densityplot(~y, groups=x, data=dtf,
    pch=".",
    cex=2,
    col=c("black", "gray"),
    auto.key=TRUE,
    xlab="Y"))

Answer 1

图例颜色是格子中众所周知的烦恼。看起来很难纠正，因为 Deepayan 推荐 simpleTheme 作为解决方案。有关定位，请参阅 Josh 的回答。

print(densityplot(~y, groups=x, data=dtf,
              pch=".",
              cex=2,
              par.settings=simpleTheme(col=c("gray","black")),
              auto.key=TRUE,
              xlab="Y"))

Answer 2

可能有一个更优雅的解决方案，但这已经足够好了。请注意，该corner=参数可用于将图例放置在绘图内的任何位置。

densityplot(~y, groups = x, data = dtf,
    pch = ".",
    cex = 2,
    col = c("black", "gray"),
    par.settings = list(superpose.line = list(col=c("black", "grey"))),
    auto.key = list(corner = c(0.95, 0.95)),
    xlab = "Y")