为什么我的data.frame的第二列没有打印

我的第二专栏需要帮助。它不是印刷品。我的程序正在循环给我正确的医院，但没有给我第二列州名单。（医院所在州的缩写）

这就是我得到的：

[1] "ALASKA REGIONAL HOSPITAL"
[1] "BAPTIST MEDICAL CENTER EAST"
[1] "BAPTIST HEALTH MEDICAL CENTER NORTH LITTLE ROCK"
[1] "CARONDELET HEART AND VASCULAR INSTITUTE"
[1] "OLYMPIA MEDICAL CENTER"

但这正是我需要的

[1] "ALASKA REGIONAL HOSPITAL"                           "AK"                                                 
[1] "BAPTIST MEDICAL CENTER EAST"                        "AL"
[1] "BAPTIST HEALTH MEDICAL CENTER NORTH LITTLE ROCK"    "AR"

这是密码

states<-unique(dat$State)
state<-(sort(states))
for (i in 1:length(state))
    statelist<-state[i]
    HospitalName<-data.frame()
    for(i in 1:length(state)) {
        if(outcome=="heart attack" && num==num) {
            sub.heart.attack <- subset(dat,State==state[i],select=c (Hospital.Name,Hospital.30.Day.Death..Mortality..Rates.from.Heart.Attack))
            order.heart.attack <- order(as.numeric(sub.heart.attack[,2],na.rm=TRUE))
            number1.heart.attack <- order.heart.attack[num]
            HospitalName <- print(sub.heart.attack$Hospital.Name[number1.heart.attack])
            statelist
        }
    }
    HospitalName<-data.frame(HospitalName,statelist)
}

---

声明您正在打印的唯一内容是
打印（sub.heart.attack$Hospital.Name[number1.heart.attack]）
这根本不包括状态，因此我希望状态不打印也不奇怪我想HospitalName我更改了代码HospitalName的最后3行HospitalName考虑在子集任何列之前添加原始数据集的前10行。此外，如果你编辑你的代码，考虑在原来的帖子中而不是在评论中这样做。换句话说，如果人们可以从这个站点复制你的代码和示例数据，并将其粘贴到他们的计算机中，并使代码运行，并且最初返回与你得到的结果相同的话，那么你更有可能得到有用的答案。