Đặt đường viền xung quanh các điểm

Question

Tôi muốn đặt đường viền màu đen xung quanh các điểm trên ô phân tán được điền dựa trên dữ liệu, sử dụng ggplot2. Ngoài ra, tôi muốn tránh có một mục nhập huyền thoại cho biên giới đen vì nó sẽ được trên mỗi điểm. Về cơ bản tôi đang tìm cốt truyện này, nhưng với một đường viền màu đen xung quanh mỗi điểm.

df <- data.frame(id=runif(12), x=1:12, y=runif(12)) 
ggplot(df, aes(x=x, y=y))+geom_point(aes(colour=id), size=12) 

Như một phần thưởng, tôi muốn không có một mục chú giải cho các viền đen. thử tốt nhất của tôi là:

df <- data.frame(id=runif(12), x=1:12, y=runif(12)) 
ggplot(df, aes(x=x, y=y))+geom_point(aes(fill=id, colour="black"), size=12) 

Mà cho:

Tôi không hiểu tại sao mà không cho tôi những gì tôi muốn, và tồi tệ hơn (đối với giáo dục của tôi trong ggplot2) Tôi không hiểu tại sao nó dường như không ánh xạ màu tô vào bất cứ thứ gì! Bất kỳ giúp đỡ?

Có lẽ nếu tôi có thể vẽ đường viền và vẽ bản đồ ngay, tôi có thể sử dụng một hack giống như trong hte bộ số liệu cuối cùng here để tắt chú giải.

Answer 1

Đó là một chút mơ hồ, nhưng bạn phải sử dụng pch> 20 (tôi nghĩ 21:25 là những hình có liên quan): fill điều khiển chiếc nhẫn colo nội thất (u) và colour kiểm soát đường xung quanh mép.

(g0 <- ggplot(df, aes(x=x, y=y))+geom_point(aes(fill=id), 
     colour="black",pch=21, size=5)) 

cập nhật: với phiên bản ggplot2 gần đây (ví dụ 2.0.0, không biết bao xa lại nó đi) hướng dẫn mặc định là một colourbar. Cần g0 + guides(fill="legend") để có được một huyền thoại với các điểm như trong cốt truyện được hiển thị ở đây. Vỡ mặc định đã thay đổi, quá: để chính xác lặp lại âm mưu này, bạn cần g0 + scale_fill_continuous(guide="legend",breaks=seq(0.2,0.8,by=0.1)) ...

liên quan nhưng không giống hệt nhau: how to create a plot with customized points in R?. Câu trả lời được chấp nhận cho câu hỏi đó sử dụng kỹ thuật phân lớp được hiển thị trong câu trả lời của @ joran, nhưng (IMO) câu trả lời của @jbaums, sử dụng kỹ thuật pch=21, là cấp trên. (Tôi nghĩ shape=21 là một sự thay thế, và có lẽ thậm chí ưa thích, để pch=21.)

PS bạn nên đặt colourngoài ánh xạ (aes bit) nếu bạn muốn thiết lập nó hoàn toàn và không theo giá trị của một số biến ...

Answer 2

Câu hỏi thứ nhất là một gimme:

ggplot(df, aes(x=x, y=y)) + 
    geom_point(aes(colour=id), size=12) + 
    geom_point(shape = 1,size = 12,colour = "black") 

Và, ồ, bạn không muốn một huyền thoại thêm. Tôi nghĩ rằng có phải nó thì:

Answer 3

Tôi đã gặp vấn đề tương tự, nhưng tôi cũng cần một giải pháp cho phép jitter. Đối với điều này, bạn cần phải sử dụng một pch đó là một hình dạng đầy với một biên giới và một chức năng grid.edit từ gói gridExtra.Sử dụng ví dụ của bạn:

df <- data.frame(id=runif(12), x=1:12, y=runif(12)) 
ggplot(df, aes(x=x, y=y, fill=id))+geom_point(pch=21, colour="Black", size=12) 

library(gridExtra) 
grid.edit("geom_point.points", grep = TRUE, gp = gpar(lwd = 3))