透明符号，实线，晶格：: xyplot（）

Question

我想在R中使用点阵:: xyplot（）在由第三个因子变量确定的面板中绘制两个定量变量。我想要transparent黑色符号，以及solid红色趋势线。为了提供一个有效的示例，我将在R中使用虹膜数据集。下面的四次尝试均未达到预期的结果（其中一项是由Add alpha value to lattice xyplot panel function处的线程通知的）：

library(datasets)
data(iris)

xyplot(Sepal.Length ~ Sepal.Width | Species, data = iris,
   type = c("p","smooth"), alpha=.1, pch=19, col="black", col.line="red", lwd=2)

xyplot(Sepal.Length ~ Sepal.Width | Species, data = iris,
   type = c("p","smooth"), 
   par.settings = list(superpose.symbol = list(cex=1, pch=20, col="black", alpha = 0.1),
                       superpose.line = list(col = "red", lwd = 2)))

xyplot(Sepal.Length ~ Sepal.Width | Species, data = iris, 
   grid = TRUE, scales=list(tck=c(1,0), x=list(cex=1.1), y=list(cex=1.1)),
   par.settings = list(superpose.symbol = list(pch =20, cex = 1, col = c("#0808084d"))),
   type = c("p", "smooth"), col.line =c("red"),lwd = 2)

xyplot(Sepal.Length ~ Sepal.Width | Species, data = iris,
   par.strip.text=list(cex=0.6),
   type = c("p","smooth"), 
   par.settings = list(superpose.symbol = list(cex=1, pch=20, col="black", alpha = 0.1),
                       superpose.line = list(col = "red", lwd = 2)))

非常感谢任何指导。

Answer 1

怎么样

trans_black <- adjustcolor("black",alpha.f=0.2)
xyplot(Sepal.Length ~ Sepal.Width | Species, data = iris,
       type = c("p","smooth"), pch=19, col=trans_black,
       col.line="red", lwd=2)

？