如何在 r 中使用列表元素作为 plot 标题？

Question

I have this kind of data:

d<- list(d1 = list(`1979` = 3.8234619080332, `1980` = 3.94835997755299, 
    `1981` = 4.40780893307071), d2 = list(`1979` = 3.78682062013644, 
    `1980` = 3.89720895853959, `1981` = 4.35137469930167))

I am trying to plot my data and I want to use the list names d1 and d2 as plot titles.

I have tried this function with lapply;

fun1<-function(x) {
  y<-x
  x<-unlist(x)
  plot(ecdf(x), main=deparse(substitute(y)))
  }

lapply(d, fun1)

What I got are:

But I want to see d1 for the first plot and d2 for the second plot as the main title name instead of "list(d1 = list( 1979 = 3.823461...."

Answer 1

You could use mapply to loop over both d and names(d) to pass the name of the list element to your function:

d<- list(d1 = list(`1979` = 3.8234619080332, `1980` = 3.94835997755299, 
                   `1981` = 4.40780893307071), d2 = list(`1979` = 3.78682062013644, 
                                                         `1980` = 3.89720895853959, `1981` = 4.35137469930167))

fun1<-function(x, y) {
  plot(ecdf(unlist(x)), main=y)
}

mapply(fun1, d, names(d))

Answer 2

You could include the lapply() in your function and use the names() .

fun1 <- function(d) {
  nm <- names(d)
  lapply(nm, function(i) plot(ecdf(unlist(d[[i]])), main=i))
}

op <- par(mfrow=c(1, 2))
fun1(d)
par(op)

Answer 3

Using purrr::imap -

fun1<-function(x, y) {
  plot(ecdf(unlist(x)), main=y)
}

purrr::imap(d, fun1)