R代码：
barplot(counts,
        main="Stacked Bar Plot",
        xlab = "Treatment",ylab="Frequency",
        col = c("red","yellow","green"),
        )

legend("topright",
           inset=0,pch=c(15,15,15),
           c("Marked","Some","None"),
           col=c("green","yellow","red"))

这是《R in Action》P122 figure6.2中的，
如何把plot中的legent小图往上提啊，不要遮住下面的图，求教

原图是：