R 使用xyplot和doubleYscale更改轴标签颜色和图例线颜色

我正在尝试使用latticeExtra的xyplot和doubleYscale函数创建具有双y轴的绘图。如何将左右y轴的轴标签颜色以及图例线颜色更改为与绘图中的线颜色相同？它们现在以蓝色和粉色绘制，但应与下面绘制的线条相同。请参见下面的可复制代码示例和绘图：

library(lattice)
library(latticeExtra)

# Create the data frame.
My_DataFrame <- data.frame(
  emp_id = c (1:5), 
  salary = c(623.3,515.2,611.0,729.0,843.25), 
  weight = c(80,90,92,93,91),
  start_date = as.Date(c("2012-01-01", "2013-09-23", "2014-05-11", "2014-11-15","2015-03-27")),
  stringsAsFactors = FALSE
)
# Print the data frame.         
print(My_DataFrame) 

obj1 <- xyplot(salary ~ start_date, My_DataFrame, type = "l", lwd = 2, col = "#6F99ADFF", col.lab = "black", ylim = seq(0,1000,100), scales = list(x=list(cex=1.2), y=list(cex=1.2)), xlab = list("", fontsize = 22), ylab = list("Hello", fontsize = 18), ylab.right = list("There", fontsize = 18))

obj2 <- xyplot(weight ~ start_date, My_DataFrame, type = "l", lwd = 2, col = "#E18727FF")

doubleYScale(obj1, obj2, col = c("#6F99ADFF","#E18727FF"), text = c("salary", "weight"), add.ylab2 = FALSE)

库（晶格）
图书馆（latticeExtra）
#创建数据帧。
My_数据帧添加
par.settings=list（supplose.line=list（col=c（“#6F99ADFF”），“#E18727FF”），
在代码中：

obj1 <- xyplot(salary ~ start_date, My_DataFrame, type = "l", lwd = 2, 
               col = "#6F99ADFF", col.lab = "black", 
               par.settings = list(superpose.line = list(col=c("#6F99ADFF", "#E18727FF"))),
               ylim = seq(0,1000,100), 
               scales = list(x=list(cex=1.2), 
                             y=list(cex=1.2)), 
               xlab = list("", fontsize = 22), 
               ylab = list("Hello", fontsize = 18, col="#6F99ADFF"), ylab.right = list("There", fontsize = 18, col="#E18727FF"))

obj2 <- xyplot(weight ~ start_date, My_DataFrame, type = "l", lwd = 2, col = "#E18727FF")

doubleYScale(obj1, obj2, col = c("#6F99ADFF","#E18727FF"), text = c("salary", "weight"), add.ylab2 = F)

obj1