BWRPLOT in R：向比例、参考线和填充栏添加刻度

我发现很难在lattice的bwplot上找到帮助，在尝试了各种事情之后，我想我会尝试一下询问社区。希望有人有经验

我制作了

现在我想：

在y轴250、750和1500米处再添加三个记号 根据所述y轴上的六个距离中的每一个，添加一条水平参考线 为五个特定ID条F1、F2、F3、F5和M1上色，最好为浅灰色 这是到目前为止的代码，显然有一些严重的面板丢失=

levels(dp$period)<-c("Pre-Translocation", "Translocation")
bwtheme  <- canonical.theme(color = FALSE)
bwplot(DJL ~ id|period, data=dp, main="Day Journey Length",
   pch="|", xlab="ID", ylab="Distance (m)",
   par.settings=bwtheme)

---

非常感谢您的帮助

对于一个可复制的示例，我加载样本数据并从一个基本图开始

bwplot(height~voice.part, singer)

在y轴250、750和1500米处再添加三个记号

为此，请添加一个参数scales=listy=listat=C2507501500。这记录在？bwplot上。例如，在这里，我在示例数据上放置任意记号，方法是在处创建一个变量，使记号位于所需位置，然后在scales参数中使用这些记号：

at <- seq(60, 75, 2.5)
bwplot(height~voice.part, singer, scales=list(y=list(at=at)))

为五个特定ID条F1、F2、F3、F5和M1上色，最好为浅灰色

在？panel.bwclot中，使用fill参数提供颜色向量，使F1、F2、F3、F5和M1为灰色，其他为白色。在这里，我通过创建不同的颜色填充，将男高音涂成灰色

lvls <- levels(singer$voice.part)
fill <- rep("white", length(lvls))
fill[lvls %in% c("Tenor 1", "Tenor 2")] <- "gray"

---

对于一个可复制的示例，我加载示例数据singer并从一个基本图开始

bwplot(height~voice.part, singer)

在y轴250、750和1500米处再添加三个记号

为此，请添加一个参数scales=listy=listat=C2507501500。这记录在？bwplot上。例如，在这里，我在示例数据上放置任意记号，方法是在处创建一个变量，使记号位于所需位置，然后在scales参数中使用这些记号：

at <- seq(60, 75, 2.5)
bwplot(height~voice.part, singer, scales=list(y=list(at=at)))

为五个特定ID条F1、F2、F3、F5和M1上色，最好为浅灰色

在？panel.bwclot中，使用fill参数提供颜色向量，使F1、F2、F3、F5和M1为灰色，其他为白色。在这里，我通过创建不同的颜色填充，将男高音涂成灰色

lvls <- levels(singer$voice.part)
fill <- rep("white", length(lvls))
fill[lvls %in% c("Tenor 1", "Tenor 2")] <- "gray"

---

您能提供数据或其子集吗？通常，您应该使用dput命令生成一种格式，我们可以使用它来帮助您。同意。请在此处阅读更多：。通过一个最小的、可复制的示例，您更有可能获得帮助。谢谢Andre，但是for循环似乎不适用于bwplot。您可以提供数据或其子集吗？通常，您应该使用dput命令生成一种格式，我们可以使用它来帮助您。同意。请在此处阅读更多：。通过一个最小的、可复制的示例，您更有可能获得帮助。谢谢Andre，但是for循环似乎不适用于bwplot。亲爱的Martin，非常感谢您的友好回复！你让我走上了正确的轨道。我不得不使用tick.number调整刻度，“at”函数会以某种方式使我的x轴消失。我仍在与其他人斗争，已经阅读了所有关于面板功能的帮助页面，但无法让它们工作…@LeoTor我添加了更详细的答案；如果你仍然有问题，你应该更新你的问题。亲爱的马丁，谢谢你友好的回答！你让我走上了正确的轨道。我不得不使用tick.number调整刻度，“at”函数会以某种方式使我的x轴消失。我仍在与其他人斗争，已经阅读了所有关于面板功能的帮助页面，但无法让它们工作…@LeoTor我添加了更详细的答案；如果你仍然有问题，你应该更新你的问题。