Tracer des graphiques horizontaux avec des valeurs positives et négatives sur le barplot()

Question

J'ai cette trame de données avec 30 colonnes, dont la première a des valeurs positives, les suivantes négatives et ainsi de suite. Je veux faire un graphique à barres horizontales comparant chacune de ces colonnes par paires (une positive avec une négative).

données Reproductible:

x = 0:600 
y = 0:-600 

col1<- sample(x, 40) 
col1 
col2<- sample(y, 40) 
col2 

df = as.data.frame(rep(data.frame(col1, col2), 15)) 
df 

final.data<-colMeans(df, na.rm=T) 
final.data 

Lorsque je tente cette commande:

barplot(final.data, 
    horiz=TRUE, 
    xlim=c(-500,500), 
    xlab="average time (seconds)", 
    axisnames=FALSE) 

je reçois quelque chose de similaire à:

Ma question principale est:

1. Comment faire pour que les barres horizontales que je veux comparer soient l'une à côté de l'autre et pas légèrement vers le bas?

Une autre question connexe que je ne pouvais pas trouver la réponse à:

1. Comment puis-je ajouter un * devant les traitements que j'ai vu de différence significative?

Answer 1

Peut-être que vous devriez simplement ajouter un groupe à la fois:

dat <- as.vector(replicate(15, c(sample(-100:10, 1), sample(1:100, 1)))) 

barplot(dat[seq(1, 29, 2)], xlim = c(-100, 100), horiz = TRUE, col = "red") 
barplot(dat[seq(2, 30, 2)], horiz = TRUE, add = TRUE, col = "blue")