R отбрасывает метки переменных во время подмножества () - PullRequest
Новая
       12

R отбрасывает метки переменных во время подмножества ()

0 голосов
/ 04 ноября 2019

У меня есть набор данных с именем staffpai, в который я добавил метки переменных, используя функцию expss apply_labels (). Когда я делаю подмножество из этого набора данных, все метки исчезают, и я бы хотел их сохранить. Как мне их сохранить, или какую еще функцию переменной метки я должен использовать вместо этого?

cc_limited <- subset(staffpai, close_code_cat=="Limited Service", select=(-c(number, open_date, close_date, birth_date)))

Спасибо

РЕДАКТИРОВАТЬ: Хорошо, я сделал это,и по какой-то причине лейблы вышли вперед. ?? Изначально я применил метки несколько дней назад, поэтому, когда я выполнял подмножество, я не применял библиотеку (expss), когда запускал subset (), потому что зачем мне это? Я сделал с этикетками. Но, видимо, это требуется ???? Потому что ниже приведен пример того, что я сделал, но с mtcars и лейблами все в порядке. Единственная разница в том, что я не выключил R между ними. Поэтому я выключил R и повторно запустил библиотеку (expss), а затем повторно запустил подмножество, не применяя метки, и они прошли очень хорошо.

library(expss)

mtcars2 = apply_labels(mtcars, mpg = "miles per gallon", cyl = "cylinders", hp = "horsepower")

mtcars3 <- subset(mtcars2, cyl=="6", select=(-c(disp, drat, wt, qsec, vs, am, gear, carb)))

1 Ответ

1 голос
/ 04 ноября 2019

Хорошо, я сделал это, и по какой-то причине лейблы вышли вперед. ?? Изначально я применил метки несколько дней назад, поэтому, когда я выполнял подмножество, я не применял библиотеку (expss), когда запускал subset (), потому что зачем мне это? Я сделал с этикетками. Но, видимо, это требуется ???? Потому что ниже приведен пример того, что я сделал, но с mtcars и лейблами все в порядке. Единственная разница в том, что я не выключил R между ними. Поэтому я выключил R и повторно запустил библиотеку (expss), а затем повторно запустил подмножество, не применяя метки снова, и они прошли очень хорошо. 

library(expss)

mtcars2 = apply_labels(mtcars,
                      mpg          = "miles per gallon",
                      cyl      = "cylinders",
                      hp   = "horsepower")

mtcars3 <- subset(mtcars2, cyl=="6", 
                     select=(-c(disp, drat, wt, qsec, 
                                vs, am, gear, carb)))
...