同じ x 軸を持つ 2 つのグラフがあります。どちらも x の範囲は 0 ～ 5 です。両方を 1 つのグラフに結合したいのですが、前の例が見つかりませんでした。これが私が得たものです：
c <- ggplot(survey, aes(often_post,often_privacy)) + stat_smooth(method="loess")
c <- ggplot(survey, aes(frequent_read,often_privacy)) + stat_smooth(method="loess")
どうすればそれらを組み合わせることができますか? Y 軸は「よくプライバシー」で、各グラフの X 軸は「よく投稿」または「よく読まれる」です。どちらも範囲が0～5なので（なんとなく）簡単に組み合わせられると思いました。
どうもありがとう！
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()
)
を使用して、同じオブジェクト+の他のプロットを組み合わせることができます。ggplotたとえば、両方の列のペアの点と平滑化された線をプロットするには、次のようにします。
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))
これを試して：
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()
