Vẽ hai biến bằng cách sử dụng ggplot2 - cùng trục x

Question

Tôi có hai biểu đồ có cùng trục x - phạm vi của x là 0-5 trong cả hai. Tôi muốn kết hợp cả hai thành một biểu đồ và tôi không tìm thấy ví dụ trước. Đây là những gì tôi nhận được:

c <- ggplot(survey, aes(often_post,often_privacy)) + stat_smooth(method="loess") 
c <- ggplot(survey, aes(frequent_read,often_privacy)) + stat_smooth(method="loess") 

Làm cách nào để kết hợp chúng? Trục y là "thường riêng tư" và trong mỗi biểu đồ trục x là "thường xuyên đăng" hoặc "đọc thường xuyên". Tôi nghĩ rằng tôi có thể kết hợp chúng một cách dễ dàng (bằng cách nào đó) bởi vì phạm vi là 0-5 trong cả hai.

Rất cám ơn!

Answer 1

Bạn có thể sử dụng + để kết hợp các ô khác trên cùng một đối tượng ggplot. Ví dụ: để vẽ các điểm và đường trơn cho cả hai cặp cột:

ggplot(survey, aes(often_post,often_privacy)) + 
geom_point() + 
geom_smooth() + 
geom_point(aes(frequent_read,often_privacy)) + 
geom_smooth(aes(frequent_read,often_privacy)) 

Answer 2

Ví dụ mã cho giải pháp của Ben.

#Sample data 
survey <- data.frame(
    often_post = runif(10, 0, 5), 
    frequent_read = 5 * rbeta(10, 1, 1), 
    often_privacy = sample(10, replace = TRUE) 
) 
#Reshape the data frame 
survey2 <- melt(survey, measure.vars = c("often_post", "frequent_read")) 
#Plot using colour as an aesthetic to distinguish lines 
(p <- ggplot(survey2, aes(value, often_privacy, colour = variable)) + 
    geom_point() + 
    geom_smooth() 
) 

Answer 3

Hãy thử điều này:

df <- data.frame(x=x_var, y=y1_var, type='y1') 
df <- rbind(df, data.frame(x=x_var, y=y2_var, type='y2')) 
ggplot(df, aes(x, y, group=type, col=type)) + geom_line()