使用ggplot2绘制两个变量 - 相同的x轴

Question

我有两张相同x轴的图表 - 两者的x范围都是0-5。 我想将它们两者合并到一个图表中，我没有找到前面的例子。 这是我得到的：

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。

非常感谢！

Answer 1

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 2

您可以使用+在同一个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))

Answer 3

试试这个：

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()