Как построить все столбцы фрейма данных в R

Фрейм данных состоит из n столбцов, и я хотел бы получить n графиков, по одному графику для каждого столбца.

Я новичок и плохо владею R, так или иначе, я нашел два решения.

Первое работает, но не выводит имя столбца (а они мне нужны!):

data <- read.csv("sample.csv",header=T,sep=",")
for ( c in data ) plot( c, type="l" )

Второе работает лучше, потому что выводит имя столбца:

data <- read.csv("sample.csv",header=T,sep=",")
for ( i in seq(1,length( data ),1) ) plot(data[,i],ylab=names(data[i]),type="l")

Есть ли лучшие (с точки зрения языка R) решения?