Можно ли с помощью R expss и data.table загружать метки data.table из файла csv вместо того, чтобы вводить код вручную?

apply_labels не очень удобен для присвоения меток из внешнего словаря. Вместо этого вы можете использовать var_lab:

library(expss)
library(data.table)

readcsvdata <- function(dfile)
{
    rdata <- fread(file = dfile, sep = "," , quote = "\"" , header = TRUE, 
                   stringsAsFactors = FALSE, na.strings = getOption("datatable.na.strings","NA"))
    return(rdata)
}

rawdatafilename <- "testdata.csv"
rawmetadata <- "metadata.csv"

mdt <- readcsvdata(rawmetadata)
rdt <-readcsvdata(rawdatafilename)
commonnames <- intersect(names(mdt),names(rdt))  # find common 
qlabels <- as.list(mdt[1, commonnames, with = FALSE])


for (each_name in commonnames) # loop through commonnames and qlabels
{  
    var_lab(rdt[[each_name]]) <- qlabels[[each_name]]
}

Для меток значений существует аналогичная val_lab функция. Кроме того, вас могут заинтересовать функции apply_dictionary и create_dictionary. Чтобы получить справку по ним, введите в консоли ?apply_dictionary.

У меня нет expss под рукой, но я думаю, что в целом речь идет о том, как программно назначать аргументы функции в R.

Если вы начнете с файла CSV, который содержит три пары, которые вам нужны,

csvdat <- read.csv(stringsAsFactors=FALSE, text="
col1,col2,col3
label1,label2,label3")

Я напишу фальшивую функцию (поскольку у меня нет expss, и это не критично), которая динамически принимает первый аргумент и ноль или более последующих аргументов.

my_fake_labels <- function(x, ...) {
  dots <- list(...)
  message("x labels   : ", paste(sQuote(colnames(x)), collapse = ", "))
  message("other names: ", paste(sQuote(names(dots)), collapse = ", "))
}
origDT <- data.table(aa=1, bb=2)

my_fake_labels(origDT, col1="label1", col2="label2", col3="label3")
# x labels   : 'aa', 'bb'
# other names: 'col1', 'col2', 'col3'

Это та установка аргументов вручную, которой вы пытаетесь избежать. (Я знаю, что здесь не устанавливаю ярлыков, давайте пока проигнорируем это.)

Программный способ сделать это с использованием origDT в качестве первого аргумента и элементов csvdat в качестве второго и последующих аргументов:

do.call(my_fake_labels, c(list(origDT), csvdat))
# x labels   : 'aa', 'bb'
# other names: 'col1', 'col2', 'col3'

Второй аргумент do.call должен быть list с необязательным именем. Поскольку data.frame (и, следовательно, data.table) - это просто прославленный по имени list, это соответствует всем требованиям. Это делает каждый элемент списка и применяет его как соответствующие аргументы функции (первый аргумент do.call).

list(origDT) потому, что обычно функция c(...) объединяет столбцы / элементы двух списков. Если бы мы сделали только c(origDT, csvdat), тогда функция вызывалась бы с ncol(origDT) + ncol(csvdat) аргументами вместо желаемых 1 + ncol(csvdat). Для этого c(list(origDT), ...) проверяет, чтобы все origDT было первым аргументом функции.

(Также может быть легко сформировать csvdat программно, вместо того, чтобы требовать внешний файл, но я предполагаю, что у вас есть причина сделать это через CSV.)