如何在R中的条形图中设置图例的大小？

Question

我在R中使用barplot创建了一个分组条形图。不幸的是，图例看起来异常巨大甚至被切断，如图所示。

这是我用过的代码。

# data:
#           a         b        c
# U 0.4405316 0.6553628 0.646097
# H 0.0544850 0.0283912 0.028300
# L 0.0046512 0.0015773 0.003371
# M 0.1860465 0.1064669 0.118002
# O 0.2478405 0.1861199 0.179914
# P 0.0006645 0.0007886 0.002350
# T 0.0677741 0.0205047 0.021761

    data <- cbind(c(0.4405316, 0.0544850, 0.0046512, 0.1860465, 0.2478405, 
                    0.0006645, 0.0677741),
            c(0.6553628, 0.0283912, 0.0015773, 0.1064669, 0.1861199, 
              0.0007886, 0.0205047),
            c(0.646097, 0.028300, 0.003371, 0.118002, 0.179914, 
              0.002350, 0.021761))
    data <- data.frame(data)
    names(data) <- c("a","b","c")
    rownames(data) <- c("U","H","L","M","O","P","T")

    barplot(t(as.matrix(data)), beside=TRUE, 
            col=heat.colors(length(colnames(data))),ylim=c(0,1))
    legend("topright",cex=1,fill=heat.colors(length(colnames(data))), 
           legend=colnames(data),bty = "y")

为什么这么糟糕？问题似乎不会发生here，其中设置选项＆＃34; topright＆＃34;做的工作。 我已经尝试将选项cex设置为低于1，但是图例的文本变得太小，而这里的问题是图例中矩形的巨大尺寸。 有什么想法吗？

更新：我现在意识到有一个类似的问题被问到here（基本上没有答案）。