Có cách nào để thay đổi khoảng cách giữa các mục chú giải trong ggplot2 không?

Có cách nào để thay đổi khoảng cách giữa các mục chú giải trong ggplot2 không? Tôi hiện có

legend.position ="top" 

tự động tạo chú giải ngang. Tuy nhiên, khoảng cách của các mục rất gần nhau và tôi đang băn khoăn không biết làm thế nào để chúng cách xa nhau hơn.

ggplot2 v3.0.0phát hành vào tháng 7 năm 2018 đã lựa chọn làm việc để sửa đổi legend.spacing.x, legend.spacing.yvà legend.text.

Ví dụ: Tăng khoảng cách ngang giữa các phím chú giải

library(ggplot2)

ggplot(mtcars, aes(factor(cyl), fill = factor(cyl))) + 
  geom_bar() +
  coord_flip() +
  scale_fill_brewer("Cyl", palette = "Dark2") +
  theme_minimal(base_size = 14) +
  theme(legend.position = 'top', 
        legend.spacing.x = unit(1.0, 'cm'))

Lưu ý: Nếu bạn chỉ muốn mở rộng khoảng cách ở bên phải của văn bản chú giải, hãy sử dụng stringr::str_pad()

Ví dụ: Di chuyển các nhãn của phím chú giải xuống dưới cùng và tăng khoảng cách theo chiều dọc

ggplot(mtcars, aes(factor(cyl), fill = factor(cyl))) + 
  geom_bar() +
  coord_flip() +
  scale_fill_brewer("Cyl", palette = "Dark2") +
  theme_minimal(base_size = 14) +
  theme(legend.position = 'top', 
        legend.spacing.x = unit(1.0, 'cm'),
        legend.text = element_text(margin = margin(t = 10))) +
  guides(fill = guide_legend(title = "Cyl",
                             label.position = "bottom",
                             title.position = "left", title.vjust = 1)) 

Ví dụ: cho scale_fill_xxx&guide_colorbar

ggplot(mtcars, aes(mpg, wt)) +
  geom_point(aes(fill = hp), pch = I(21), size = 5)+
  scale_fill_viridis_c(guide = FALSE) +
  theme_classic(base_size = 14) +
  theme(legend.position = 'top', 
        legend.spacing.x = unit(0.5, 'cm'),
        legend.text = element_text(margin = margin(t = 10))) +
  guides(fill = guide_colorbar(title = "HP",
                               label.position = "bottom",
                               title.position = "left", title.vjust = 1,
                               # draw border around the legend
                               frame.colour = "black",
                               barwidth = 15,
                               barheight = 1.5)) 

Đối với chú giải theo chiều dọc , cài đặt legend.key.sizechỉ làm tăng kích thước của các phím chú thích, không làm tăng khoảng cách dọc giữa chúng

ggplot(mtcars) +
  aes(x = cyl, fill = factor(cyl)) +
  geom_bar() +
  scale_fill_brewer("Cyl", palette = "Dark2") +
  theme_minimal(base_size = 14) +
  theme(legend.key.size = unit(1, "cm"))

Để tăng khoảng cách giữa các phím chú giải, cần sửa đổi legend-draw.rchức năng. Xem vấn đề này để biết thêm thông tin

# function to increase vertical spacing between legend keys
# @clauswilke
draw_key_polygon3 <- function(data, params, size) {
  lwd <- min(data$size, min(size) / 4)

  grid::rectGrob(
    width = grid::unit(0.6, "npc"),
    height = grid::unit(0.6, "npc"),
    gp = grid::gpar(
      col = data$colour,
      fill = alpha(data$fill, data$alpha),
      lty = data$linetype,
      lwd = lwd * .pt,
      linejoin = "mitre"
    ))
}

# register new key drawing function, 
# the effect is global & persistent throughout the R session
GeomBar$draw_key = draw_key_polygon3

ggplot(mtcars) +
  aes(x = cyl, fill = factor(cyl)) +
  geom_bar() +
  scale_fill_brewer("Cyl", palette = "Dark2") +
  theme_minimal(base_size = 14) +
  theme(legend.key = element_rect(color = NA, fill = NA),
        legend.key.size = unit(1.5, "cm")) +
  theme(legend.title.align = 0.5)

Tôi nghĩ lựa chọn tốt nhất là sử dụng guide_legendtrong guides:

p + guides(fill=guide_legend(
                 keywidth=0.1,
                 keyheight=0.1,
                 default.unit="inch")
      )

Lưu ý việc sử dụng default.unit, không cần tải gridgói.

Một bản sửa lỗi đơn giản mà tôi sử dụng để thêm khoảng trắng trong chú giải theo chiều ngang, chỉ cần thêm khoảng trắng trong nhãn (xem phần trích xuất bên dưới):

  scale_fill_manual(values=c("red","blue","white"),
                    labels=c("Label of category 1          ",
                             "Label of category 2          ",
                             "Label of category 3"))

Bây giờ nó optskhông được dùng nữa trong ggplot2gói, themenên sử dụng hàm để thay thế:

library(grid) # for unit()
... + theme(legend.key.height=unit(3,"line"))
... + theme(legend.key.width=unit(3,"line"))

Để thêm khoảng cách giữa các mục nhập trong chú giải, hãy điều chỉnh lề của phần tử chủ đề legend.text.

Để thêm 30pt khoảng trống vào bên phải của mỗi nhãn chú giải (có thể hữu ích cho chú giải ngang):

p + theme(legend.text = element_text(
    margin = margin(r = 30, unit = "pt")))

Để thêm 30pt khoảng trống vào bên trái của mỗi nhãn chú giải (có thể hữu ích cho chú giải dọc):

p + theme(legend.text = element_text(
    margin = margin(l = 30, unit = "pt")))

cho một ggplot2đối tượng p. Các từ khóa là legend.textvà margin.

[Lưu ý về chỉnh sửa: Khi câu trả lời này được đăng lần đầu tiên, đã có một lỗi. Lỗi hiện đã được sửa]

Có vẻ như cách tiếp cận tốt nhất (vào năm 2018) là sử dụng legend.key.sizebên dưới themeđối tượng. (ví dụ: xem tại đây ).

#Set-up:
    library(ggplot2)
    library(gridExtra)

    gp <- ggplot(data = mtcars, aes(mpg, cyl, colour = factor(cyl))) +
        geom_point()

Điều này thực sự dễ dàng nếu bạn đang sử dụng theme_bw():

  gpbw <- gp + theme_bw()

#Change spacing size:

  g1bw <- gpbw + theme(legend.key.size = unit(0, 'lines'))
  g2bw <- gpbw + theme(legend.key.size = unit(1.5, 'lines'))
  g3bw <- gpbw + theme(legend.key.size = unit(3, 'lines'))

  grid.arrange(g1bw,g2bw,g3bw,nrow=3)

Tuy nhiên, điều này không hoạt động khá tốt nếu không (ví dụ: nếu bạn cần nền màu xám trên biểu tượng chú giải của mình):

  g1 <- gp + theme(legend.key.size = unit(0, 'lines'))
  g2 <- gp + theme(legend.key.size = unit(1.5, 'lines'))
  g3 <- gp + theme(legend.key.size = unit(3, 'lines'))

  grid.arrange(g1,g2,g3,nrow=3)

#Notice that the legend symbol squares get bigger (that's what legend.key.size does). 

#Let's [indirectly] "control" that, too:
  gp2 <- g3
  g4 <- gp2 + theme(legend.key = element_rect(size = 1))
  g5 <- gp2 + theme(legend.key = element_rect(size = 3))
  g6 <- gp2 + theme(legend.key = element_rect(size = 10))

  grid.arrange(g4,g5,g6,nrow=3)   #see picture below, left

Lưu ý rằng các hình vuông màu trắng bắt đầu chặn tiêu đề chú giải (và cuối cùng là chính biểu đồ nếu chúng ta tiếp tục tăng giá trị).

  #This shows you why:
    gt <- gp2 + theme(legend.key = element_rect(size = 10,color = 'yellow' ))

Tôi chưa tìm thấy giải pháp khắc phục sự cố ở trên ... Hãy cho tôi biết trong phần nhận xét nếu bạn có ý tưởng và tôi sẽ cập nhật cho phù hợp!

• Tôi tự hỏi liệu có cách nào đó để xếp lớp lại mọi thứ bằng cách sử dụng $layers...

Từ công việc của Koshke trên ggplot2 và blog của anh ấy (blog của Koshke )

... + theme(legend.key.height=unit(3,"line")) # Change 3 to X
... + theme(legend.key.width=unit(3,"line")) # Change 3 to X

Nhập theme_get()bảng điều khiển để xem các thuộc tính chú giải có thể chỉnh sửa khác.

Sử dụng bất kỳ cái nào trong số này

legend.spacing = unit(1,"cm")
legend.spacing.x = unit(1,"cm")
legend.spacing.y = unit(1,"cm")