次のような DT::datatable があります。
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
質問を次のように変更しました。データフレームがあります。
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