根据R中的数值，点绘不同的指示器

我在想象优势比

你可以在下面找到假数据和图表

Data <- data.frame(
odds = sample(0:9),
pvalue = c(0.1,0.04,0.02,0.03,0.2,0.5,0.03,
0.12,0.12,0.014),
Y = sample(c("a", "b"), 5, replace = TRUE),
letters = letters[1:10]
)
library(lattice)
dotplot(letters ~  odds| Y, data =Data,
aspect=0.5, layout = c(1,2), ylab=NULL)

---

Data我们可以根据“pvalue”列为空/实心圆指定值为1/20的
pch

dotplot(letters ~ odds| Y, data=Data, aspect= 0.5, layout= c(1,2), 
          ylab=NULL, pch= ifelse(Data$pvalue > 0.05, 20, 1))

使用
ggplot2
可以轻松创建：

library(ggplot2)
Data$significant <- Data$pvalue > 0.05
ggplot(Data, aes(x=odds, y=letters, shape=significant)) +
         geom_point(size=4) +
  scale_x_continuous(breaks = seq(from=0, to= 8, by=2)) +
  scale_shape_manual(values=c(1, 16)) +
  ylab("") +
  facet_wrap(~ Y, ncol = 1, nrow = 2) +
  theme_bw()

库（ggplot2）
数据$0.05
ggplot（数据，aes（x=赔率，y=字母，形状=显著））+
几何点（尺寸=4）+
比例x连续（中断=顺序（从=0到=8，由=2）+
比例\形状\手册（值=c（1,16））+
ylab（“”）+
镶嵌面（Y，ncol=1，nrow=2）+
主题_bw（）

组

参数和pch也应该完成以下工作：

dotplot(letters ~  odds| Y, data =Data,
        aspect=0.5, layout = c(1,2), ylab=NULL, 
        groups = pvalue <= 0.05,
        pch = c(19, 21))

点图（字母~赔率| Y，数据=数据，
aspect=0.5，layout=c（1,2），ylab=NULL，
组= pValuy，你也可以考虑绘制你的OR的置信区间和x=上的垂直线。你是对的。这是个好主意，但是我不知道怎么做。我有比值误差的标准错误，但是不确定如何增加水平置信区间。你有什么建议吗？谢谢，这是非常实际的答案！谢谢，这是我需要的。谢谢，它看起来非常适合发表。如果我有优势比的标准错误，你知道如何添加水平置信区间吗？是否可以删除面板中没有值的字母？例如，a组中的I，d，