问题

自定义函数返回geom_line不能用。

使用geom_line

library(ggplot2)

x1 <- c(1, 2, 3)
y1 <- c(3, 1.5, 1)
x2 <- c(1.5, 1.5, 2.5)
y2 <- c(2.5, 1, 1)


# 这样可以正常输出两条曲线
ggplot() + 
  geom_line(aes(x1, y1), color = "red") +
  geom_line(aes(x2, y2))

使用自定义函数

# 写个函数封装geom_line
mygeom <- function(x, y) {
  geom_line(aes(x, y))
}

line1 <- mygeom(x1, y1)
line2 <- mygeom(x2, y2)
line1

## mapping: x = x, y = y 
## geom_line: na.rm = FALSE
## stat_identity: na.rm = FALSE
## position_identity

class(line1)

## [1] "LayerInstance" "Layer"         "ggproto"

# 不能输出
ggplot() +
  line1 +
  line2

# 对比line1的输出和geom_line(aes(x1, y1))的输出
geom_line(aes(x1, y1))

## mapping: x = x1, y = y1 
## geom_line: na.rm = FALSE
## stat_identity: na.rm = FALSE
## position_identity

line1

## mapping: x = x, y = y 
## geom_line: na.rm = FALSE
## stat_identity: na.rm = FALSE
## position_identity

geom_line(aes(x1, y1))的输出中x对应x1，y对应y1。

而line1的输出x=x, y=y，估计这里就是问题所在，那么函数应该怎么写呢？

求指导\^_^