У меня есть список данных.Я пытаюсь использовать lapply для создания графика для каждого фрейма данных, с именем фрейма в качестве заголовка графика.
Например, это работает без заголовка графика:
# example dataframes
df1=data.frame(a=c(1,2,3,4,5),b=c(5,4,3,2,1))
df2=data.frame(a=c(2,2,2,2,2),b=c(5,4,3,2,1))
# list of dataframes
dflist=list(df1,df2)
# set dataframe names
names(dflist)=c("df1","df2")
# plotting area
par(mfrow=c(1,2))
# plots
lapply(dflist, function(x) {
a<-x[,"a"]
b<-x[,"b"]
plot(b,a)
x})
Чтобы получить имя элемента списка, я надеялся, что ответ будет таким простым:
lapply(dflist, function(x) {
a<-x[,"a"]
b<-x[,"b"]
plot(b,a,main=names(x))
x})
Но при этом получаются имена переменных в каждом фрейме данных.
Я понимаю ответгде-то здесь содержится:
Как получить имя каждого элемента списка с помощью lapply ()?
Но мне не повезло, пытаясь применитьрешение моего конкретного случая.