légende de position d'un tracé de barre empilé

Je suis en train de créer un diagramme à barres empilées intrigue, mais je ne peut pas la position de la légende, de sorte qu'il ne chevauche pas l'un des bars. J'ai tenté d'ajuster les marges, réglage xlimen utilisant un legend déclaration et de la recherche ici, le tout sans succès. En effet, le code de l'exemple de l'ensemble de données provenaient de StackOverflow. Je suis à l'aide de la base de R et préfèrent une base de R solution. Je vous remercie pour tous les conseils.

setwd('c:/users/mmiller21/simple R programs/')

jpeg(filename = "barplot.jpeg")

set.seed(1234)
x <- replicate(8, round(10 * rexp(2000, 10)))
y <- apply(x, 2, function(column) table(factor(column, levels = 0:9)))
colnames(y) <- paste('A', seq(1,ncol(y),1), sep='')
rownames(y) <- paste('R', seq(1,nrow(y),1), sep='')
y

#      A1  A2  A3  A4  A5  A6  A7  A8
# R1  769 800 790 806 792 787 834 801
# R2  779 733 793 757 786 744 731 776
# R3  284 297 278 272 263 301 280 275
# R4  112 106  91 124 106 103 104  96
# R5   33  38  37  26  36  37  30  36
# R6   11  18   7  11  10  20  11   9
# R7    8   8   3   2   3   3   9   5
# R8    4   0   1   2   4   4   0   2
# R9    0   0   0   0   0   1   1   0
# R10   0   0   0   0   0   0   0   0

par(mfrow=c(1, 1), mar=c(5, 5, 4, 2) + 0.1)
barplot(y, col = 1:nrow(y), ylab="My Variables", legend.text = TRUE, 
        args.legend = list(x = "topright", bty = "n"))

dev.off()

légende de position d'un tracé de barre empilé

source d'informationauteur Mark Miller

  1. 12

    Comment à ce sujet:

    library(RColorBrewer)

barplot(
    y,
    xlim=c(0, ncol(y) + 3),
    col=brewer.pal(nrow(y), "Paired"),
    ylab="My Variables",
    legend.text=TRUE,
    args.legend=list(
      x=ncol(y) + 3,
      y=max(colSums(y)),
      bty = "n"
    )
)

    légende de position d'un tracé de barre empilé

  2. 6

    Avec des marges

    par(mfrow=c(1, 1), mar=c(5, 5, 4, 8))
barplot(y, col = 1:nrow(y), ylab="My Variables", legend.text = TRUE, 
        args.legend = list(x = "topright", bty = "n", inset=c(-0.15, 0)))
  3. 5

    Juste pour le plaisir, ici, il est en ggplot2sans chevauchement de la légende.

    set.seed(1234)
x <- replicate(8, round(10 * rexp(2000, 10)))
y <- apply(x, 2, function(column) table(factor(column, levels = 0:9)))
y <- as.data.frame(y)
colnames(y) <- paste('A', seq(1,ncol(y),1), sep='')
rownames(y) <- paste('R', seq(1,nrow(y),1), sep='')

library(ggplot2)
library(reshape)
y$ID <- rownames(y)
y.melt <- melt(y, id.var = 'ID')

y.melt <- within(y.melt, ID <- factor(ID, 
    c('R10','R9','R8','R7','R6','R5','R4','R3','R2','R1'), 
    ordered = TRUE))

ggplot(y.melt, aes(x = variable, y = value, fill = ID)) +
    geom_bar(stat = 'identity') +
    xlab("") +
    ylab("My variable") +
    theme(legend.title=element_blank())

    légende de position d'un tracé de barre empilé

  4. -1

    Vous devez ajouter xpd=TRUE dans par()

    par(mfrow=.., mar=...,xpd=TRUE)