Сохранение меток переменных при манипулировании данными

Question

Я использую .dta набор данных в R, из которых переменные имеют метки. В качестве примера переменной S006 имеет ярлык "Оригинальный номер респондента".

str (WVS) выглядит следующим образом:

$ S003     :Class 'labelled'  atomic [1:341271] 392 392 392 392 392 392 392 
392 392 392 ...
  .. ..- attr(*, "label")= chr "Country/region"
  .. ..- attr(*, "format.stata")= chr "%8.0g"
  .. ..- attr(*, "labels")= Named num [1:199] NA NA NA NA NA 4 8 12 16 20 ...
  .. .. ..- attr(*, "names")= chr [1:199] "Missing; Unknown" "Not asked in 
survey" "Not applicable" "No answer" ...
 $ S003A    :Class 'labelled'  atomic [1:341271] 392 392 392 392 392 392 392 
392 392 392 ...
  .. ..- attr(*, "label")= chr "Country/regions [with split ups]"
  .. ..- attr(*, "format.stata")= chr "%8.0g"
  .. ..- attr(*, "labels")= Named num [1:199] NA NA NA NA NA 4 8 12 16 20 ...
  .. .. ..- attr(*, "names")= chr [1:199] "Missing; Unknown" "Not asked in 
survey" "Not applicable" "No answer" ...

Поскольку набор данных огромен, и мне иногда просто хочется взглянуть на структуру набора данных, я подумал, что умен, и создал фрейм данных только с первыми 50 наблюдениями старого фрейма данных:

WVS50 <- WVS [1:50,]

Эта манипуляция, однако, удалила все метки переменных.

Структура становится:

 $ S003     :Class 'labelled'  atomic [1:50] 392 392 392 392 392 392 392 392 392 392 ...
  .. ..- attr(*, "labels")= Named num [1:199] NA NA NA NA NA 4 8 12 16 20 ...
  .. .. ..- attr(*, "names")= chr [1:199] "Missing; Unknown" "Not asked in survey" "Not applicable" "No answer" ...

Видимо, эти два раздеты:

  .. ..- attr(*, "label")= chr "Country/region"
  .. ..- attr(*, "format.stata")= chr "%8.0g"

Как я смогу сохранить метки переменных?