kiểm soát ggplot2 huyền thoại nhìn mà không ảnh hưởng cốt truyện

Question

Tôi đang âm mưu dòng với ggplot2 như thế này:

ggplot(iris, aes(Petal.Width,Petal.Length,color=Species)) + geom_line() + theme_bw() 

.

Tôi thấy dấu huyền thoại là nhỏ nên tôi muốn chúng lớn hơn. Nếu tôi thay đổi kích thước, các dòng trên ô cũng thay đổi:

ggplot(iris, aes(Petal.Width,Petal.Length,color=Species)) + geom_line(size=4) + theme_bw() 

.

Nhưng tôi chỉ muốn thấy những đường nét dày trong truyền thuyết, tôi muốn các dòng trên cốt truyện mỏng. Tôi cố gắng để sử dụng legend.key.size nhưng nó thay đổi bậc hai của nhãn hiệu, không phải là chiều rộng của đường:

library(grid) # for unit 
ggplot(iris,aes(Petal.Width,Petal.Length,color=Species))+geom_line()+theme_bw() + theme(legend.key.size=unit(1,"cm")) 

Tôi cũng cố gắng sử dụng điểm:

ggplot(iris,aes(Petal.Width,Petal.Length,color=Species)) + geom_line() + geom_point(size=4) + theme_bw() 

Nhưng tất nhiên nó vẫn ảnh hưởng đến cả cốt truyện và chú thích:

Tôi muốn sử dụng các đường cho cốt truyện và dấu chấm/điểm cho chú giải.

Vì vậy, tôi hỏi về hai điều:

1. Làm thế nào để thay đổi độ rộng của dòng trong huyền thoại mà không thay đổi cốt truyện?
2. Làm cách nào để vẽ các đường trong ô, nhưng vẽ các điểm/chấm/hình vuông trong chú giải?

Answer 1

Để thay đổi dòng chiều rộng chỉ trong truyền thuyết, bạn nên sử dụng chức năng guides() và sau đó cho colour= sử dụng guide_legend() với override.aes= và thiết lập size=. Điều này sẽ ghi đè kích thước được sử dụng trong cốt truyện và sẽ sử dụng giá trị kích thước mới chỉ dành cho chú giải.

ggplot(iris,aes(Petal.Width,Petal.Length,color=Species))+geom_line()+theme_bw()+ 
     guides(colour = guide_legend(override.aes = list(size=3))) 

Để có được điểm trong huyền thoại và dòng trong cốt truyện workaround sẽ thêm geom_point(size=0) để đảm bảo rằng các điểm đang ẩn danh và sau đó trong guides() thiết linetype=0 để loại bỏ dòng và size=3 để có được điểm lớn hơn.

ggplot(iris,aes(Petal.Width,Petal.Length,color=Species))+geom_line()+theme_bw()+ 
     geom_point(size=0)+ 
     guides(colour = guide_legend(override.aes = list(size=3,linetype=0)))