7

次の形式のxtsがあります

                   a        b     c        d       e        f   ......
2011-01-03         11.40    NA    23.12    0.23    123.11   NA  ......
2011-01-04         11.49    NA    23.15    1.11    111.11   NA  ......
2011-01-05         NA       NA    23.11    1.23    142.32   NA  ......
2011-01-06         11.64    NA    39.01    NA      124.21   NA  ......
2011-01-07         13.84    NA    12.12    1.53    152.12   NA  ......

NA のみを含む列がない新しい xts または data.frame を生成するために適用できる関数はありますか?

NAを含む列の位置は静的ではないため、名前または位置でそれらの列を削除することはできません

4

4 に答える 4

5

@Jiberのソリューションは機能しますが、すべての列がない場合、予期しない結果になる可能性がありますNA。例えば：

# sample data
library(xts)
data(sample_matrix)
x <- as.xts(sample_matrix)

# Jiber's solution, when no columns have all missing values
DF <- as.data.frame(x)
DF[, -which(sapply(DF, function(x) sum(is.na(x)))==nrow(DF))]
# data frame with 0 columns and 180 rows

すべての欠損値を持つ列があるかどうかに関係なく機能するソリューションを次に示します。

y <- x[,apply(!is.na(x), 2, all)]
x$High <- NA
x$Close <- NA
z <- x[,apply(!is.na(x), 2, all)]
于 2012-10-27T12:07:17.617 に答える
5

DFあなたのdata.frameだとします

 DF [, -which(sapply(DF, function(x) sum(is.na(x)))==nrow(DF))]
               a     c    d      e
2011-01-03 11.40 23.12 0.23 123.11
2011-01-04 11.49 23.15 1.11 111.11
2011-01-05    NA 23.11 1.23 142.32
2011-01-06 11.64 39.01   NA 124.21
2011-01-07 13.84 12.12 1.53 152.12
于 2012-10-27T09:48:09.830 に答える
2

これはもっと簡単なようです：

DF[, colSums(is.na(DF)) < nrow(DF)]
于 2012-10-27T11:10:31.223 に答える
2

これを試して：

dataframe[,-which(apply(is.na(dataframe), 2, all))]
于 2012-10-27T09:40:04.473 に答える