如何为R中的计数数据绘制线？

我有这样的数据框：

frame <- data.frame("AGE" = seq(18,44,1), 
                   "GROUP1"= c(83,101,159,185,212,276,330,293,330,356,370,325,264,274,214,229,227,154,132,121,83,69,57,32,16,17,8),
                   "GROUP2"= c(144,210,259,329,391,421,453,358,338,318,270,258,207,186,173,135,106,92,74,56,41,31,25,13,16,5,8))

---

frame我们可以使用
matplot

matplot(`row.names<-`(as.matrix(frame[-1]), frame[,1]), 
    ylab='value',type = "l", xlab = "AGE",col = c("red", "blue"), pch = 1)
legend("topright", inset = .05, legend = c("GROUP1", "GROUP2"), 
        pch = 1, col = c("red", "blue"), horiz = TRUE)

matplot（`row.namesTry

这里是一个使用
dplyr
和
tidyr
包的替代解决方案

library(dplyr)
library(tidyr)

newframe <- frame %>% gather("variable","value",-AGE)

ggplot(newframe, aes(x=AGE, y=value, color=variable)) +
  geom_point() +
  geom_smooth()

谢谢！有可能用颜色遮盖线条下的区域吗？@technOslerphile有可能，但这不是最初的问题
library(ggplot2)
ggplot(meltdf,aes(x=AGE,y=value,colour=variable,group=variable)) + geom_line()

library(dplyr)
library(tidyr)

newframe <- frame %>% gather("variable","value",-AGE)

ggplot(newframe, aes(x=AGE, y=value, color=variable)) +
  geom_point() +
  geom_smooth()

ggplot(newframe, aes(x=AGE, y=value, fill=variable)) + geom_area()