ggplot2 : 플롯에 다른 범례 추가하기 (두 번)

Question

버블 플롯 주파수를 플로팅하는 데 사용되는 다음 데이터 세트가 있습니다.

주파수 시간 1

Freq1에서 주파수입니다 주파수는 시간이

id names variable value Freq Freq.1 

1 1 item1 1 13 11 
2 2 item2 1 9 96 
3 3 item1 2 10 28 
4 4 item2 2 15 8 
5 5 item1 3 9 80 
6 6 item2 3 9 10 
7 7 item1 4 11 89 
8 8 item2 4 14 8 
9 9 item1 5 3 97 
10 10 item2 5 25 82 

나는 음모를 꾸미고에 대해 다음 코드를 사용하여 오전에 있고, 나는 음모 좋아해요. '색상 하나, 크기에 대한 다른 하나는,하지만 난 할 수 있습니다

theme_nogrid <- function (base_size = 12, base_family = "") { 
    theme_bw(base_size = base_size, base_family = base_family) %+replace% 
    theme(panel.grid = element_blank()) 
} 
plot1<- ggplot(Data, aes(x = variable, y = value, size = Freq, color=Freq.1))+ 
    geom_point(aes(size = Freq, stat = "identity", position = "identity"), 
       shape = 19, color="black", alpha=0.5) + 
    geom_point(aes(size = Freq.1, stat = "identity", position = "identity"), 
       shape = 19, color="red", alpha=0.5) + 
    scale_size_continuous(name= "Frequencies ", range = c(2,30))+ 
    theme_nogrid() 

1 내가이 전설을 가지고 싶다 : 나는 전설 몇 가지 문제가 오전 그러나 나는 아래의 설명이 나는 그것을 할 수있는 올바른 주장을 얻는다. (나는 지침서와 주제 문서를 참고해야한다. 내 생각으로는 내 문제를 해결할 수 없다.)

2 두 개의 전설을 가지고 난 후에 나는 더 커 보이기 위해 범례 모양 (텍스트가 아니라 배경, 모양 만 (실제로 플롯을 변경하지 않음)). 여기에 나와 예를 들어 보겠습니다. (실제 데이터의 예입니다.) 당신이 볼 수 있듯이 첫 번째 이미지에서 색을 구분하는 것은 거의 불가능합니다. 그것은 초보자 질문,하지만 난 정말의 예를 얻을 수없는 경우

죄송합니다.

감사합니다,

앙굴로

Answer 1

는 "컬러"전설이 큰에 동그라미를 만들 것입니다이

library(ggplot2) 
library(tidyr) 
d <- gather(Data, type, freq, Freq, Freq.1) 
ggplot(d, aes(x = variable, y = value))+ 
    geom_point(aes(size = freq, colour = type), shape = 19, alpha = 0.5) + 
    scale_size_continuous(name = "Frequencies ", range = c(2, 30)) + 
    scale_colour_manual(values = c("red", "blue")) + 
    theme_nogrid() + 
    guides(colour = guide_legend(override.aes = list(size = 10))) 

마지막 줄 같은 것을보십시오.