删除错误的x轴。bars

| 我今天遇到了问题,我想从下面的R图中删除x轴,但它不会消失。我希望轴位于顶部。 有人可以帮助我吗?
library(psych)
temp <- describe(attitude)
error.bars(stats=temp,xaxt=\"n\")
axis(3)
    
已邀请:
您可以使用
fixInNamespace()
psych
NAMESPACE中编辑
error.bars()
功能。尝试:
fixInNamespace(error.bars)
这将在基本文本编辑窗口中打开该功能。找到
axis()
通话,并注释掉不需要的通话。退出编辑器,R将更新名称空间中的功能。 然后尝试再次使用该功能。 或者,您可以将
error.bars()
的代码打印到提示中,将其复制到文本编辑器中,更改函数名称,例如
my.error.bars
,并像以前一样注释掉
axis()
调用。将功能保存在文件中,然后将其“ 9”保存到会话中,或者将功能复制并粘贴到其中。然后使用即可。 第三种选择是,计算ѭ2的基本绘图方式-查看代码。自己重新创建该图,没有轴,然后用
add = TRUE
调用
error.bars()
。     
如注释中所示,您可以编辑源代码。最简单的方法可能是使用\'fix \':
eb = fix(error.bars)
应该弹出一个编辑器。将axis(1,.etc。)调用更改为axis(3,.etc。)。然后,您有一个名为eb()的新函数,其功能类似于error.bars。 您可能还需要调整其他一些内容,例如标题放在顶部时会脚。     
只是为了显示Gavin使用add = T的含义:
group <- factor(rep(1:10,10))
y <- (1:10)[group] + rnorm(100)

grmean <- tapply(y,group,mean)
plot(1:10,grmean,xaxt=\"n\",type=\"n\")

unstacked <- unstack(data.frame(y,group),y~group)
error.bars(unstacked,add=T)
axis(3)
给出:     

要回复问题请先登录注册