vấn đề huyền thoại ggplot w/geom_point và geom_text

Question

Tôi đang cố gắng sử dụng geom_point để minh họa số lượng dữ liệu của mình. Tôi cũng muốn chú thích một vài điểm trong biểu đồ của mình với geom_text. Khi tôi thêm cuộc gọi vào geom_text, có vẻ như nó đang vẽ đồ thị bên dưới các điểm trong chú giải. Tôi đã cố gắng đảo ngược thứ tự của các lớp để không có kết quả. Tôi không thể quấn đầu xung quanh tại sao nó lại làm điều này. Có ai thấy điều này trước đây không?

set.seed(42) 
df <- data.frame(x = 1:10 
    , y = 1:10 
    , label = sample(LETTERS,10, replace = TRUE) 
    , count = sample(1:300, 10, replace = FALSE) 
) 

p <- ggplot(data = df, aes(x = x, y = y, size = count)) + geom_point() 
p + geom_text(aes(label = label, size = 150, vjust = 2)) 

Answer 1

này xảy ra với tôi tất cả các thời gian. Bí quyết là biết rằng aes() ánh xạ dữ liệu đến thẩm mỹ. Nếu không có dữ liệu để ánh xạ (ví dụ: nếu bạn có một giá trị duy nhất mà bạn xác định), không có lý do gì để sử dụng aes(). Tôi tin rằng chỉ những thứ bên trong của aes() mới xuất hiện trong huyền thoại của bạn.

Ngoài ra, khi bạn chỉ định ánh xạ bên trong ggplot(aes()), các ánh xạ đó áp dụng cho mỗi lớp tiếp theo. Điều đó tốt cho x và y của bạn, vì cả hai geom_point và geom_text đều sử dụng chúng. Điều đó không tốt cho size = count, vì điều đó chỉ áp dụng cho các điểm.

Vì vậy, đây là hai quy tắc của tôi để ngăn chặn loại điều:

1. Chỉ đưa ánh xạ dựa trên dữ liệu bên trong của aes(). Nếu đối số đang lấy một giá trị được xác định trước, hãy chuyển nó đến lớp bên ngoài của aes().
2. Dữ liệu bản đồ chỉ dành cho những lớp sẽ sử dụng nó. Hệ quả: chỉ có dữ liệu bản đồ bên trong của ggplot(aes()) nếu bạn tin tưởng rằng mọi lớp tiếp theo sẽ sử dụng nó. Nếu không, ánh xạ nó ở cấp lớp.

Vì vậy, tôi sẽ vẽ này thusly:

p <- ggplot(data = df, aes(x = x, y = y)) + geom_point(aes(size = count)) 
p + geom_text(aes(label = label), size = 4, vjust = 2) 

Answer 2

hoặc, nếu bạn cần phải xác định kích thước của văn bản bên trong aes, sau đó huyền thoại = FALSE suppress vẽ những huyền thoại của Geom:

p <- ggplot(data = df, aes(x = x, y = y, size = count)) + geom_point() 
p + geom_text(aes(label = label, size = 150, vjust = 2), show_guide = FALSE)