R - 使用 ggplot2 和两个不同大小的数据集

Question

我想为两个不同大小的数据集做一个散点图。

假设我有两个 data.frames：df1、df2。 df1 的行大小为 100，df2 的行大小为 50。有没有办法用 ggplot2 做散点图？我已经搜索但找不到任何东西。在线教程总是假设数据集大小相同，x 轴的值相同。另外，我想在同一个图中绘制两个数据集，而不是并排。

以下是一些示例数据：

df1<-data.frame(X1=1:10,Y11=11:20,Y12=21:30,Y13=31:40)

df2<-data.frame(X2=1.5:10.5,Y21=1.5:10.5)

让我们假设 X1 是一列，其值以公里为单位测量距离。 Y11 是具有 Car1 燃料消耗值的向量，Y12 是具有 Car2 燃料消耗值的向量，依此类推。现在 X2 仍然是矢量，其值以公里为单位测量距离，与 X1 不同，但在相同的范围内。 Y21 是改装 Car1 的油耗。我想把它们放在同一个散点图中，x轴是距离（km），y轴是油耗

Answer 1

如果您提供示例数据集，这将更容易回答。但您可以这样做（确保每个 data.frame 具有相同的列名）：

df1 <- data.frame(x = 1:50, y = 1:50)
df2 <- data.frame(x = 100:1, y = 1:100)

df1$cat <- "df1"
df2$cat <- "df2"

df <- rbind(df1, df2)

library(ggplot2)
ggplot(df, aes(x, y, color = cat))+
  geom_point()

这给了你这个：

Answer 2

如果您想将所有数据绘制在一起，那么最好重塑您的数据。这是使用其他 tidyverse 函数的示例

library(tidyr)
library(dplyr)

dd <- bind_rows(
  df1 %>% gather(car, mpg, -X1) %>% rename(X=X1),
  df2 %>% gather(car, mpg, -X2) %>% rename(X=X2)
)

ggplot(dd, aes(X, mpg, color=car)) + geom_point()

Answer 3

这是一个老问题，但最近我用比这里更快的方法解决了一个类似的问题

ggplot with 2 y axes on each side and different scales

也许你可以先把其中一个数据集缩小，然后试试ggplot2中的“双y轴”功能，即，

p <– ggplot2(dataframe, ...)+...
p + scale_y_continuous(name, ..., sec.axis = sec_axis(...))

其中sec.axis 表示“第二个轴” 请参阅 https://www.r-graph-gallery.com/line-chart-dual-Y-axis-ggplot2.html 详情。 R 中的?sec_axis 也有帮助。

Answer 4

感谢 MrFrick 的评论，我想我明白了。

ggplot(data=df1) + geom_point(aes(x=X1,y=Y11, 
                          color="Car1"))+
  geom_point(data=df2,aes(x=X2,y=Y21),color="ModCar2"))