2

私はこのソリューションの成功を再現しようとしています:

リスト内のすべてのデータフレームから NA を持つ列を削除します

また

一部の値が NA であるデータフレームから列を削除する

データフレームのリスト:

m1<- structure(list(vPWMETRO = c(1520L, 1520L, 1520L, 1520L, 1520L), 
               vPWPUMA00 = c(500L, 900L, 1000L, 1100L, 1200L), 
               v100 = c(96.1666666666667, 71.4615384615385, 68.6363636363636, 22.5, 64.5), 
               v101 = c(5, 15, NA, NA, NA),
               v102 = c(NA_real_, NA_real_, NA_real_, NA_real_, NA_real_)),
          .Names = c("vPWMETRO", "vPWPUMA00", "v100", "v101", "v102"), 
          row.names = 26:30, class = "data.frame")

m2<- structure(list(vPWMETRO = c(6440L, 6440L, 6440L, NA, NA), 
               vPWPUMA00 = c(1300L,2100L, 2200L, NA, NA), 
               v100 = c(38.3921568627451, 35, 12.5, NA, NA), 
               v101 = c(NA, NA, NA, NA, NA), 
               v102 = c(38.3333333333333, 68, NA, NA, NA)), 
               .Names = c("vPWMETRO", "vPWPUMA00", "v100", "v101", "v102"), 
          row.names = c("39", "40", "41", "NA", "NA.1"), class = "data.frame")
#views structure
str(m1)
str(m2)

#creates list
snag<- list(v1520=m1, v6440=m2)
str(snag)
#attempts lapply solution
prob1<- lapply(snag, function(y) y[ ,!is.na(y)])

#2nd attempt, same result on just dataframe:
x5$v6440[ , apply(x5$v6440, 2, function(x) !(is.na(x)))]

そのため、すべての NA を含む列はデータフレーム内で削除されます。したがって、結果は 2 つの df のリストになります。

v1520: vPWPUMA00、v100、v101

v6440: vPWPUMA00、v100、v102

サンプルの問題の違いは、寸法が 1x11 で、私の寸法が 5x5 であることです。これにより「未定義の列」エラーが発生すると推測していますが、よくわかりません。

任意の支援やアドバイスをいただければ幸いです。

よろしく、

4

1 に答える 1

2

私はあなたがまったく正しい質問と答えを見ていたとは思わない.

すべての値が NA であるデータフレームから列を削除するを参照してください。これは、必要なもののようです。

その後、私の答えを変更して与えることができます

lapply(snag, Filter, f = function(x){!all(is.na(x))})



$v1520
   vPWMETRO vPWPUMA00     v100 v101
26     1520       500 96.16667    5
27     1520       900 71.46154   15
28     1520      1000 68.63636   NA
29     1520      1100 22.50000   NA
30     1520      1200 64.50000   NA

$v6440
     vPWMETRO vPWPUMA00     v100     v102
39       6440      1300 38.39216 38.33333
40       6440      2100 35.00000 68.00000
41       6440      2200 12.50000       NA
NA         NA        NA       NA       NA
NA.1       NA        NA       NA       NA
于 2013-02-11T01:10:15.687 に答える