R barplot échelle des axes

Je veux tracer une barplot de certaines données avec certains x-étiquettes de l'axe mais jusqu'à présent, je viens de le garder en cours d'exécution dans le même problème, comme l'axe de mise à l'échelle est complètement hors limite, et donc mes étiquettes sont mal placés sous les barres.
Le plus simple exemple de ce que je peux penser de:

x = c(1:81)
barplot(x)
axis(side=1,at=c(0,20,40,60,80),labels=c(20,40,60,80,100))

Comme vous pouvez le voir, l'axe des abscisses n'est pas extensible à l'ensemble de la parcelle, mais s'arrête quelque part entre les deux. Il me semble que si le problème est assez simple, mais j'ai de toute façon je ne suis pas en mesure de régler le problème et je ne pouvais trouver aucune solution à ce jour 🙁

Toute aide est grandement appréciée.

  • Comme soulevé par @DWin: est la discordance entre votre at et labels arguments intentionnelle ou une faute de frappe?
InformationsquelleAutor bontus | 2011-11-27
  1. 1

    Vous ne savez pas exactement ce que vous wnat, mais Si c'est pour avoir les étiquettes de course d'un bout à l'autre uniformément endroits (mais pas nécessairement avec précision), puis:

    x = c(1:81)
bp <- barplot(x)
axis(side=1,at=bp[1+c(0,20,40,60,80)],labels=c(20,40,60,80,100))

    Le casse-tête pour moi était la raison pour laquelle vous avez voulu label "20" à 0. Mais c'est une façon de le faire.

    InformationsquelleAutor 42-
  2. 12

    Le problème est que barplot est vraiment conçu pour le traçage catégorique, pas de données numériques, et, comme telle, elle a assez bien fait son propre truc en termes de configuration de l'échelle de l'axe horizontal. Le principal moyen de contourner ce problème est de récupérer la réelle x-positions de la barre de milieux en enregistrant les résultats de barplot à une variable, mais comme vous pouvez le voir ci-dessous, je ne viens pas avec un moyen élégant de faire ce que vous voulez dans la base de graphiques. Peut-être que quelqu'un d'autre peut faire mieux.

    x = c(1:81)
b <- barplot(x)
## axis(side=1,at=c(0,20,40,60,80),labels=c(20,40,60,80,100))
head(b)

    Vous pouvez voir ici que le milieu emplacements sont de 0,7 à 1,9, 3.1, ... -- non pas 1, 2, 3 ...

    C'est assez rapide, si vous ne voulez pas prolonger l'axe de 0 à 100:

    b <- barplot(x)
axis(side=1,at=b[c(20,40,60,80)],labels=seq(20,80,by=20))

    C'est mon meilleur coup à faire des graphismes de base:

    b <- barplot(x,xlim=c(0,120))
bdiff <- diff(b)[1]
axis(side=1,at=c(b[1]-bdiff,b[c(20,40,60,80)],b[81]+19*bdiff),
              labels=seq(0,100,by=20))

    Vous pouvez l'essayer, mais les barres ne sont pas aussi jolie:

    plot(x,type="h",lwd=4,col="gray",xlim=c(0,100))

    Ou dans ggplot:

    library(ggplot2)
d <- data.frame(x=1:81)
ggplot(d,aes(x=x,y=x))+geom_bar(stat="identity",fill="lightblue",
                   colour="gray")+xlim(c(0,100))

    La plupart des graphiques statistiques nerds vont vous dire que graphique quantitatif (x,y) les données sont mieux fait, avec des points ou des lignes plutôt que des barres (non-données-de l'encre, Tufte, bla bla bla 🙂 )

    InformationsquelleAutor Ben Bolker