在xy軸上繪制一個變量的子集（避免擴展/重塑數據幀）

Question

我想知道是否可以在xy軸上繪制一個變量的行子集而不必擴展/整形數據框？

偽數據

library(tidyverse)
id <- 1:6
size <- c(5, 2, 3, 4, 2, 8)
colour <- rep(c("red", "blue", "green"), 2)
df <- data.frame(id, size, colour)

嘗試

x11()
ggplot(data = filter(df, colour %in% c("blue", "red")),
       aes(x = size[colour == "blue"],
           y = size[colour == "red"])) +
  geom_point()

所需結果

Answer 1

是的，有可能。 一種解決方案是直接將向量提交給aes （IMO這是ggplot2濫用，但是現在我想不出任何其他解決方案）。

# Subset data once so we wouldn't need to subset twice for nrow 
id <- 1:6
size <- c(5, 2, 3, 4, 2, 8)
colour <- rep(c("red", "blue", "green"), 2)
df <- data.frame(id, size, colour)
pd <- subset(df, colour %in% c("blue", "red"))

# Use dummy empty data.frame
library(ggplot2)
ggplot(data.frame(), 
       # Submit x,y values as vectors that go every second entry
       aes(pd$size[seq(2, nrow(pd), 2)], pd$size[seq(1, nrow(pd), 2)])) +
    geom_point()