[！[在此处输入图片描述] [1]] [1] 我正在尝试将r中的伪变量更改为所需的伪变量，但我使用的r代码未给出期望的结果。我已经在上面的附件图像中提供了我想要的r代码和结果。谢谢你的帮助。
lowbwt = read.csv（“ lowbwt_1.csv”，header = T）
图书馆（dplyr） 低体重<-低体重％>％ + mutate（黑色= ifelse（RACE_1 ==“黑色”，1,0））％>％ + mutate（Other = ifelse（RACE_1 ==“ Other”，0,1））％>％ + mutate（White = ifelse（RACE_1 ==“ White”，0,0）） model_1 = glm（LOW〜RACE_1 + AGE + LWT，data = lowbwt，family =“ binomial”） summary（model_1）
致电： glm（公式= LOW〜RACE_1 + AGE + LWT，家族=“二项式”， 数据=低体重）
残差残差：
最低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
签名。代码：0‘ ” 0.001‘ ‘0.01’’0.05。’0.1‘
（二项式族的色散参数取为1）
Null deviance: 234.67 on 188 degrees of freedom
残差：184自由度时为222.66 AIC：232.66
Fisher计分迭代次数：4
对比度（lowbwt $ RACE_1） 其他白 黑色0 0 其他1 0 白色0 1
但是我要生产以下内容： 其他白 黑色1 0 其他0 1 白色0 0 我将白色设为（0 0）而不是黑色，因为r给出了
答案 0 :(得分：0)
由于您尚未提供与我们一起使用的工具，因此我将使用内置示例来提高可重复性：
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