我正在尝试创建一个堆积条形图,但我无法定位图例,以便它不会与任何条形图重叠 . 我已经尝试调整边距,设置 xlim
,使用单独的 legend
语句并在此处搜索,但都没有成功 . 实际上,示例数据集的代码来自StackOverflow . 我使用基础R并且更喜欢基础R解决方案 . 谢谢你的任何建议 .
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()
4 回答
这个怎么样:
有利润
只是为了好玩,这里是
ggplot2
,没有重叠的传说 .你应该在
par()
中添加xpd=TRUE