亲爱的RS英格兰vs伊朗让球tudio会员们:
我非常感谢如果有人能给我一些提示,如何删除在geom_col中缺少值的数据。我花了好几个小时在网上搜索各种资料。我尝试了以下方法:
- na.omit ()
- 完整的
- na.rm()。
但没有奏效。我的数据有以下3个变量:
- ID(103人):1-103
- Dif_GAD7_0_9(抑郁评分,93次观察),这只是治疗前(第0周)和治疗后(第9周)的差异。
- Actual_Dif_GAD7_0_9表示可靠的变化或不可靠的变化(1=可靠的变化,0=不可靠的变化,有93个观察值)。
我使用了以下代码:
data2 = data1 [complete.cases (Dif_GAD7_0_9)] data3 < data2[秩序(Dif_GAD7_0_9)] S1A_GAD0_9 < -data3 % > %安排(Dif_GAD7_0_9) % > %变异(ID2 =因素(ID、水平= ID)) % > % ggplot (aes (x = ID2, y = Dif_GAD7_0_9,填补= as.factor (Actual_Dif_GAD7_0_9))) + geom_col(位置=“身份”)+ geom_hline (yintercept = 5.07) + scale_fill_manual(值= c(“红”、“绿色”),标签= c(“不可靠的改变”,“可靠的变化”))+ theme_classic() +实验室(x =“个人”,y =“总GAD-7变化”,fill = "Actual_Dif_GAD7_0_9") + theme(axis.text. text. 9)x = element_text(size =5)) + annotation ("text", x = 38, y = 10, label = " N=93\ Mean change=6.59\ SD=5.81", col = "Black", size = 2.5) + ggtitle(" text", x = 38, y = 10, label = " N=93\ Mean change=6.59\ SD=5.81")第9周vs第0周”)+主题(情节。标题= element_text(size = 8.5, face ="bold")) +主题(轴。标题= element_text(size = 7.5, face ="bold")) +主题(图例。标题= element_text(size = 7.5)) +主题(图例。S1A_GAD0_9 . text = element_text(size = 7.0)) + guides(color=c("Red", "Green")) + scale_fill_discrete(name="Reliable change", labels=c("Not Reliable", "Reliable")
和输出已与附图
Rplot.pdf(6.4 KB)
与NA的传奇仍然存在。所以,如果有人能帮忙,我非常感谢。
我期待得到您的支持。卡塔尔世界杯欧洲预选赛赛程表