标签在

Question

我试图将名称添加到我的柱状图中的列barplot（）......有2条各组中，将共享相同的名字..

我使用这样的代码：

l<-c(.6286, .2212, .9961, .5831, .8703, .6990, .9952, .9948) 

r<-c(.2721, .5663, .0, .3961, .0696, .1180, .0, .0) 

tab<-rbind(l,r) 

plot<-barplot(tab, beside=TRUE, axisnames=FALSE, main = 'Time Spent Left vs. Right', sub = 'Female 2c', xlab= 'Days After Entry', ylab = 'Proportion of Time Spent', col=c('blue', 'red'), ylim = c(0,1)) 
legend('topleft', .8, c('Left' , 'Right'), pch=c(.8), col=c('blue', 'red')) 
names.arg = jd2c$d.in.p 

names.arg=c(3,4,5,6,6,7,10,11) #listed for informational purposes, same as jd2c$d.in.p 

jd2c $ d.in.p也在上面列出..出于某种原因，names.arg功能似乎并没有做什么我期望的那样。即使我把它放在bar plot（）函数的括号内。

我在做什么错了？

谢谢！

Answer 1

正确使用您的数据并设置names.arg和axisnames=TRUE，我会得到一个合理的结果。我调整了一些其他的东西（设置las=1将轴标签水平，在图例中使用fill而不是col，摆脱pch=0.8）。

par(las=1) 
bnames <- c(3,4,5,6,6,7,10,11) #listed for informational purposes, same as jd2c$ 
plot<-barplot(tab, beside=TRUE, axisnames=TRUE, 
       main = 'Time Spent Left vs. Right', 
       sub = 'Female 2c', xlab= 'Days After Entry', 
       ylab = 'Proportion of Time Spent', 
       col=c('blue', 'red'), ylim = c(0,1), 
       names.arg=bnames) 
legend('topleft', cex=1, c('Left' , 'Right'), fill=c('blue', 'red')) 

Answer 2

您正在定义names.arg不是作为参数传递给barplot功能，但作为一个完全独立的可变它是在括号外。这：

plot<-barplot(tab, beside=TRUE, axisnames=FALSE, main = 'Time Spent Left vs. Right', sub = 'Female 2c', xlab= 'Days After Entry', ylab = 'Proportion of Time Spent', col=c('blue', 'red'), ylim = c(0,1)) 
legend('topleft', .8, c('Left' , 'Right'), pch=c(.8), col=c('blue', 'red')) 
names.arg = jd2c$d.in.p 

应该是：

plot<-barplot(tab, beside=TRUE, axisnames=FALSE, main = 'Time Spent Left vs. Right', sub = 'Female 2c', xlab= 'Days After Entry', ylab = 'Proportion of Time Spent', col=c('blue', 'red'), ylim = c(0,1), names.arg = jd2c$d.in.p) 
legend('topleft', .8, c('Left' , 'Right'), pch=c(.8), col=c('blue', 'red')) 

还必须设置为axisnames=TRUE出现的名字。