동일한 플롯에서 패싯과 같은 다중 분포 플롯 (다른 변수)

Question

여러 변수의 분포 플롯을 단일 이미지 파일에 넣으 려합니다. 모든 분포 플롯 (서브 플롯)에는 유사한 그룹이 색상으로 구분되어 있습니다.

현재 ggplot을 사용하여 각 변수를 개별적으로 플로팅하는 방법을 사용하고 있습니다. 그런 다음 grid.arrange를 사용하여 모든 하위 그림을 결합하여 모든 배포를 나타낼 수 있습니다.

(아래 예 코드)

각 부가 적 줄거리의 X 축에 사용되는 변수는 다른

알 수있는 바와 같이

#plot1 
plot_min_RTT <- ggplot(house_total_year, aes(x=min_RTT, colour = ISP)) + 
geom_density(adjust = 1/2,alpha=0.1, size = 2) 

#plot2 
plot_MaxMSS <- ggplot(house_total_year, aes(x=MaxMSS, colour = ISP)) + 
geom_density(adjust = 1/2,alpha=0.1, size = 2) 

#plot3 
plot_send_buffer_size <- ggplot(house_total_year, aes(x=send_buffer_size, colour = ISP)) + 
geom_density(adjust = 1/2,alpha=0.1, size = 2) 

#plot4 
plot_maxSpeed <- ggplot(house_total_year_filtered, aes(x=download_speed_max_month, colour = ISP)) + 
geom_density(adjust = 1/2,alpha=0.1, size = 2) 

#combine 
grid.arrange(plot_min_RTT,plot_MaxMSS,plot_send_buffer_size,plot_maxSpeed) 

이다. 그러나 모든 변수에는 비슷한 그룹 변수 (ISP)가 있습니다. 나는 아래 하나의 플롯으로 돌아가 셨습니다 :

그러나, 내가 실제로 원하는 것은 모든 줄거리를위한 단 하나의 전설 (ISP)를하는 것입니다. 나는 ggplot에서 facet_wrap 함수를 사용하려고 생각하고 있었지만 여전히 고민 중입니다. 도와주세요.

의견을 보내 주시면 감사하겠습니다.

감사합니다. :)

Answer 1

재현성있는 데이터를 제공하지 않으므로 ggplot 패키지와 함께 제공되는 data.frame mpg을 사용했습니다.

# Subset the data 
d <- mpg[, c(1, 3:5)] 
# your ISP == manufacturer 
# Than transform the data to long format as stated already in the comments using reshape function melt 
library(reshape2) 
d_long <- melt(d) 
head(d_long) 
    manufacturer variable value 
1   audi displ 1.8 
2   audi displ 1.8 
3   audi displ 2.0 
4   audi displ 2.0 
5   audi displ 2.8 
6   audi displ 2.8 

# Now plot the data using the variable column in facet_grid for the layout. 
# scales = "free_x" is used for vairable dependend x-axis scales. 
ggplot(d_long, aes(x = value, colour = manufacturer)) + 
    geom_density() + 
    facet_grid(~ variable, scales = "free_x") + 
    theme_bw() 
# Instead of using facet_grid you can try 
# facet_wrap(~ variable, scales = "free_x", ncol = 2) 
# to arrange the plots row- and colwise as your needs are. The scaling of both axis can also changed. 
ggplot(d_long, aes(x = value, colour = manufacturer)) + 
    geom_density() + 
    facet_wrap(~ variable, scales = "free", ncol = 2) + 
    theme_bw()