Замена фиктивной переменной в r на мои переменные желания фиктивные переменные,

Question

[! [Введите описание изображения здесь] [1]] [1] Я пытаюсь заменить фиктивные переменные в r на фиктивные переменные моего желания, но используемый мной код r не дал желаемого результата. Я предоставил код r и результат, который я хочу, на прикрепленном изображении выше. Спасибо, что помогаете.

lowbwt = read.csv ("lowbwt_1.csv", заголовок = T)

библиотека (dplyr) lowbwt <-lowbwt%>% + mutate (черный = ifelse (RACE_1 == "черный", 1,0))%>% + mutate (Другое = ifelse (RACE_1 == "Другое", 0,1))%>% + mutate (белый = ifelse (RACE_1 == "белый", 0,0)) model_1 = glm (LOW ~ RACE_1 + AGE + LWT, data = lowbwt, family = "binomial") Резюме (model_1)

Вызов: glm (формула = LOW ~ RACE_1 + AGE + LWT, семейство = "бином", data = lowbwt)

Остатки отклонения: Мин 1Q Медиана 3Q Макс
-1,4052 -0,8946 -0,7209 1,2484 2,0982

Коэффициенты: Оценка Станд. Значение ошибки z Pr (> | z |)
(Перехват) 2,310563 1,146923 2,015 0,0439 * RACE_1Другое -0,560361 0,512830 -1,093 0,2745
RACE_1Белый -1.003822 0.498014 -2.016 0.0438 * ВОЗРАСТ -0,025524 0,033252 -0,768 0,4427

LWT -0,014353 0,006523 -2,200 0,0278 *

Signif. коды: 0 ‘’ 0,001 ‘’ 0,01 ‘’ 0,05 ‘.’ 0,1 ‘’ 1

(параметр дисперсии для биномиального семейства принят за 1)

Null deviance: 234.67  on 188  degrees of freedom

Остаточное отклонение: 222,66 на 184 степени свободы AIC: 232,66

Количество итераций Фишера: 4

контрасты (lowbwt $ RACE_1) Другой Белый Черный 0 0 Другое 1 0 Белый 0 1

Но я хочу произвести следующее: Другой Белый Черный 1 0 Другое 0 1 Белый 0 0 I Белые должны быть базовыми с (0 0), а не черными, поскольку r дает

Answer 1

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

utils::example(factor)
fff <- ff[, drop = TRUE]  # reduce to 5 levels.

Теперь мы будем использовать fff в качестве нашего фактора, все, что нам нужно изменить, - это база:

 contrasts(fff) # treatment contrasts by default
  c i s t
a 0 0 0 0
c 1 0 0 0
i 0 1 0 0
s 0 0 1 0
t 0 0 0 1
contrasts(C(fff, base=5))# Change the base to 5
  1 2 3 4
a 1 0 0 0
c 0 1 0 0
i 0 0 1 0
s 0 0 0 1
t 0 0 0 0