R 将p值添加到平行坐标图(ggplot)时出错

R 将p值添加到平行坐标图(ggplot)时出错,r,ggplot2,data-visualization,ggpubr,R,Ggplot2,Data Visualization,Ggpubr,我有一个数据集,它是来自多个样本的成对数据,我想用这些样本绘制一个平行坐标图,并在上面包含一个p值(即,绘制每组中的每个数据点,并用一条线连接成对数据,并在绘制的数据上方具有比较统计数据) 我可以让图表(很大程度上)按照我希望的方式显示,但当我尝试使用stat\u compare\u means(paired=TRUE)添加p值时,我会出现3个错误: 2 x: “不知道如何为quosure/formula类型的对象自动选择比例。默认为连续。” 1 x: validDetails.text(x)中

我有一个数据集,它是来自多个样本的成对数据,我想用这些样本绘制一个平行坐标图,并在上面包含一个
p值
(即,绘制每组中的每个数据点,并用一条线连接成对数据,并在绘制的数据上方具有比较统计数据)

我可以让图表(很大程度上)按照我希望的方式显示,但当我尝试使用
stat\u compare\u means(paired=TRUE)
添加
p值时,我会出现3个错误:

2 x:

“不知道如何为quosure/formula类型的对象自动选择比例。默认为连续。”

1 x:

validDetails.text(x)中出错:'pairlist'对象不能强制为'double'类型

我的数据是一个
data.fram
e,有三个变量:一个样本变量,我知道哪一对是哪一对;一个组变量,我知道值是哪一类;以及值变量。我已经在下面粘贴了代码,并且非常乐意接受其他方法的建议,以使代码看起来更好

ggplot(test_OCI, aes(x=test_OCI$variable, y=test_OCI$value, group =test_OCI$Pt)) +
  geom_point(aes(x=test_OCI$variable),size=3)+
  geom_line(aes(x=test_OCI$variable),group=test_OCI$Pt)+
  theme_bw()+
  theme(panel.border=element_blank(), 
        panel.grid.major=element_blank(),
        panel.grid.minor=element_blank(), 
        axis.line=element_line(color="black"))+
  scale_x_discrete(labels=c("OCI_pre_ART"="Pre-ART OCI", "OCI_on_ART"="On-ART OCI"))+
  stat_compare_means(paired=TRUE)
编辑1:添加样本数据

没有太多的数据,但我已经在每个请求下面添加了它

    Pt  variable    value
1   Pt1 OCI_pre_ART 0.024
2   Pt2 OCI_pre_ART 0.027
3   Pt3 OCI_pre_ART 0.027
4   Pt4 OCI_pre_ART 0.010
5   Pt5 OCI_pre_ART 0.075
6   Pt6 OCI_pre_ART 0.040
7   Pt7 OCI_pre_ART 0.070
8   Pt8 OCI_pre_ART 0.011
9   Pt9 OCI_pre_ART 0.022
10 Pt10 OCI_pre_ART 0.006
11 Pt11 OCI_pre_ART 0.019
12  Pt1  OCI_on_ART 0.223
13  Pt2  OCI_on_ART 0.166
14  Pt3  OCI_on_ART 0.163
15  Pt4  OCI_on_ART 0.126
16  Pt5  OCI_on_ART 0.090
17  Pt6  OCI_on_ART 0.139
18  Pt7  OCI_on_ART 0.403
19  Pt8  OCI_on_ART 0.342
20  Pt9  OCI_on_ART 0.092
编辑2:软件包


图形代码中的所有行都来自ggplot2,除了来自ggpubr的stat\u compare\u means(paired=TRUE)之外。

我不确定这是否是原因,但似乎
stat\u compare\u means()
行没有解释x~y感觉。将线路更改为
stat\u compare\u意味着(comparations=list(c(“OCI\u pre\u ART”,“OCI\u on\u ART”)),paired=TRUE)
生成了一个函数图。

您可以使用
dput(head(数据,20))包含一个数据样本吗
并将输出粘贴到您的问题中?@RAB我添加了一些数据作为编辑。请包括您需要的所有软件包used@Tung按要求包括包裹。