Я создал простой график в R (версия R версия 3.0.1 (2013-05-16)), используяggplot2 (версия 0.9.3.1), которая показывает коэффициенты корреляции для набора данных. В настоящее время цветовая полоса легенды в правой части графика является частью всего размера графика.

Мне бы хотелось, чтобы цветовая панель легенды была такой же высоты, как и сюжет Я думал, что я мог бы использоватьlegend.key.height чтобы сделать это, но я обнаружил, что это не так. Я исследовалgrid пакетunit и обнаружил, что там были некоторые нормализованные единицы, но когда я их попробовал (unit(1, "npc")), цветная полоса была слишком высокой и ушла со страницы.

Как я могу сделать легенду такой же высоты, как и сам сюжет?

Полный автономный пример ниже:

# Load the needed libraries
library(ggplot2)
library(grid)
library(scales)
library(reshape2)

# Generate a collection of sample data
variables = c("Var1", "Var2", "Var3")
data = matrix(runif(9, -1, 1), 3, 3)
diag(data) = 1
colnames(data) = variables
rownames(data) = variables

# Generate the plot
corrs = data
ggplot(melt(corrs), aes(x = Var1, y = Var2, fill = value)) +
  geom_tile() +
  geom_text(parse = TRUE, aes(label = sprintf("%.2f", value)), size = 3, color = "white") +
  theme_bw() +
  theme(panel.border = element_blank(),
        axis.text.x = element_text(angle = 90, vjust = 0.5, hjust = 1),
        aspect.ratio = 1,
        legend.position = "right",
        legend.key.height = unit(1, "inch")) +
        labs(x = "", y = "", fill = "", title = "Correlation Coefficients") +
        scale_fill_gradient2(limits = c(-1, 1), expand = c(0, 0),
                             low = muted("red"),
                             mid = "black",
                             high = muted("blue"))