R 索引/选择所有未丢失的/NA列

我有一个包含大量NAs的数据帧。在进行探索性分析时，我更希望在打印到屏幕时只查看未缺失的列

mtcars[ 1 , 1 ] <- NA
mtcars[ 2 , 2 ] <- NA

---

mtcars[1，1]有人给了我一个有效的代码

names(mtcars)[ which(!is.na(mtcars[ 1 ,   ] )) ]
names(mtcars)[ which(!is.na(mtcars[ 2 ,   ] )) ]

也许是一个更好的方法-但这是有效的
这个怎么样：

viewRow <- function(x,row) x[row,!is.na(x[row,])]
viewRow(mtcars,1)
          cyl disp  hp drat   wt  qsec vs am gear carb
Mazda RX4   6  160 110  3.9 2.62 16.46  0  1    4    4
viewRow(mtcars,2)
              mpg disp  hp drat    wt  qsec vs am gear carb
Mazda RX4 Wag  21  160 110  3.9 2.875 17.02  0  1    4    4

viewRow您可以在没有
which
的情况下编写该语句。@初学者，虽然我似乎记得在某个地方读过
which
使语句更快…哦，是吗？我不知道。谢谢你指出这一点。@初学者，找到了我的想法：这正是我想要的