버블 차트 : 타일의 이름과 범위 및 플롯의 레이아웃을 변경하는 방법

Question

버블 플롯의 레이아웃과 타일을 변경하고 싶습니다. 불행히도 원하는 형식으로 내 코드를 변경하는 방법을 알 수 없습니다.

ggplot(test, aes(y = modules, x = correlation, colour=direction, size = pvalue)) + 
    geom_point(data = subset(test, correlation > 0.5 & pvalue > 1.3)) + 
    facet_grid(facets = . ~ Label) + ggtitle("Module-Trait Association") + 
    theme(axis.text = element_text(size = 10, color = "black")) + 
    theme(strip.background = element_rect(colour = "black", fill = "white",size = 1, linetype = NULL)) + scale_size_continuous(range = c(0, 12))+ 
    scale_colour_manual(values=c(down= "blue", up = "red")) + theme_bw() + 
    theme(panel.grid.major = element_blank(), 
    panel.grid.minor = element_blank(), 
    strip.background = element_rect(colour="white", fill="white"), 
    panel.border = element_rect(colour = "black") 
) 

1. 상관 값은 0.5 내지 1이므로, x 축에 그리드 값은 0.5 내지 0.9의 범위. 많은 거품의 가장자리 (r = 0.75 이상)는 크기를 줄인 경우에도 차트에서 벗어납니다. x 축을 0.3 - 1.2 범위로 변경하고 싶습니다.

2. "방향"("EigenGene Direction")과 "pvalue"("log10 (p)"열 이름의 타일 이름을 변경하고 싶습니다.

3. 가장 중요한 것은 타일의 p- 값을 나타내는 버블 크기의 범위를 변경하고 싶습니다. 2에서 4까지의 5 개의 거품을 표시합니다 (2, 2.5, 3, 3.5, 4). 1 ~ 4 크기의 거품이 필요합니다.

제발 조언을 부탁드립니다.

미리 감사드립니다. 아니타

Answer 1

비슷한 문제가있는 경우 제 질문에 대한 해결책을 찾았습니다.

ggplot(test, aes(y = modules,x = correlation, colour=direction, size = pvalue))+ 
    geom_point(data = subset(test, correlation > 0.5 & pvalue > 1.3))+ 
    facet_grid(facets = . ~ Label,margins = FALSE)+ 
    ggtitle("Module -Trait Association")+ 
    labs(x="Correlation", y="Module")+ 
    theme(strip.background = element_rect(colour = "black", fill = "white",size = 10, linetype = NULL))+ 
    scale_colour_manual("EigenGene Direction", values=c(down= "blue", up = "red")) + 
    theme_bw()+ 
    theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank(),strip.background = element_rect(colour="white", fill="white"),panel.border = element_rect(colour = "black",size = 1.2))+ 
    scale_size_area("p-value",max_size = 75, limits= c(1,50), breaks= c(1.3, 2, 3,4),labels= c("0.05","0.01","0.001","0.0001")) + 
    scale_x_continuous(breaks=c(0.5,0.7,0.9,1.1), limits=c(0.4,1.2), labels = c("0.5", "0.7","0.9", "1.1")) + 
    guides(color = guide_legend(override.aes = list(size=6))) + 
    theme(axis.text = element_text(size=12,colour = "black"),strip.text.x = element_text(colour = "black", face= "bold",angle = 0, size = 12)) + 
    theme(axis.title.y = element_text(size = 12,angle = 90,vjust = 1, face="bold"), axis.title.x = element_text(size = 12,angle = 0,vjust = 1, face="bold")) + 
    theme(legend.position= "right",legend.text = element_text(colour="black", size=10, face="bold"), legend.title = element_text(colour="black", size=12,face="bold"), plot.title=element_text(size=25))