-6

次のような DT::datatable があります。

データ表 データテーブルをdata.frameに変換しましたが、

output$viewresponses<-DT::renderDataTable({
    view <- read.csv("www/kpi.csv", header=TRUE)

    viewDF<-as.data.frame(view)
    viewDF<-subset(viewDF,select=-c(X,used_shiny))
    print(viewDF %>%  spread(name,r_num_years))

    DT::datatable(res %>%  spread(name,r_num_years),extensions = 'Responsive')

  }

) data.frame は次のとおりです。

  cost customer-satisfaction safety time
1    NA          57             NA   NA
2    NA          72             NA   NA
3    NA          73             NA   NA
4    NA          NA             NA   NA
5    NA          NA             NA   24
6    NA          NA             NA   40
7    NA          NA             NA   22
8    40          NA             NA   NA
9    38          NA             NA   NA
10   36          NA             NA   NA
11   NA          NA             32   NA
12   NA          NA             30   NA
13   NA          NA             58   NA

すべての NA を削除して、次の表を取得したい

   cost customer-satisfaction safety  time
    40         57               32     24
    38         72               30     40
    36         73               58     22

結果は次のとおりです。 DT::datatable の各列からすべての NA を削除します

質問を次のように変更しました。データフレームがあります。

 df<-`data.frame(cost=c(NA,NA,NA,1),time=c(NA,NA,3,NA),Quality=c(NA,4,NA,NA),
    customersatisfaction=c(2,NA,NA,NA)`)
 cost time Quality customersatisfaction
1   NA   NA      NA                    2
2   NA   NA       4                   NA
3   NA    3      NA                   NA
4    1   NA      NA                   NA

上記のデータ テーブルからすべての NA を削除し、以下の結果を取得します。

  cost time Quality customersatisfaction
1    1    3       4                    2
4

2 に答える 2