Обозначение нескольких участков с оригинальным названием

Question

Я строю несколько графиков:

a <- dir(pattern="stuff.*\\.txt$")
for (i in 1:length(a)) {
  b <- read.table(a[i])
  jpeg(paste("/../.../", i, ".jpg"))
  plot(b$V1,b$V2, main=?)
  dev.off()
}

Я хочу назвать все jpg & main =? с оригинальным именем файла. Все jpgs из этого кода названы от 1 до N. Есть ли какой-нибудь способ сделать это?

Answer 1

Возможно, я что-то упустил, но переменная a[i] - это исходное имя файла данных. Так что вам просто нужно сделать:

plot(b$V1, b$V2, main=a[i])

В вашей функции 'paste' разделителем по умолчанию является пробел, поэтому:

paste("A", "B") 

дает A B. Вместо этого вы хотите: paste( A , B , sep=""). При создании файла jpeg вы должны удалить расширение .txt или .csv из ваших данных. Так что-то вроде:

library(tools)
fname = file_path_sans_ext(a[i])
jpeg(paste("/../.../", fname, ".jpg", sep=""))

Должно работать