Unterschiedliche Positionen der Achsen-Beschriftungen und Markierungen in ein barplot

Ich würde gerne neu ausrichten/offset der x-Achse und die zugehörigen Teilstrichen von einem barplot. Dies sollte einfach sein, aber ich habe Probleme eine Antwort zu finden. Nachfolgend finden Sie einige Beispiel-Daten mit 24 Kategorien. 

xval = c(1:24)
count = c(0.03,0.03,0.08,0.06,0.11,0.4,0.3,0.5,0.5,0.6,0.4,0.1,0.1,0.4,0.2,0.1,0.06,0.05,0.03,0.02,0.01,0.03,0.01,0.02)
df = as.data.frame(cbind(xval, count))

Ich kann einfach produzieren ein barplot mit Teilstrichen ausgerichtet an der bar Mittelpunkte mit dem folgenden code:

mp <- barplot(df$count, space=0, axes=FALSE) 
axis(side=2, pos=-0.2)
axis(side=1, at =mp, labels=df$xval)

Kann ich auch ein shift der gesamten x-Achse (Etiketten und Zecken) zu richten, die mit der Außenseite des bars mit der unter (obwohl diese sich nicht integrieren, die Letzte bar in der Achse):

axis(side=1, at =mp-0.5, labels=df$xval)

Zwar möchte ich die x-Achse und die zugehörigen Teilstrichen ausgerichtet werden, mit dem bar-Grenzen (D. H. ein Häkchen auf jeder Seite des Balkens statt in der Mitte), ich will die x-Achsen-Beschriftungen bleiben an der bar Mittelpunkte. Gibt es eine einfache Möglichkeit, dies zu erreichen?

InformationsquelleAutor Emily | 2013-10-28

  1. 7

    Ist es das, was du suchst?

    # create positions for tick marks, one more than number of bars
at_tick <- seq_len(length(count) + 1)

# plot without axes
barplot(count, space = 0, axes = FALSE) 

# add y-axis
axis(side = 2, pos = -0.2)

# add x-axis with offset positions, with ticks, but without labels.
axis(side = 1, at = at_tick - 1, labels = FALSE)

# add x-axis with centered position, with labels, but without ticks.
axis(side = 1, at = seq_along(count) - 0.5, tick = FALSE, labels = xval)

    Unterschiedliche Positionen der Achsen-Beschriftungen und Markierungen in ein barplot

    Henrik: Vielen Dank. Brilliant, diese Art der Beschriftung Positionen, obwohl ich möchte die Achsen und hilfsstriche zu erweitern, um die Letzte bar auf der rechten Seite, wenn möglich?
    Henrik: Das ist perfekt. Vielen, vielen Dank!

    InformationsquelleAutor Henrik

Schreibe einen Kommentar