Question

[！[在此处输入图片描述] [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

LWT -0.014353 0.006523 -2.200 0.0278 *

签名。代码：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给出了

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

将r中的虚拟变量更改为我的期望变量虚拟变量，

LWT -0.014353 0.006523 -2.200 0.0278 *

1 个答案: