Question

好的家伙我需要在列表中使用ggplot2（使用lapply）来获取列表中每个元素的单独图表。我是R的新手，所以请原谅noob-ness。

假设我有这样的数据框：

df <- cbind.data.frame(Time = c(1,2,3,4,1,2,3,4), 
Person = c("A","A","A","A","B","B","B","B"), 
Quantity = c(1,4,6,8,1,6,2,10))

df <- data.table(df)

> df
   Time Person Quantity
1:    1      A        1
2:    2      A        4
3:    3      A        6
4:    4      A        8
5:    1      B        1
6:    2      B        6
7:    3      B        2
8:    4      B       10

我想分别为A人和B人制作一张图表。目前我的功能设置如下：

Persons = c("A","B")
PersonList = as.list(Persons)


MyFunction <- function(x){

SubsetPersons = Persons[!(Persons %in% x)]
df <- df[!(df$Person %in% SubsetPersons)]

g <- ggplot(data=df, aes(x=Time, y=Quantity))
g <- g + geom_line()
print(g)

}

Results <- lapply(Persons, MyFunction)

但我不确定如何使用与列表元素对应的不同名称保存图表？

注意：我知道这个函数似乎是一个解决这个问题的奇怪方法，但对于我手头有的更大更复杂的问题，它是必需的。我只想弄清楚如何为列表中的图表保存不同的名称！

提前致谢！

Answer 1

Persons = c("A","B")

MyFunction <- function(x){

  dfs <- df[df$Person == x,]

  g <- ggplot(data=dfs, aes(x=Time, y=Quantity))
  g <- g + geom_line()

#have added extra bracket after ".PNG"
  ggsave(paste0("plot_for_person", x, ".PNG"), g)

  print(g)

  return(g)

}

Results <- lapply(Persons, MyFunction)

使用ggplot2和lapply分隔列表中元素的图表

1 个答案: