Lấy màu huyền thoại trong một ggplot rỗng

Question

Trước khi trình bày dữ liệu thực tế, tôi muốn tạo một ô giống hệt với dữ liệu có dữ liệu nhưng sau đó không có các điểm dữ liệu trong đó. Điều này giúp tôi giải thích cách diễn giải một cốt truyện như vậy mà không làm xao lãng đối tượng với dữ liệu thực tế sẽ có trong cốt truyện.

Vì vậy, trong đoạn mã bên dưới, về cơ bản tôi muốn trao đổi geom_point() với geom_blank(). Không vấn đề gì.

Tuy nhiên, điều này cũng xóa thông tin về màu sắc và kích thước khỏi các truyền thuyết mà mã cốt truyện tạo ra. Có cách nào để lấy lại điều này không?

ggplot(vas, aes(x=time, y=pain, colour=light.color, size=light.intensity)) + 
    #geom_point(na.rm=FALSE) + 
    geom_blank() + 
    facet_wrap(~ppno) + 
    scale_colour_manual(values=cols) + 
    scale_y_continuous(name="VAS Pain (a.u.)") + 
    scale_x_continuous(name="Time (minutes)") 

Cách thích hợp để đưa chỉ báo màu trở lại vào (các) chú giải. Bây giờ, họ chỉ hiển thị (các) giá trị của các mức khác nhau của một tham số (màu hoặc kích thước) nhất định nhưng không phải là phần tử đồ họa thực tế (màu hoặc kích thước của dấu chấm) đi cùng với một mức nhất định.

Answer 1

Bạn có thể vẽ hai geom_points() - một với màu nền của bạn không?

ggplot(cars, aes(x=speed, y=dist))+ 
geom_point(aes(col=speed))+ 
geom_point(colour="white")+ 
theme_bw() 

Answer 2

Làm cách nào để ẩn điểm thực tế bên ngoài cửa sổ vẽ đồ thị? Một cái gì đó dọc theo những dòng:

ggplot(cars, aes(x=speed+100, y=dist))+ #move x values to the right 
    geom_point(aes(col=speed))+ 
    scale_x_continuous(at=seq(5,125,by=5), limits=c(0,30)) #set plotting window 

Answer 3

Cuối cùng, lấy gợi ý Aniko dọc (mà tôi ban đầu không thể có được để làm việc, do đó loại bỏ, unrightly như vậy) tôi đã đưa ra đoạn mã sau.

vas2 <- vas 
vas2$time <- vas2$time+181 
pp <- p %+% vas2 #p is the above plot assigned to a variable. 
pp + scale_x_continuous(name="Time (minutes)", limits=c(0,180)) 

Vì vậy, nó là về chỉ chuyển xung quanh dữ liệu của bạn trên một trục và sau đó không bao gồm một phần của

Answer 4

Một cách đơn giản để làm điều này sẽ được sử dụng tùy chọn kích thước:

ggplot(vas, aes(x=time, y=pain, colour=light.color, size=light.intensity)) 
+ geom_point(size=0)